-key_brass <- FloatingImage("images/objects/keys/key_brass.sprite");
-key_brass.set_anchor_point(ANCHOR_TOP_LEFT);
-key_brass.set_pos(x, y);
-key_brass.set_visible(true);
-x += 30;
-
-key_iron <- FloatingImage("images/objects/keys/key_iron.sprite");
-key_iron.set_anchor_point(ANCHOR_TOP_LEFT);
-key_iron.set_pos(x, y);
-key_iron.set_visible(true);
-x += 30;
-
-key_bronze <- FloatingImage("images/objects/keys/key_bronze.sprite");
-key_bronze.set_anchor_point(ANCHOR_TOP_LEFT);
-key_bronze.set_pos(x, y);
-key_bronze.set_visible(true);
-x += 30;
-
-key_silver <- FloatingImage("images/objects/keys/key_silver.sprite");
-key_silver.set_anchor_point(ANCHOR_TOP_LEFT);
-key_silver.set_pos(x, y);
-key_silver.set_visible(true);
-x += 30;
-
-key_gold <- FloatingImage("images/objects/keys/key_gold.sprite");
-key_gold.set_anchor_point(ANCHOR_TOP_LEFT);
-key_gold.set_pos(x, y);
-key_gold.set_visible(true);
-x += 30;
+foreach(name in ["air", "earth", "wood", "fire", "water"])
+{
+ if(! (name in key) ) {
+ key[name] <- FloatingImage("images/objects/keys/key_" + name + ".sprite");
+ key[name].set_anchor_point(ANCHOR_TOP_LEFT);
+ key[name].set_pos(x, y);
+ key[name].set_visible(true);
+ }
+ x += 30;
+}