Magery

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
CANNABIS
Posts: 23
Joined: 2004-08-03 05:25:13
Contact:

Magery

Post by CANNABIS »

Народ помогите,скиньте скрипт на Маджери,чтоб кастовал Инлор на себя пока мана не кончится,потом хавал и медетировал до полной маны и потом все снова
заранее спасибо
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Magery

Post by kuviCk »

CANNABIS wrote:Народ помогите,скиньте скрипт на Маджери,чтоб кастовал Инлор на себя пока мана не кончится,потом хавал и медетировал до полной маны и потом все снова
заранее спасибо


На!

Code: Select all

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
fank2
Posts: 10
Joined: 2004-09-24 22:02:34

Post by fank2 »

А вот он пишет укажите цель....чё делать ? это связано со скоростями? (я играю на ДРВ)
Надо просто поставить задержку подольше и всё ?
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

fank2 wrote:А вот он пишет укажите цель....чё делать ? это связано со скоростями? (я играю на ДРВ)
Надо просто поставить задержку подольше и всё ?


uo.Cast('Night Sight','self')
Проблема в этой строчке ......замени
uo.waifortargetself()
wait(500)
uo.Cast('Night Sight'')
Все просто.
BETEPAH ™
fank2
Posts: 10
Joined: 2004-09-24 22:02:34

Post by fank2 »

Ошибка какаето ..напиши весь скрипт целеком малоли я гдето ошибся ))
Kiro
Posts: 22
Joined: 2004-08-30 22:57:17

Post by Kiro »

Code: Select all

 
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

там была небольшая ошибка...
Worth
Posts: 51
Joined: 2004-10-04 04:50:03
Location: DRW
Contact:

Post by Worth »

Можно усовершенствовать использование скила Медитации. Я предлагаю сделать так:

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. Кстати, посмотрите, почему-то у меня не начинает заново кастовать после пополнения маны :(
Post Reply