IF
  !Range([PC],3)
THEN
  RESPONSE #100
    MoveToObject([PC])
END

IF
  Global("sorovinsee","GLOBAL",0)
  See([PC])
  Range([PC],7)
THEN
  RESPONSE #100
    StartDialogNoSet([PC])
    SetGlobal("sorovinsee","GLOBAL",1)
END

