kschwind@yzerman:~/src/local/j.random> diff red.pl blue.pl
1,2c1,2
<   if ($old_color eq "red") {
<     if ($_ == 11) {
---
>   if ($old_color eq "blue") {
>     if ($_ == 1) {
4c4
<     } elsif ($button[$_+1]->cget(-background) eq "red") {
---
>     } elsif ($button[$_-1]->cget(-background) eq "blue") {
6c6
<     } elsif ($_ <= 9 && $button[$_+1]->cget(-background) eq "blue" && $button[$_+2]->cget(-background) ne "white") {
---
>     } elsif ($_ >= 2 && $button[$_-1]->cget(-background) eq "red" && $button[$_-2]->cget(-background) ne "white") {
8,9c8,9
<     } elsif ($button[$_+1]->cget(-background) eq "white") {
<       make_color ("red", $_+1);
---
>     } elsif ($button[$_-1]->cget(-background) eq "white") {
>       make_color ("blue", $_-1);
13c13
<       make_color ("red", $_+2);
---
>       make_color ("blue", $_-2);