10 lines
306 B
Text
10 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
|