initevents

hiding:
   wait 1s
   event macro 13 33
  wait 1s
   finditem RWF
   set #ltargetid #findid
   event macro 22
  wait 4s       
   finditem PDWUALF
   set #ltargetid #findid
   event macro 22
  }
   goto hiding

sub connect
   connectbegin:
   if #ContKind = STOB
   {
     key enter
     connectfaza1:
       wait 70s
       if #ContKind = STOB
         goto connectbegin
       if #ContKind <> CTU
         goto connectfaza1
       msg Введите пароль !
       key enter
     connectfaza2:
       wait 5s
       if #ContKind = STOB
         key enter
       if #ContKind = CTU
         key enter
       if #ContKind <> ACFC
         goto connectfaza2
       key enter
     connectfaza3:
       wait 5s
       if #ContKind <> QUTB
       goto connectfaza3
       click 617 455
     connectfaza4:
       wait 5s
     if #ContKind <> SHYB
        goto connectfaza4
  }
   if #ContKind = CTU
    goto connectfaza1
connectend:
return