sub stolb()
	var stat = get('ch_tp_stat')
	if stat == 'N/A' then
		stat = set('ch_tp_stat', '0')
	endif
	if stat == '1' then
		return
	endif
	if uo.life >= uo.str then
		var s = '0x1183'
		if uo.countground(s) then
			uo.set('finddistance','3')
			uo.findtype ( s, '-1', 'ground' )
			var stolb = uo.getserial('finditem')
			if uo.getdistance(stolb) < 4 then
				deljournal("reach that")
				deljournal('failed')
				uo.warmode(0)
				use( stolb )
				#uo.msg(',exec autohealteleport')
				if (not uo.injournal("reach that") ) then
					set('ch_tp_stat', '1')
					for var i = 0 to 5
						uo.print(str(i))
						wait( 995 )
					next
					if not uo.injournal('failed') then
						if uo.life < uo.str then
							ghp()
						endif
						uo.warmode(0)
					endif
					set('ch_tp_stat', '0')
				endif
			endif
		endif
	endif
endsub