Another gem made with Cryptok's AI...An idle/incremental CrypTok simulator, also in Commodore BASIC. Again, I can't promise that the game will run flawlessly, as it was freshly and just made with AI, but it should be a fun project to those who wish to modify the code to make it work.
Fingers crossed! Have fun!
10 REM CRYPTOK IDLE SIMULATOR V1.0
20 REM FOR COMMODORE 64
30 PRINT CHR$(147): REM CLEAR SCREEN
40 PRINT "CRYPTOK IDLE SIMULATOR"
50 PRINT "====================="
60 PRINT
70 REM INITIALIZE VARIABLES
80 C = 0: REM COINS
90 M = 1: REM MINERS
100 P = 0.1: REM PRICE PER COIN
110 U = 0: REM UPGRADES
120 T = 0: REM TOTAL MINED
130 PRINT "STARTING YOUR CRYPTO EMPIRE..."
140 PRINT
150 REM MAIN GAME LOOP
160 PRINT "COINS:", INT(C*100)/100
170 PRINT "MINERS:", M
180 PRINT "COIN PRICE: $", INT(P*100)/100
190 PRINT "TOTAL MINED:", INT(T)
200 PRINT "UPGRADES:", U
210 PRINT
220 PRINT "1) WAIT (MINE COINS)"
230 PRINT "2) BUY MINER ($10)"
240 PRINT "3) SELL COINS"
250 PRINT "4) UPGRADE MINERS ($50)"
260 PRINT "5) CHECK CRYPTOK PRICES"
270 PRINT "6) QUIT"
280 PRINT
290 INPUT "CHOICE"; A
300 IF A = 1 THEN GOTO 400
310 IF A = 2 THEN GOTO 500
320 IF A = 3 THEN GOTO 600
330 IF A = 4 THEN GOTO 700
340 IF A = 5 THEN GOTO 800
350 IF A = 6 THEN GOTO 900
360 GOTO 160
370 REM MINING ROUTINE
400 MC = M (1 + U 0.1): REM MINING WITH UPGRADES
410 C = C + MC
420 T = T + MC
430 REM PRICE FLUCTUATION
440 P = P + (RND(1) - 0.5) * 0.02
450 IF P < 0.01 THEN P = 0.01
460 PRINT "MINED", INT(MC*100)/100, "COINS!"
470 FOR I = 1 TO 1000: NEXT I: REM DELAY
480 GOTO 160
490 REM BUY MINER
500 IF C * P >= 10 THEN GOTO 520
510 PRINT "NOT ENOUGH MONEY!": GOTO 550
520 M = M + 1
530 C = C - 10/P
540 PRINT "BOUGHT NEW MINER!"
550 FOR I = 1 TO 1000: NEXT I
560 GOTO 160
570 REM SELL COINS
600 IF C <= 0 THEN PRINT "NO COINS TO SELL!": GOTO 650
610 MO = C * P
620 PRINT "SOLD FOR $", INT(MO*100)/100
630 C = 0
640 PRINT "TO THE MOON!"
650 FOR I = 1 TO 1000: NEXT I
660 GOTO 160
670 REM UPGRADE MINERS
700 IF C * P >= 50 THEN GOTO 720
710 PRINT "NEED MORE COINS!": GOTO 760
720 U = U + 1
730 C = C - 50/P
740 PRINT "MINERS UPGRADED!"
750 PRINT "+10% MINING POWER"
760 FOR I = 1 TO 1000: NEXT I
770 GOTO 160
780 REM PRICE CHECK
800 PRINT "CRYPTOK MARKET UPDATE:"
810 PRINT "BTC: $", INT(RND(1)*50000+20000)
820 PRINT "ETH: $", INT(RND(1)*3000+1000)
830 PRINT "SOL: $", INT(RND(1)*200+50)
840 PRINT "DOGE: $", INT(RND(1)0.5100)/100
850 PRINT "YOUR COIN: $", INT(P*100)/100
860 FOR I = 1 TO 2000: NEXT I
870 GOTO 160
880 REM QUIT GAME
900 PRINT CHR$(147)
910 PRINT "FINAL STATS:"
920 PRINT "TOTAL MINED:", INT(T)
930 PRINT "FINAL MINERS:", M
940 PRINT "UPGRADES:", U
950 PRINT
960 PRINT "THANKS FOR PLAYING!"
970 PRINT "VISIT CRYPTOK.ME FOR REAL CRYPTO!"
980 END
Fingers crossed! Have fun!
10 REM CRYPTOK IDLE SIMULATOR V1.0
20 REM FOR COMMODORE 64
30 PRINT CHR$(147): REM CLEAR SCREEN
40 PRINT "CRYPTOK IDLE SIMULATOR"
50 PRINT "====================="
60 PRINT
70 REM INITIALIZE VARIABLES
80 C = 0: REM COINS
90 M = 1: REM MINERS
100 P = 0.1: REM PRICE PER COIN
110 U = 0: REM UPGRADES
120 T = 0: REM TOTAL MINED
130 PRINT "STARTING YOUR CRYPTO EMPIRE..."
140 PRINT
150 REM MAIN GAME LOOP
160 PRINT "COINS:", INT(C*100)/100
170 PRINT "MINERS:", M
180 PRINT "COIN PRICE: $", INT(P*100)/100
190 PRINT "TOTAL MINED:", INT(T)
200 PRINT "UPGRADES:", U
210 PRINT
220 PRINT "1) WAIT (MINE COINS)"
230 PRINT "2) BUY MINER ($10)"
240 PRINT "3) SELL COINS"
250 PRINT "4) UPGRADE MINERS ($50)"
260 PRINT "5) CHECK CRYPTOK PRICES"
270 PRINT "6) QUIT"
280 PRINT
290 INPUT "CHOICE"; A
300 IF A = 1 THEN GOTO 400
310 IF A = 2 THEN GOTO 500
320 IF A = 3 THEN GOTO 600
330 IF A = 4 THEN GOTO 700
340 IF A = 5 THEN GOTO 800
350 IF A = 6 THEN GOTO 900
360 GOTO 160
370 REM MINING ROUTINE
400 MC = M (1 + U 0.1): REM MINING WITH UPGRADES
410 C = C + MC
420 T = T + MC
430 REM PRICE FLUCTUATION
440 P = P + (RND(1) - 0.5) * 0.02
450 IF P < 0.01 THEN P = 0.01
460 PRINT "MINED", INT(MC*100)/100, "COINS!"
470 FOR I = 1 TO 1000: NEXT I: REM DELAY
480 GOTO 160
490 REM BUY MINER
500 IF C * P >= 10 THEN GOTO 520
510 PRINT "NOT ENOUGH MONEY!": GOTO 550
520 M = M + 1
530 C = C - 10/P
540 PRINT "BOUGHT NEW MINER!"
550 FOR I = 1 TO 1000: NEXT I
560 GOTO 160
570 REM SELL COINS
600 IF C <= 0 THEN PRINT "NO COINS TO SELL!": GOTO 650
610 MO = C * P
620 PRINT "SOLD FOR $", INT(MO*100)/100
630 C = 0
640 PRINT "TO THE MOON!"
650 FOR I = 1 TO 1000: NEXT I
660 GOTO 160
670 REM UPGRADE MINERS
700 IF C * P >= 50 THEN GOTO 720
710 PRINT "NEED MORE COINS!": GOTO 760
720 U = U + 1
730 C = C - 50/P
740 PRINT "MINERS UPGRADED!"
750 PRINT "+10% MINING POWER"
760 FOR I = 1 TO 1000: NEXT I
770 GOTO 160
780 REM PRICE CHECK
800 PRINT "CRYPTOK MARKET UPDATE:"
810 PRINT "BTC: $", INT(RND(1)*50000+20000)
820 PRINT "ETH: $", INT(RND(1)*3000+1000)
830 PRINT "SOL: $", INT(RND(1)*200+50)
840 PRINT "DOGE: $", INT(RND(1)0.5100)/100
850 PRINT "YOUR COIN: $", INT(P*100)/100
860 FOR I = 1 TO 2000: NEXT I
870 GOTO 160
880 REM QUIT GAME
900 PRINT CHR$(147)
910 PRINT "FINAL STATS:"
920 PRINT "TOTAL MINED:", INT(T)
930 PRINT "FINAL MINERS:", M
940 PRINT "UPGRADES:", U
950 PRINT
960 PRINT "THANKS FOR PLAYING!"
970 PRINT "VISIT CRYPTOK.ME FOR REAL CRYPTO!"
980 END
Another gem made with Cryptok's AI...An idle/incremental CrypTok simulator, also in Commodore BASIC. Again, I can't promise that the game will run flawlessly, as it was freshly and just made with AI, but it should be a fun project to those who wish to modify the code to make it work.
Fingers crossed! Have fun!
10 REM CRYPTOK IDLE SIMULATOR V1.0
20 REM FOR COMMODORE 64
30 PRINT CHR$(147): REM CLEAR SCREEN
40 PRINT "CRYPTOK IDLE SIMULATOR"
50 PRINT "====================="
60 PRINT
70 REM INITIALIZE VARIABLES
80 C = 0: REM COINS
90 M = 1: REM MINERS
100 P = 0.1: REM PRICE PER COIN
110 U = 0: REM UPGRADES
120 T = 0: REM TOTAL MINED
130 PRINT "STARTING YOUR CRYPTO EMPIRE..."
140 PRINT
150 REM MAIN GAME LOOP
160 PRINT "COINS:", INT(C*100)/100
170 PRINT "MINERS:", M
180 PRINT "COIN PRICE: $", INT(P*100)/100
190 PRINT "TOTAL MINED:", INT(T)
200 PRINT "UPGRADES:", U
210 PRINT
220 PRINT "1) WAIT (MINE COINS)"
230 PRINT "2) BUY MINER ($10)"
240 PRINT "3) SELL COINS"
250 PRINT "4) UPGRADE MINERS ($50)"
260 PRINT "5) CHECK CRYPTOK PRICES"
270 PRINT "6) QUIT"
280 PRINT
290 INPUT "CHOICE"; A
300 IF A = 1 THEN GOTO 400
310 IF A = 2 THEN GOTO 500
320 IF A = 3 THEN GOTO 600
330 IF A = 4 THEN GOTO 700
340 IF A = 5 THEN GOTO 800
350 IF A = 6 THEN GOTO 900
360 GOTO 160
370 REM MINING ROUTINE
400 MC = M (1 + U 0.1): REM MINING WITH UPGRADES
410 C = C + MC
420 T = T + MC
430 REM PRICE FLUCTUATION
440 P = P + (RND(1) - 0.5) * 0.02
450 IF P < 0.01 THEN P = 0.01
460 PRINT "MINED", INT(MC*100)/100, "COINS!"
470 FOR I = 1 TO 1000: NEXT I: REM DELAY
480 GOTO 160
490 REM BUY MINER
500 IF C * P >= 10 THEN GOTO 520
510 PRINT "NOT ENOUGH MONEY!": GOTO 550
520 M = M + 1
530 C = C - 10/P
540 PRINT "BOUGHT NEW MINER!"
550 FOR I = 1 TO 1000: NEXT I
560 GOTO 160
570 REM SELL COINS
600 IF C <= 0 THEN PRINT "NO COINS TO SELL!": GOTO 650
610 MO = C * P
620 PRINT "SOLD FOR $", INT(MO*100)/100
630 C = 0
640 PRINT "TO THE MOON!"
650 FOR I = 1 TO 1000: NEXT I
660 GOTO 160
670 REM UPGRADE MINERS
700 IF C * P >= 50 THEN GOTO 720
710 PRINT "NEED MORE COINS!": GOTO 760
720 U = U + 1
730 C = C - 50/P
740 PRINT "MINERS UPGRADED!"
750 PRINT "+10% MINING POWER"
760 FOR I = 1 TO 1000: NEXT I
770 GOTO 160
780 REM PRICE CHECK
800 PRINT "CRYPTOK MARKET UPDATE:"
810 PRINT "BTC: $", INT(RND(1)*50000+20000)
820 PRINT "ETH: $", INT(RND(1)*3000+1000)
830 PRINT "SOL: $", INT(RND(1)*200+50)
840 PRINT "DOGE: $", INT(RND(1)0.5100)/100
850 PRINT "YOUR COIN: $", INT(P*100)/100
860 FOR I = 1 TO 2000: NEXT I
870 GOTO 160
880 REM QUIT GAME
900 PRINT CHR$(147)
910 PRINT "FINAL STATS:"
920 PRINT "TOTAL MINED:", INT(T)
930 PRINT "FINAL MINERS:", M
940 PRINT "UPGRADES:", U
950 PRINT
960 PRINT "THANKS FOR PLAYING!"
970 PRINT "VISIT CRYPTOK.ME FOR REAL CRYPTO!"
980 END
0 Reacties
0 aandelen
7 Views