Как сделать так, чтоб чар при открытии двери не пытался её открыть если она открыта и закрыть если она закрыта
Code:
sub open door()
go(0001,0001, 0)
go(0002,0002, 0)
go(0003,0003, 0)
opendoor()
wait(100)
go(0004,0004, 0)
closedoor()
wait(100)
go(0005,0005, 0)
go(0004,0004, 0)
opendoor()
wait(100)
go(0003,0003, 0)
closedoor()
wait(100)
go(0002,0002, 0)
go(0001,0001, 0)
end sub
sub opendoor()
var n
Dim Door[30]
Door[1]='0x085A'
Door[2]='0x06A5'
Door[3]='0x0854'
for n=1 to 3
if uo.countground(Door[n]) then
uo.usefromground(Door[n])
endif
next
endsub
sub closedoor()
var n
Dim Door[30]
Door[1]='0x085B'
Door[2]='0x06A6'
Door[3]='0x0855'
for n=1 to 3
if uo.countground(Door[n]) then
uo.usefromground(Door[n])
endif
next
endsub