9 lines
306 B
Text
9 lines
306 B
Text
on mouseUp
|
|
repeat with tStep = 1 to 100
|
|
repeat with tDoor = tStep to 100 step tStep
|
|
put not tDoors[tDoor] into tDoors[tDoor]
|
|
end repeat
|
|
if tDoors[tStep] then put "Door " & tStep & " is open" & cr after tList
|
|
end repeat
|
|
set the text of field "Doors" to tList
|
|
end mouseUp
|