The full source code generated for AppleSoft BASIC by CrypTok's AI. Wanted to share the entire code, but I sure hope I can share it in the future without posting the entire code like the way I'm doing it now. Either way, enjoy!
10 REM BITCOIN MINING SIMULATOR
20 REM BY CRYPTOK AI
30 CLEAR
40 HOME
50 PRINT "BITCOIN MINING SIMULATOR"
60 PRINT "========================"
70 PRINT
80 REM INITIALIZE VARIABLES
90 B = 0: REM BITCOIN BALANCE
100 H = 1: REM HASH RATE (H/S)
110 M = 1: REM MINERS
120 U = 0: REM UPGRADES BOUGHT
130 T = 0: REM TOTAL MINED
140 REM
150 REM MAIN GAME LOOP
160 HOME
170 PRINT "BITCOIN MINING SIM"
180 PRINT "=================="
190 PRINT
200 PRINT "BITCOIN: "; INT(B * 100000000) / 100000000
210 PRINT "HASH RATE: "; H; " H/S"
220 PRINT "MINERS: "; M
230 PRINT "TOTAL MINED: "; INT(T * 100000000) / 100000000
240 PRINT
250 REM MINING CALCULATION
260 B = B + (H / 1000000): REM SIMPLIFIED MINING
270 T = T + (H / 1000000)
280 PRINT "MINING..."
290 FOR I = 1 TO 500: NEXT I: REM DELAY
300 PRINT
310 PRINT "UPGRADES:"
320 PRINT "1) BUY MINER (COST: "; 0.01 * (M + 1); " BTC)"
330 PRINT "2) UPGRADE HASH (COST: "; 0.05 * (U + 1); " BTC)"
340 PRINT "3) KEEP MINING"
350 PRINT "4) QUIT"
360 PRINT
370 INPUT "CHOICE: "; C
380 IF C = 1 THEN GOSUB 500
390 IF C = 2 THEN GOSUB 600
400 IF C = 3 THEN GOTO 160
410 IF C = 4 THEN GOTO 700
420 GOTO 160
430 REM
500 REM BUY MINER
510 COST = 0.01 * (M + 1)
520 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
530 B = B - COST
540 M = M + 1
550 H = H + M
560 PRINT "MINER PURCHASED!"
570 FOR I = 1 TO 1000: NEXT I
580 RETURN
590 REM
600 REM UPGRADE HASH
610 COST = 0.05 * (U + 1)
620 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
630 B = B - COST
640 U = U + 1
650 H = H * 1.5
660 PRINT "HASH RATE UPGRADED!"
670 FOR I = 1 TO 1000: NEXT I
680 RETURN
690 REM
700 REM END GAME
710 HOME
720 PRINT "FINAL STATS:"
730 PRINT "============"
740 PRINT "TOTAL BITCOIN MINED: "; INT(T * 100000000) / 100000000
750 PRINT "MINERS OWNED: "; M
760 PRINT "UPGRADES BOUGHT: "; U
770 PRINT
780 PRINT "THANKS FOR MINING!"
790 PRINT "VISIT CRYPTOKAPP.COM"
800 END
10 REM BITCOIN MINING SIMULATOR
20 REM BY CRYPTOK AI
30 CLEAR
40 HOME
50 PRINT "BITCOIN MINING SIMULATOR"
60 PRINT "========================"
70 PRINT
80 REM INITIALIZE VARIABLES
90 B = 0: REM BITCOIN BALANCE
100 H = 1: REM HASH RATE (H/S)
110 M = 1: REM MINERS
120 U = 0: REM UPGRADES BOUGHT
130 T = 0: REM TOTAL MINED
140 REM
150 REM MAIN GAME LOOP
160 HOME
170 PRINT "BITCOIN MINING SIM"
180 PRINT "=================="
190 PRINT
200 PRINT "BITCOIN: "; INT(B * 100000000) / 100000000
210 PRINT "HASH RATE: "; H; " H/S"
220 PRINT "MINERS: "; M
230 PRINT "TOTAL MINED: "; INT(T * 100000000) / 100000000
240 PRINT
250 REM MINING CALCULATION
260 B = B + (H / 1000000): REM SIMPLIFIED MINING
270 T = T + (H / 1000000)
280 PRINT "MINING..."
290 FOR I = 1 TO 500: NEXT I: REM DELAY
300 PRINT
310 PRINT "UPGRADES:"
320 PRINT "1) BUY MINER (COST: "; 0.01 * (M + 1); " BTC)"
330 PRINT "2) UPGRADE HASH (COST: "; 0.05 * (U + 1); " BTC)"
340 PRINT "3) KEEP MINING"
350 PRINT "4) QUIT"
360 PRINT
370 INPUT "CHOICE: "; C
380 IF C = 1 THEN GOSUB 500
390 IF C = 2 THEN GOSUB 600
400 IF C = 3 THEN GOTO 160
410 IF C = 4 THEN GOTO 700
420 GOTO 160
430 REM
500 REM BUY MINER
510 COST = 0.01 * (M + 1)
520 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
530 B = B - COST
540 M = M + 1
550 H = H + M
560 PRINT "MINER PURCHASED!"
570 FOR I = 1 TO 1000: NEXT I
580 RETURN
590 REM
600 REM UPGRADE HASH
610 COST = 0.05 * (U + 1)
620 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
630 B = B - COST
640 U = U + 1
650 H = H * 1.5
660 PRINT "HASH RATE UPGRADED!"
670 FOR I = 1 TO 1000: NEXT I
680 RETURN
690 REM
700 REM END GAME
710 HOME
720 PRINT "FINAL STATS:"
730 PRINT "============"
740 PRINT "TOTAL BITCOIN MINED: "; INT(T * 100000000) / 100000000
750 PRINT "MINERS OWNED: "; M
760 PRINT "UPGRADES BOUGHT: "; U
770 PRINT
780 PRINT "THANKS FOR MINING!"
790 PRINT "VISIT CRYPTOKAPP.COM"
800 END
The full source code generated for AppleSoft BASIC by CrypTok's AI. Wanted to share the entire code, but I sure hope I can share it in the future without posting the entire code like the way I'm doing it now. Either way, enjoy!
10 REM BITCOIN MINING SIMULATOR
20 REM BY CRYPTOK AI
30 CLEAR
40 HOME
50 PRINT "BITCOIN MINING SIMULATOR"
60 PRINT "========================"
70 PRINT
80 REM INITIALIZE VARIABLES
90 B = 0: REM BITCOIN BALANCE
100 H = 1: REM HASH RATE (H/S)
110 M = 1: REM MINERS
120 U = 0: REM UPGRADES BOUGHT
130 T = 0: REM TOTAL MINED
140 REM
150 REM MAIN GAME LOOP
160 HOME
170 PRINT "BITCOIN MINING SIM"
180 PRINT "=================="
190 PRINT
200 PRINT "BITCOIN: "; INT(B * 100000000) / 100000000
210 PRINT "HASH RATE: "; H; " H/S"
220 PRINT "MINERS: "; M
230 PRINT "TOTAL MINED: "; INT(T * 100000000) / 100000000
240 PRINT
250 REM MINING CALCULATION
260 B = B + (H / 1000000): REM SIMPLIFIED MINING
270 T = T + (H / 1000000)
280 PRINT "MINING..."
290 FOR I = 1 TO 500: NEXT I: REM DELAY
300 PRINT
310 PRINT "UPGRADES:"
320 PRINT "1) BUY MINER (COST: "; 0.01 * (M + 1); " BTC)"
330 PRINT "2) UPGRADE HASH (COST: "; 0.05 * (U + 1); " BTC)"
340 PRINT "3) KEEP MINING"
350 PRINT "4) QUIT"
360 PRINT
370 INPUT "CHOICE: "; C
380 IF C = 1 THEN GOSUB 500
390 IF C = 2 THEN GOSUB 600
400 IF C = 3 THEN GOTO 160
410 IF C = 4 THEN GOTO 700
420 GOTO 160
430 REM
500 REM BUY MINER
510 COST = 0.01 * (M + 1)
520 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
530 B = B - COST
540 M = M + 1
550 H = H + M
560 PRINT "MINER PURCHASED!"
570 FOR I = 1 TO 1000: NEXT I
580 RETURN
590 REM
600 REM UPGRADE HASH
610 COST = 0.05 * (U + 1)
620 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
630 B = B - COST
640 U = U + 1
650 H = H * 1.5
660 PRINT "HASH RATE UPGRADED!"
670 FOR I = 1 TO 1000: NEXT I
680 RETURN
690 REM
700 REM END GAME
710 HOME
720 PRINT "FINAL STATS:"
730 PRINT "============"
740 PRINT "TOTAL BITCOIN MINED: "; INT(T * 100000000) / 100000000
750 PRINT "MINERS OWNED: "; M
760 PRINT "UPGRADES BOUGHT: "; U
770 PRINT
780 PRINT "THANKS FOR MINING!"
790 PRINT "VISIT CRYPTOKAPP.COM"
800 END
0 Комментарии
0 Поделились
87 Просмотры