sub ReaderReciter()
  dim verse[15]
  var numLines = 15

  verse[0] = "Хорошо живёт на свете Винни-Пух,"
  verse[1] = "Потому от пьянства он давно опух."
  verse[2] = "И неважно чем он занят"
  verse[3] = "Пить медведь не перестанет"
  verse[4] = "Даже если по утру отпустит дух."

  verse[5] = "Трам парам парару рару трам пам пам"
  verse[6] = "Похмеляется он часто по утрам,"
  verse[7] = "Днём по новой начинает,"
  verse[8] = "Вечерами продолжает"
  verse[9] = "И весёлый вечно бродит по лесам."

  verse[10] = "Если кончилась вся водка - не беда,"
  verse[11] = "Потребляет наркоту он иногда,"
  verse[12] = "А также дурилки, смешилки,"
  verse[13] = "Чумилки, крошилки, опилки"
  verse[14] = "Колит, нюхает, глотает без труда."

  var forever = true
  var i

  while forever
    for i = 0 to numLines-1
      UO.Msg(verse[i])
      wait(1000)
    next
    wait(1000)
    UO.Msg("Кстати, текущее время " + GetTime())
    wait(1000)
  wend
end sub

sub ReaderReciter() 
  dim verse[15] 
  var numLines = 15 

  verse[0] = "Хорошо живёт на свете Винни-Пух," 
  verse[1] = "Потому от пьянства он давно опух." 
  verse[2] = "И неважно чем он занят" 
  verse[3] = "Пить медведь не перестанет" 
  verse[4] = "Даже если по утру отпустит дух." 

  verse[5] = "Трам парам парару рару трам пам пам" 
  verse[6] = "Похмеляется он часто по утрам," 
  verse[7] = "Днём по новой начинает," 
  verse[8] = "Вечерами продолжает" 
  verse[9] = "И весёлый вечно бродит по лесам." 

  verse[10] = "Если кончилась вся водка - не беда," 
  verse[11] = "Потребляет наркоту он иногда," 
  verse[12] = "А также дурилки, смешилки," 
  verse[13] = "Чумилки, крошилки, опилки" 
  verse[14] = "Колит, нюхает, глотает без труда." 

  var forever = true 
  var i 

  while forever 
    for i = 0 to numLines-1 
      UO.Msg(verse[i]) 
      wait(1000) 
    next 
    wait(1000) 
    UO.Msg("Кстати, текущее время "+ UO.asmGetTime('hh:nn:ss'))
    wait(1000) 
  wend 
end sub 

UO.Msg("Текущее время в Липецке"+ UO.asmGetTime('hh:nn:ss'))

sub ReaderReciter() 
  var forever = true 
  var Time
Time = Time() 
while not uo.dead()
repeat 
wait(5000) 
UO.Findtype('ТИП СТОЛБА',-1,'ground')
if UO.GetQuantity('finditem')>0 then 
UO.Msg(Time) 
wait(10000) 
Else 
Exit=1 
endif 
until Exit==1 
 wend 
end sub

sub time()
var hh,mm,ss,hms,t=str(UO.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub