# Space mines

Here is the second space game from Usborne's Computer Space Games.  In Space mines you are the leader of a new mining colony on the planet Astron.  Your job is to keep the workers happy as you mine for minerals.

`       rem Space Mines      rem Daniel Isaaman and Jenny Tyler      rem Translated to BB4Win by T Street      rem 14/03/2013      *font Courier New, 16b      colour4+128:cls:off      colour 3      mines% = rnd(5)+3   : rem number of mines      pop% = mines% * 10 + rnd(25)  : rem number of people      cash% = rnd(10)*pop% : rem get a random amount of cash                 minerals% = 0 : rem starting minerals      year% = 1      gameOver% = false      satisfaction%  = 100            repeat        minePrice% = rnd(2000)+2000        foodPrice% = rnd(8) +2 : rem food price        mineralPrice% = rnd(4) + rnd(4) + rnd(4)        minMined% = (rnd(4)+4)*satisfaction% / 25 : rem amount of minerals produced                rem add minerals mined this year        minerals% = minerals% + minMined% * mines%                  cls : rem clear the screen        print "SPACE MINES REPORT FOR YEAR "str\$(year%)        print "-------------------------------"        print"There are "str\$(pop%)" people in the colony."        print"You have "str\$(mines%)" mines and £"str\$(cash%)        print        print"Mines produced "str\$(minMined%)" kg of minerals each."        print"You have "str\$(minerals%)" kg of minerals in total."        print        print"(press any key to continue...)"        print        g% = get        print"SELLING"        print"-------"        print        print"Mineral selling price £"str\$(mineralPrice%)        print        rem find how many minerals player should sell        repeat          print "Enter minerals to sell (max "str\$(minerals%)") : ";          input " " sell%        until sell%>=0 and sell%<=minerals%        rem reduce amount of minerals        minerals% = minerals% - sell%        rem increase cash        cash% = cash% + sell% * mineralPrice%        print'"You now have £"str\$(cash%)                print'"Mine   selling  price £"str\$(minePrice% div 5)        print        repeat          input "How many mines to sell ?: " sell%        until sell%<=mines% and sell%>=0        rem reduce number of mines        mines% = mines% - sell%        rem increase cash        cash% = cash% + sell%*minePrice% div 5        print'"You now have £"str\$(cash%)        print        print        print "BUYING"        print "------"        print        print "Food price £"str\$(foodPrice%)" per person."        print "Current population "str\$(pop%):print        repeat          input "Buy food for how many people? : " buy%          rem check if you can afford that much        until buy%>=0 and buy% * foodPrice% <= cash%        rem adjust funds        cash% = cash% - (buy% * foodPrice%)        print'"You now have £"str\$(cash%)        print        rem change satisfaction        rem based on how much food you bought                if buy%/pop% <0.8 then          rem you did not buy enough food          rem reduce satisfaction          satisfaction% = satisfaction% - rnd(10)        endif                if buy%/pop% >1.2 then          rem you bought plenty of food          rem increase satisfaction          satisfaction% = satisfaction% + rnd(10)        endif                print        rem check if you can afford a new mine        if cash%>= minePrice% then          print'"You can now build more mines"          print"Mine build cost £"str\$(minePrice%)'                    repeat            input "Enter how many mines : " build%          until build% >=0 and build%*minePrice%<=cash%          rem adjust number of mines          mines% = mines% + build%          rem adjust cash          cash% = cash% - build% * minePrice%          print'"You now have £"str\$(cash%)                  endif                rem check satisfaction        if pop% div mines% < 10 then          print          print "You are over-working the population!"          satisfaction% = satisfaction% - rnd(15)        endif                rem if satisfaction is high then people join        if satisfaction% > 110 then          arrive% = rnd(5)+1          print          printstr\$(arrive%)" people join the colony!"          pop% = pop% + arrive% : rem adjust population        endif                rem if satisfaction is low then people leave        if satisfaction%<80 then          leave% = rnd(5)+1          print          printstr\$(leave%)" people have quit!"          pop% = pop% - leave% : rem adjust population        endif                rem if the satisfaction is very low then the people revolt        if satisfaction%<70 then          print          print "The workers complain of poor working conditions!"        endif                rem chance of end of game        if satisfaction%<50 then          print          print "The workers have revolted!"          gameOver% = true        endif                        rem check for events                rem small chance of a mine collapse        if mines%>2 then          if rnd(50)<= mines% then            print "Explosion in mine "str\$(mines%)            dead% = rnd(mines%*2)+1            printstr\$(dead%)" people die!"            pop% = pop% - dead%            mines% = mines% - 1            satisfaction% = satisfaction% - rnd(15)          endif        endif                rem 1% chance of a radiation leak        if rnd(100)= 1 then          print "Radiation leak - many die!"          rem integer division          rem divide population in half          pop% = pop% div 2          satisfaction% = satisfaction% - rnd(15)                  endif                g% = get        rem add one on to the year        year% = year% + 1      until gameOver%      print"GAME OVER!" `

Again, there is loads of scope for improvement here. Have fun!