sub k() 
#var stolb_gun
UO.DeleteJournal() 
UO.Set('norbcalc','1')
uo.exec("set norbcheck 1")
UO.Recall('0x4000B2E3','3') 
 While NOT UO.InJournal(" ") 
         Wait(50) 
      Wend 
UO.Recall('0x444002e3', '1') 
wait(3000)
UO.Recall('0x4000B2E3','4') 
 While NOT UO.InJournal(" ") 
         Wait(150) 
      Wend 
UO.Recall('0x44400299', '1') 
#uo.exec("ongump anygump 1")
#UO.OnGump('0x4000B2E3','0x00000009','5') 
While not UO.Injournal('You put|fail|have') 
        wait(150) 
        wend
UO.Print('Done!')
end sub