sub stolb var stat get ch_tp_stat if stat then stat set ch_tp_stat end

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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