Bingo

can anyone create a Bingo Game for me to play against computer and player (human) can use random numbers or enter numbers?

andrewmann123@... - to sent source code of BlitzBasic's program (blitzbasic plus) or program

You won't make much friends here while asking for DA C0DEZ!

No.

Yeah for a fee. Then again no. Battleships floats my boat ... ho ho! you've got me thiniking - can I get the code I wrote a millenia ago of a C90 with miniumu corruption 0 Aw, darnitt, off topic. This'll be a locked thread then. Sorry.

I'll do it, but it won't be free.

Yeah and being as boring as bingo it'd have to be a hefty fee.

He's being trying to make his own bingo game.

His best option is probably to post what he has done so far, and see if anyone can help him finish it.

nice suggestion puki, even if he just posts the code that is causing him problems, I'm sure folk would be willing to help.

Yeah but do you want him to post his media, puki?

Play bingo against a computer? Maybe I'm growing old, but isn't the point of a Bingo a hall full o' grannies filling in their matrix and one uber-grandpa with a 1-meter beard in front of the hall grabbing balls from a box and shouting their numbers? And if your 'bingo!' was false then you gotta sing a song.. etc. What's to play against a computer? What's there to win? :P

Having said that, one can do a Bingo machine easily in 2 hours, including the Photoshop part..

rand()

Sorry, bmax. But it'd take a peanut-brain to convert it to procedural older Blitzes.

SuperStrict

Type TBingo
	' by CS_TBL
	
	Field numbers:Int[]
	Field total:Int
	Field current:Int
	
	Method Setmaxnumbers(v:Int=100)
		numbers=New Int[v]
		total=v
		current=0		
	End Method
	
	Method Reset()
		For Local t:Int=0 To total-1
			numbers[t]=t
		Next
		current=0		
	End Method
	
	Method Shuffle(s:Int=0)
		SeedRnd s	
		Local l1:Int,l2:Int,v1:Int,v2:Int
		For Local t:Int=0 To total^1.5
			l1=Rnd(total)
			l2=Rnd(total)
			v1=numbers[l1]
			v2=numbers[l2]
			numbers[l1]=v2
			numbers[l2]=v1
		Next
	End Method
	
	Method debug()
		Local s$
		For Local t:Int=0 To total-1
			s:+numbers[t]+" "
		Next
		Print s
	End Method
	
	Method Givenext:Int()
		current:+1
		If current>total Return -1
		Return numbers[current-1]
	End Method
End Type

Local bla:TBingo=New TBingo

bla.Setmaxnumbers 25
bla.Reset
bla.Shuffle
bla.debug

Print "ball: "+bla.Givenext()
Print "ball: "+bla.Givenext()
Print "ball: "+bla.Givenext()
Print "ball: "+bla.Givenext()
Print "ball: "+bla.Givenext()

I think I've spotted the flaw in your logic CS_TBL...

Darkheart

what source code could i use to get blitzbasic plus to pick random numbers?

i can not pay anyone if i did it would have not be through paypal and not a lot of money (which seems to be wanted if created for me).

It's rather easy to port my bmax code to B+ tho, and it does exactly what you want: give random numbers.

At least you have a chance of winning real prizes.