added farms

README.md

@@ -1,2 +1,6 @@
 # Cookie-Clicker-C64
-Cookie clicker for the C64
+Cookie-Clicker-C64 (or CC64 for short) is a Cookie clicker clone for the Commodore 64.
+
+Cookie clicker was created by [Orteil](https://orteil.dashnet.org/)
+
+Note: Due to the way I have everything set up my commits will appear as commits by drskinner.

prg.txt

@@ -1,18 +1,19 @@
 0 rem !to "build/cookie.prg"
-10 cc=0:cg=0:ca=0:ga=0
+10 cc=0:cg=0:ca=0:ga=0:ft$="0"
-20 c1=15:c2=50
+20 c1=15:c2=100:c3=1100
 50 ds$=chr$(17):rem cursor down
 60 rs$=chr$(29):rem cursor right
 100 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
-110 print"B you have "int(cc)"            Bcursor     B"
+110 print"B you have "int(cc)"            Bcursor(c)  B"
-120 print"B cookies                 B ("ca")     B"
+115 l3$="B cookies                 B"
+120 printl3$" ("ca")     B"
 130 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*cost:      B"
 140 print"B                         B"c1"       B"
 150 print"B       ********          *CCCCCCCCCCC*"
-160 print"B      *      ***         Bgrandma    B"
+160 print"B      *      ***         Bgrandma(g) B"
 170 print"B     *  *       *        B ("ga")     B"
 180 print"B    *  **        *       Bcost:      B"
-190 print"B    *       **   *       B"c2"       B"
+190 print"B    *       **   *       B"c2"      B"
 200 print"B    *       **   *       *CCCCCCCCCCC*"
 210 print"B    *            *       B           B"
 220 print"B    ***          *       B           B"
@@ -28,14 +29,16 @@
 320 print"B                         B           B"
 330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
 
-1000 get k$:if k$= "" then 1500
+1000 if ft$="0" then 5000
-1010 if k$=" " then 2000
+1010 get k$:if k$= "" then 1500
+1015 if k$=" " then 2000
 1020 if k$="c" then 3000
 1030 if k$="g" then 4000
+1050 if k$="f" then 5500
 
 1500 cc=cc+cg
-1500 print"{home}"ds$"B you have "int(cc)"
+1510 print"{home}"ds$"B you have "int(cc)"
-1500 goto 1000
+1520 goto 1000
 
 2000 cc=cc+1
 2010 print"{home}"ds$"B you have "int(cc)"
@@ -44,18 +47,71 @@
 3000 if cc<c1 then 1000
 3010 cc=cc-c1
 3015 print"{home}"ds$"B you have                ":rem stops from messing up the counter
-3020 cg=cg+.1
+3025 print"{home}"ds$ds$l3$" ("ca")"
-3030 cc=cc+cg
+3030 cg=cg+.1
-3040 print"{home}"ds$"B you have "int(cc)"
+3040 cc=cc+cg
-3050 goto 1000
+3050 print"{home}"ds$"B you have "int(cc)"
+3060 ca=ca+1
+3070 goto 1000
 
 4000 if cc<c2 then 1000
 4010 cc=cc-c2
 4015 print"{home}"ds$"B you have                ":rem stops from messing up the counter
-4020 cg=cg+.2
+3020 ca=ca+1
-4030 cc=cc+cg
+3025 print"{home}"ds$ds$ds$ds$ds$ds$ds$"B     *  *       *        B ("ga")     B"
-4040 print"{home}"ds$"B you have "int(cc)"
+4030 cg=cg+.2
-4050 goto 1000
+4040 cc=cc+cg
+4050 print"{home}"ds$"B you have "int(cc)"
+4060 goto 1000
+
+
+
+5000 if cc<500 then 1010
+5010 ft$="1"
+5020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"B    *            *       Bfarm(f)    B"
+5030 print"B    ***          *       B ("fa")     B"
+5040 print"B    **           *       Bcost:      B"
+5050 print"B     *     **   *        B"c3"     B"
+5060 print"B      *    **  *         *CCCCCCCCCCC*"
+5070 goto 1010
+
+
+
+5500 if cc<c3 then 1000
+5510 cc=cc-c3
+5515 print"{home}"ds$"B you have                ":rem stops from messing up the counter
+5520 cg=cg+.4
+5530 cc=cc+cg
+5540 print"{home}"ds$"B you have "int(cc)"
+5550 goto 1000
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+