Yoko

sub MUS()
repeat
UO.Usetype('0x0EB3')
wait(5500)
UO.UseSkill('Spirit Speak')
wait(2500)
until UO.Dead()
end sub


Что тут улучшить мона?

И ещё: как заставить персонажа периодически кушать, но не откушиваться до упора, т.е. не до состояния stuffed??

Вот. Чуток подправил. Качает письмакинг музыку и спирит одновременно и кушает жаренные катлетки.

sub MUS()
Var LastTimer,p=0,f=0
uo.CancelMenu() 
uo.AutoMenu("Track","Anything")
uo.useobject('backpack')
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
   f=0
   cheklag()

   if uo.skillval("Peacemaking",1)<1000 then
      uo.print("Peacemaking...")
      f=1
      uo.useskill("Peacemaking")
      wait(5000)
   end if
   
   if UO.Timer()>(LastTimer+3000) then
      if uo.skillval("Spirit Speak",1)<1000 then
         uo.print("Spirit Speak...")
         f=1
         p=0
         repeat
            p=p+1
            uo.useskill ("Spirit Speak")
            uo.deletejournal()
            repeat 
               wait(10)
            until UO.InJournal("netherworld")
         until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10)
      end if
      uo.usetype('0x097B')
      wait(1000)
      LastTimer=UO.Timer()
   end if
   if f==0 then
      uo.closeuo()
   end if
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.useobject('backpack')
wait(1000)
UO.Exec('terminate Lore')
wait(1000)
UO.Exec('exec Lore')
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub 

_________________
Сделал дело - флуди смело !!!

А я думал музыку с TAB качают

_________________
Сделал дело - флуди смело !!!