A while back, I made an old game for FreeBasic, which in retrospect, was atrocious. It's listed in the FreeBasic Games Directory:
http://games.freebasic.net/dumpbyid.php?input=188
Anyway, I also have a YouTube series featuring my old games. The Bank Run series begins here:
https://youtu.be/Qfca9uAbc4g
What do you all think?
Bank Run game show FreeBasic game in YouTube TSD Let's Play series

 Posts: 71
 Joined: Oct 24, 2009 13:45
 Contact:
Re: Bank Run game show FreeBasic game in YouTube TSD Let's Play series
Very cool old school feel and sound.
I think the computer cheated. In the first round it deposited more than $1000 and in the second round it deposited much less.
I think the computer cheated. In the first round it deposited more than $1000 and in the second round it deposited much less.

 Posts: 71
 Joined: Oct 24, 2009 13:45
 Contact:
Re: Bank Run game show FreeBasic game in YouTube TSD Let's Play series
Yeah, I've noticed that too.
Well here's the problem:
I commented the last line which, if uncommented, would have solved the problem. However, it creates a new problem: The computer has to start over if he doesn't have exactly $1,000 in the boxes, which might take forever.
Still, I made an updated version made in Javascript. Stay tuned for the playthrough of that starting Feb. 27 (http://www.thesweepingdeveloper.com/lp_schedule.html). (I'm hoping the computer doesn't cheat this time...)
Well here's the problem:
Code: Select all
ComputerGuess1:
boxvalue(turn,a) = int(rnd * (strategy(strategypick,a,1)  strategy(strategypick,a,0)))+strategy(strategypick,a,0)
'if strategy(strategypick,a,0) = 10 and strategy(strategypick,a,1) = 250 then
' if moneyleft >= (250(a1)) then boxvalue(turn,a) = int(rnd * (250(a1))) else boxvalue(turn,a) = int(rnd * (moneyleft(a1)))
'end if
'print using "TURN # A # SP # S1 ### S2 ### BOXVALUE ###"; turn; a; strategypick; strategy(strategypick,a,0); strategy(strategypick,a,1); boxvalue(turn,a)
'sleep 500
if round = 3 then boxvalue(turn,a) = boxvalue(turn,a) * 2
'if strategypick = 0 and a < 4 then boxvalue(turn,a) = int(rnd * (strategy(strategypick,a,1)  strategy(strategypick,a,0)))+strategy(strategypick,a,0)
'if strategypick = 0 and a > 3 then boxvalue(turn,a) = int(rnd * 250)+1: if boxvalue(turn,a) > moneyleft ((6a)) then guess = moneyleft ((6a))
'if strategypick = 1 and a < 4 then boxvalue(turn,a) = int(rnd * (strategy(strategypick,a,1)  strategy(strategypick,a,0)))+strategy(strategypick,a,0)
'if strategypick = 1 and a > 3 then boxvalue(turn,a) = int(rnd * 250)+1: if boxvalue(turn,a) > moneyleft ((6a)) then guess = moneyleft ((6a))
'if strategypick = 2 then boxvalue(turn,a) = int(rnd * 250)+1: if boxvalue(turn,a) > moneyleft ((6a)) then guess = moneyleft ((6a))
'Rounds to the nearest $10
if boxvalue(turn,a) mod 10 > 4 then boxvalue(turn,a) = (int(boxvalue(turn,a)/10)+1)*10
if boxvalue(turn,a) mod 10 < 5 then boxvalue(turn,a) = int(boxvalue(turn,a)/10)*10
'if moneyleft <> 0 then goto ComputerGuess1
I commented the last line which, if uncommented, would have solved the problem. However, it creates a new problem: The computer has to start over if he doesn't have exactly $1,000 in the boxes, which might take forever.
Still, I made an updated version made in Javascript. Stay tuned for the playthrough of that starting Feb. 27 (http://www.thesweepingdeveloper.com/lp_schedule.html). (I'm hoping the computer doesn't cheat this time...)
Re: Bank Run game show FreeBasic game in YouTube TSD Let's Play series
Concerning the problem of doing the math to figure out the last box.
How about instead of showing the actual amounts in the boxes, just show the guesses and then at the end reveal the actual amounts?
How about instead of showing the actual amounts in the boxes, just show the guesses and then at the end reveal the actual amounts?
Re: Bank Run game show FreeBasic game in YouTube TSD Let's Play series
The game is charming, but I honestly think watching you play it is even more entertaining. Makes me want to revisit some of my old games now. : P
Subbing to your channel  I dare you to play through some of our other old games in the future. ^_^
Subbing to your channel  I dare you to play through some of our other old games in the future. ^_^
Who is online
Users browsing this forum: Tonigau and 7 guests