locationCount = 6;
graph = RandomGraph@BarabasiAlbertGraphDistribution[locationCount, 2];
currentValues =
maxValues =
ReplacePart[RandomInteger[{1, 10}, locationCount], 1 -> 0];
currentLocation = 1;
currentItem = {1, 1, 1};
homeLocations = 1;
color[location_] :=
ColorData["FallColors"][currentValues[[location]]/Max@maxValues];
score = 0;
turnsLeft = 20;
Column[{Dynamic@
Row@Join[{"Turns left:", turnsLeft, " Carrying:"},
Graphics[{color@#, Rectangle@{0, 0}, Black,
Text[If[# > 0, currentValues[[#]], 0], {.5, .5}]},