{"obfuscate":false,"attributes":{"security":0},"commands_and_expressions":[{"i":0,"d":{"n":"Object: 0  (OnDown Command)","t":14},"v":"Call ChangeFloor(1)","s":0},{"i":1,"d":{"n":"Object: 1  (OnDown Command)","t":14},"v":"Call ChangeFloor(2)","s":0},{"i":2,"d":{"n":"Object: 2  (OnDown Command)","t":14},"v":"Call ChangeFloor(3)","s":0},{"i":3,"d":{"n":"Object: 3  (OnDown Command)","t":14},"v":"Call ChangeFloor(4)","s":0},{"i":4,"d":{"n":"Object: 4  (OnDown Command)","t":14},"v":"Call ChangeFloor(5)","s":0},{"i":5,"d":{"n":"Object: 5  (OnDown Command)","t":14},"v":"Call ChangeFloor(6)","s":0},{"i":6,"d":{"n":"Object: 6  (OnDown Command)","t":14},"v":"Call ChangeFloor(7)","s":0},{"i":7,"d":{"n":"Object: 7  (OnDown Command)","t":14},"v":"Call ChangeFloor(8)","s":0},{"i":8,"d":{"n":"Object: 8  (OnDown Command)","t":14},"v":"Call ChangeFloor(9)","s":0},{"i":9,"d":{"n":"Object: 9 (Expression)","t":7},"v":"Floor","s":0},{"i":10,"d":{"n":"Object: 9 (Expression)","t":9},"v":"1","s":0},{"i":11,"d":{"n":"Object: 9 (Expression)","t":9},"v":"9","s":0},{"i":12,"d":{"n":"Object: 9 (Expression)","t":7},"v":"0","s":0},{"i":13,"d":{"n":"Object: 9 (Expression)","t":7},"v":"-540","s":0},{"i":14,"d":{"n":"Object: 9 (String Expression)","t":42},"v":"{If(Floor=1, \"Lobby and Mezzanino\", \"Floor \" + Floor)}","s":0},{"i":15,"d":{"n":"Object: 10  (OnDown Command)","t":14},"v":"Dim msg, res\nmsg = \"This command will simulate fire alarms in random floors and an audible warning will be played. Please go to the alarm screen and acknowledge the alarms to silence the audible warning.\"\nmsg = msg & vbCrLf & vbCrLf & \"Do you want to proceed?\"\nres = MsgBox(msg, vbYesNo + vbInformation, \"Simulate Fire\")\nIf res=vbYes Then\n\tDim id\n\tFor id=1 To $Sprinkler->Size\n\t\tIf $Rand()>0.5 Then $Sprinkler[id].Fire = 1\n\tNext\nEnd If","s":0},{"i":16,"d":{"n":"Object: 10 (String Expression)","t":11},"v":"Simulate Fire","s":0},{"i":17,"d":{"n":"Object: 11  (OnDown Command)","t":14},"v":"Dim id\nFor id=1 To $Sprinkler->Size\n\t$Sprinkler[id].Fire = 0\n\t$Sprinkler[id].Fire->Ack = False\nNext","s":0},{"i":18,"d":{"n":"Object: 11 (String Expression)","t":11},"v":"Reset Fire","s":0}],"script":"\r\n\r\n\r\n\r\n\r\n\r\n\r\nSub Screen_OnOpen()\r\n\tCall ChangeFloor(1)\r\nEnd Sub\r\n\r\n\r\nSub Screen_WhileOpen()\r\n\r\nEnd Sub\r\n\r\n\r\nSub Screen_OnClose()\r\n\r\nEnd Sub\r\n\r\nFunction ChangeFloor(FloorNumber)\r\n\t$Floor = FloorNumber\r\n\tIf FloorNumber=1 Then\r\n\t\t$Open(\"3DLobby\")\r\n\tElse\r\n\t\t$Open(\"3DLevel\")\r\n\tEnd If\r\n\tCall ClosePopups()\r\nEnd Function","write_limits":[[9,10,11]],"math_on_open":[],"math_on_while":[],"math_on_close":[],"data_sources":[],"translate_expressions":[14,16,18]}