Yoko

Code: Select all

sub Paralyze() 
Uo.DeleteJournal() 
  REPEAT
      If Uo.InJournal('You are frozen and can not move') Then 
         Uo.Cast('Magic Arrow','self')  
         Uo.DeleteJournal() 
      Else 
         Wait(1000) 
      EndIf 
  Until Uo.Dead() 
END SUB

Code: Select all

sub lost()
uo.msg('You are frozen and can not move')
end sub

Code: Select all

sub AntiP()
   If uo.getglobal('sc4')=='On' then
   return
   else
   uo.setglobal('sc4','On')
   while true
   wait(200)
   if uo.injournal('You are frozen') && uo.journalserial(uo.injournal("You are frozen")) == "Server ID" then
   UO.Cast('Magic Arrow','self')
   wait(1300)
   uo.deletejournal()
   end if
   wend
   end if
   uo.setglobal('sc4',0)
end sub

Code: Select all

var id = 'ID сообщений от сервера'
if id == uo.journalserial(uo.injournal('You are frozen')-1) then

Code: Select all

sub tellus()
var enemy

repeat
wait(100)
until uo.injournal('Target is not in line ')
if uo.injournal('Target is not in line ') then
      Enemy=uo.JournalSerial(uo.injournal('Target is not in line ')-1)

          if CheckMsg('Target is not in line ','System') then
           uo.say('sss')
          end if
            uo.deletejournal()
end if


end sub

Code: Select all

sub CheckMsg(cMsg, mAuthor) 
var ij 
ij = UO.InJournal(cMsg) 
if ij Then 
   if (UO.JournalSerial(ij+1) == mAuthor) then 
      return ij+1 
   else 
      if (mAuthor == 'System') and (UO.JournalSerial(ij+1) == '0x01010101') then 
         return ij+1 
      endif 
   endif 
else 
   return 0 
endif 
end sub