Posted: 2006-02-24 00:32:33
В журнале проявляется , шард ДрВ
Code: Select all
Sub InitCross()
uo.SetGlobal('cross', '0')
end sub
sub WaitManaChange(now)
while uo.mana >= now
wait(100)
wend
end sub
Sub Cross()
if uo.waiting() then
uo.canceltarget()
end if
if uo.GetGlobal('cross') == '0' then
uo.waittargettile('0',str(uo.getX('laststatus')),str(uo.getY('laststatus')),str(uo.getZ('laststatus')))
uo.DeleteJournal()
uo.cast('Wall of Stone')
WaitManaChange(uo.mana)
if not uo.InJournal('fizzle') then
uo.SetGlobal('cross', '1')
end if
else
if uo.GetGlobal('cross') == '1' then
uo.waittargettile('0',str(uo.getX('laststatus')),str(uo.getY('laststatus')+1),str(uo.getZ('laststatus')))
uo.DeleteJournal()
uo.cast('Wall of Stone')
WaitManaChange(uo.mana)
if not uo.InJournal('fizzle') then
uo.SetGlobal('cross', '2')
end if
else
if uo.GetGlobal('cross') == '2' then
UO.Say("Ai?e, ai?e ynii - ?oiau ia iiaanei!")
uo.waittargettile('0',str(uo.getX('laststatus')),str(uo.getY('laststatus')+1),str(uo.getZ('laststatus')))
uo.DeleteJournal()
uo.cast('Fire Field')
WaitManaChange(uo.mana)
if not uo.InJournal('fizzle') then
uo.SetGlobal('cross', '0')
end if
end if
end if
end if
end sub
Code: Select all
if not uo.InJournal('fizzle') then