Author: Abhay B. Joshi (abjoshi@yahoo.com)
How to run this program:
1. Click the “Green flag” to start the game. Press "h" to view help.
2. You (the human player) begin with the "Orange" coin and the computer plays with "Blue" coins. The variable “Turn” shows whose turn it is.
3. Set the slider variable "Monkey coins" to determine how many coins the computer will get to drop at every turn.
4. Click the base of the tube in which you want to drop your coin.
If you want to understand how I designed this program, please refer to my book:
"Adventures in Snap Programming" available on Amazon.com
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAKRklEQVR4nO3bf1DT9x3H8W+r6LW72h/aTepYr13Zep5zrmpvp63F6lZv/XH1nHraqSeDMiZVi4JiBAGHdqvT610RE37Ilx8hCCi/IhghYACDgt9BCAaDAwQq3Dy1DAuC1tf+cMYPC4TIyidf6PuP5ynePb7J574vQRIUJEkARbkqwdVPgOJTRcXzOHVqjmzS6WbDaJxiP8C8PC+cObMZZWVBo9R25OV9AKPxaZfflO9D5849gcLCv6KpqQnNzc2jWkdHBwq+3IWMAzscZtRq0NzcjPr6moEDzMmJhNVqHbbW1laUH42CPnI1ivescLrzBzagvbUFVqsVBsNplJTMcPkNGu9ptYFobGxEY2MjrFar7fejUZEqHF9tmYF/B3s4rDvYA9evX0djY+PDAR4/vhBmsxn19fVQq9XYtGkTEhISUF9fb5+pFlV/nI7bJxToiV+P7v9e1Jk6zGdt1ykoCHb5DRrvZWVlwWKxwGKxwMvLC0qlEuHh4RBFEUlJSYiMjER0dDRiY2MhiiJUKhVEUYQoisjOzobFYkFAQAAKCgoQEBCA9PR0HDt2DAEBARBFEQEBAbbrX0zcNeBe9xxejv6y2EF3cO3aNVgslocDLCjwhiRJtvbs2QOVSoX9+/fD19cXgYGBCAoKgtlshqFYh6sxG9ATvw59JdG4nROGniMr0W9MQk/CBvRXHEVvxnbczglDf3k8+s8ocStsJrqDPdBWY7A9hlqd7PIbNN7TaDQwmUwwmUzYuXMn3N3dER4ejqioKPj7++PQoUMICwuDt7c3lEolvLy8UFJSgoiICISFhcFkMiEkJAQNDQ1QKBQIDQ2Fv78/QkJCoFAoEBwcjPT0dJhMJrsB3oqajzv1ukEH2NnZCZPJ9HCAublrUFlZaWvr1q3YuHEjduzYgb1798LHxwdBQUG4cuUK9LoCtEe+gTsmLforU9GnO4he9Se419WB3swg9B7bhju1eegr+gJ3L1egX8pCt8IT3cEeaLlQYnuMpKRYl9+g8V5KSgoe/IXPzMxEVlYW1Go1VCoV1Go1MjMzkZqairy8PGRnZ0OlUkGr1WLevHm4evUqJEnCvn370NLSAqVSiaamJqhUKiQmJiI1NRV+fn6wWq2QJMn+M+CRlejT/d32yYftwbVtAzxxwhN6fTEMBgMMBgOqq6tRV1eH5uZm1NbWoqqqCpIkoaamBqe0OWjfPMPhl9pbf5mL3sxgfPPF7wb8eVN1qe0xMjJWuvwGjfdEUURVVdUj19DQ8MimreIE+nQHnerB9YWBT3YVsrOzUFRU5LDS0lI0F8bhSlLwI9V8/AAqKyuh051CbOynqKyc5PIbNN6Lj4+H0WiE0WhEbW0tLl++7DCLxYKWlpZBs1gsw3pnslqttudk9zKMXv8M4uN/CaXytVFJpXoNubn03S+vjhw5YvuKc+PGDXR1dQ1ZR0cHiouLUVZWhrKyMuTm5kKj0dg+Li0thdlsdngNZ6urq4PBYKAXosd7SUkboNfrodfrcfPmTYej6OzsRFpaGmJiYhATE4OEhAQkJyfbPhZF8TsboMlkgl6vpwGO94zGyYiL2wydTgej0Tj4y2pMBQUF8PX1HbTo6OhhvTOZzWbodDpkZ5+gAX5fKiz84aj9s2okxcXNgV7/NA2Qcm00QMql0QAplzZ6A5zxGaSYmWTJOmz0BijEQYpYQJasw2iAZPlbJhogWf6WiQZIlr9logGS5W+ZaIBk+VsmGiBZ/paJBkiWv2WiAZLlb5logGT5WyYaIFn+lokGSJa/ZaIBkuVvmWiAZPlbJhogWf6WiQZIlr9logGS5W+ZaIBk+VsmGiBZ/paJBkiWv2WiAZLlb5logGT5WyYaIFn+lokGSJa/ZaIBkuVvmWiAZPlbJhogWf6WiQZIlr9logGS5W+ZaIBk+VsmGiBZ/paJBkiWv2WiAZLlb5logGT5WyYaIFn+lokGSJa/ZaIBkuVvmWiAZPlbJhogWf6WiQZIlr9logGS5W+ZaIBk+VsmGiBZ/paJBkiWv2WiAZLlb5logGT5WyYaIFn+lokGSJa/ZaIBkuVvmWiAZPlbJhogWf6WiQZIlr9logGS5W+ZaIBk+VsmGiBZ/paJBkiWv2WiAZLlb5logGT5WyYaIFn+lokGSJa/ZaIBkuVvmWiAZPlbJhogWf6WiQZIlr9logGS5W+ZaIBk+VumYQdYVymg9aSA9vz7v5rOyfxwZOVvmYYc4MUKATfVAu4ddgMOT7J1L8YNX6sfg9ko08ORlb9lGnSADQYBd+ImA7HPAbFTB+lZ3FW6oeGMDA9HVv6WyW6ApnMC+uInA4k/AcQXhy7RA72Jk1BTJbPDkZW/ZbIbYHueACT9FFDPGj7xRbSelNnhyMrfMtkNsCdlCpDxa6f7Om2ivA5HVv6WyW6AdxOnAdm/cbq+tB/L63Bk5W+Z7AcoTge0y52uT/OSvA5HVv6WyW6AfclTAd06QLfeqbo0P5DX4cjK3zLZfxOSLwAnVwClfx4+7Ydo0z4mr8ORlb9lshtgXaWAOykeQPk2oCJ46Mq34XbaC6g5L7PDkZW/ZRr0hehLpQK+1bwKGBXA+b32GXfjW7UnGvUyPBxZ+VumId+KsxgEdGum4F7++0BlKHA+Eji7E/ey38Yt9VOoPyvTw5GVv2Ua9ocRLGUC2rQCvsoR0KoVcLFc5ocjK3/LRD+ORZa/ZaIBkuVvmWiAZPlbJhogWf6WadgBVhifQEb+y8jIfxkni34k/8ORlb9lGnKAesMz+GhnIKa9rcOE+dWYML8aTy4sx9w1sYhJfR0X5Ho4svK3TIMOMD59DqYu1uOpN/+BKYtq7HpyoYQ/hASiqnqC/A5HVv6WyW6AWdqX8NzicrywzIwZDpq2pBYfh/vJ73Bk5W+ZBgzwgiRgmf9neOVDC36+omHYpi2RcCzvFXkdjqz8LdOAARbqn4f7OybMXXfZqWavacS6kK3yOhxZ+duhBhjx5XuYudqKt/xanGrRxy1Y4hctr8ORlb91NMC56/6Jdz9td7pFPpnyOhxZ+duhBhgZ/S4W+jRjtaLTqVYpOrHYN0lehyMrfzvUAIvOPIvZay7BJ+q6U60N/Re8QzcNeuGUtz5Avup9SHUrH6n8wtex3/M9sjK3mUuWQzo+/bsd4AVJwDv+B+G77zq2Huoatl99dAlpOT8b9MJrl07E56t8cfpvRx+pz1f5YpbgNmLrKUwac3YsnjfUz8FrwCMdoCTdfx3w1d9XY0d0N3Yrvxmylbs64Rf+pyEvvGfp44gThBEVJIzcbhQmjDk7Fs8r+g3xf4H+3wFK0v13Qn6x2ogth7rwWXLfgCISerFscxs27N7m8J0QGuD4Pu+oDlCS7r8XvF6xHXPWlOG3n7Rh2ZZ2vOFjwZveCU69F7x26UQsENxG1KwRugWCGzyFSWPOjsXzjtqX4P/NeG4y8k+7I/+0O06XTnX6wrGxjyMiYsKICgsbmSPLz2o0o/wZkKJ4RAOkXBoNkHJpNEDKpf0H1pwuknDfHs8AAAAASUVORK5CYII=data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAANAElEQVR4nO3RsW1cCRQEwZ8hE7xlSDKYw8ahM2jIpdWcB1QB4zcwzwMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKGv5/Pjz/N6/3le76/n8+O3e35Cc0NzQ3NDM3O+z/3v7/de79/u+QnNDc0NzQ3NzPl37vd+u+cnNDc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzsWDNTc0NzQ3NDPn4sGaG5obmhuamXPxYM0NzQ3NDc3MuXiw5obmhuaGZuZcPFhzQ3NDc0Mzcy4erLmhuaG5oZk5Fw/W3NDc0NzQzJyLB2tuaG5obmhmzp/n9f538Ov92z0/obmhuaG5oZk5X8/nx/fJr/fX8/nx2z0/obmhuaG5oRkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA53me/wHTjSghfMbjPQAAAABJRU5ErkJggg==tubexfallcheck winner1TurnOrangebornTrue1TurnBluebornTruelrow14lrowlcol714lrowlcol114lcol14falsefalsetrue8Orange,Blue,Blue,Orange,Orange,Blue,Orange,BlueOrange,Blue,Blue,Orange,Blue,Blue,Orange,BlueBlue,0,Blue,Orange,Blue,Blue,Blue,Blue0,0,Orange,Blue,Blue,0,0,00,0,0,Blue,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,0truetrue165Orange-50True0,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,00,0,0,0,0,0,0,082