sub Timer()
  var sec=0, min=0, hour=0, day=0
  var ShowSec,ShowMin,ShowHour, ShowDay
  uo.DeleteJournal()
  uo.Print('1. show time ') 
  uo.Print('2. start timer ')
  uo.Print('3. stop ')
  uo.Print('4. continue ')
  uo.Print('Timer is working ... 00:00:00:01 ')
  while uo.SkillVal('Alchemy',1) < 1000
    sec=sec+1
    wait(1000)
    if (sec>=60) then 
      sec=0
      min=min+1
      if (min>=60) then
        min=0
        hour=hour+1
        if (hour>=24) then
          hour=0
          day=day+1
        end if
      end if
    end if
    if uo.InJournal('show time') then
     show:
      if (hour<10) then
        ShowHour='0'+str(hour)
      else
        ShowHour=str(hour)
      end if
      if (min<10) then
        ShowMin='0'+str(min)
      else
        ShowMin=str(min)
      end if
      if (sec<10) then
        ShowSec='0'+str(sec)
      else
        ShowSec=str(sec)
      end if
      if (day<10) then
        ShowDay='0'+str(day)
      else
        ShowDay=str(day)
      end if
      if uo.InJournal('stop') then
        uo.DeleteJournal()
        uo.Print(ShowDay + ':' + ShowHour + ':' + ShowMin + ':' + ShowSec)
        repeat
          wait(100)
          if uo.InJournal('show time') then
            uo.DeleteJournal()
            uo.Print(ShowDay + ':' + ShowHour + ':' + ShowMin + ':' + ShowSec)
            wait(100)
          end if
        until uo.InJournal('continue')
      else
        uo.DeleteJournal()
        uo.Print(ShowDay + ':' + ShowHour + ':' + ShowMin + ':' + ShowSec)
      end if
    end if
    if uo.InJournal('start timer') then
      uo.DeleteJournal()
      sec=0
      min=0
      hour=0
      day=0
    end if
    if uo.InJournal('stop') then
      goto show
    end if
  wend
end sub