rem "KeyBoxLock"
GetFaza(Open)
#Yes
##SetFaza(Lock)
##SetParamNo(mess,[mess])
##IsRoomLock([mess1])
###No
####TryLockRoom([mess1])
#####Yes
######NetDown
#######No
########Goto Metka:LockTrue
######SetFaza(WaitGenug)
######Exit
#####No
######Stop
###Yes
####Goto Metka:LockTrue
IFelem(Timer)
#Yes
##IsOutTime(WaitGenug,60)
###Yes
####Stop
IFelem(isGenug)
#Yes
##Mess=Param(Y)
###Yes
####Goto Metka:LockTrue
##Mess=Param(YN)
###Yes
####rem Stop
####Goto Metka:LockTrue
##Stop
Exit
Metka:LockTrue
PushCommand([mess2],[mess3],[mess4])
Stop
