The DB Classic Programming Challenge Thread

Author

Message

pictionaryjr

16

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 19th Mar 2009 04:39

Link

So i guess it's only me and u that one smart guy

Back to top

Profile PM Email

pictionaryjr

16

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 24th Mar 2009 00:26 Edited at: 27th Mar 2009 04:29

Link

Here is mine so far. Not finished and very bugged.
Posted this even tho this thread is about to die.

sync on : sync rate 200 : autocam off
cls
ink rgb(255,255,255),0 : box 60,110,240,390 : ink rgb(255,0,0),0 : box 360,110,540,390
get image 1,50,100,250,400
get image 2,350,100,550,400
cls
ink rgb(255,0,0),0:box 2,400,638,478:ink rgb(255,255,255),0:box 6,403,106,475:box 140,403,240,475:box 274,403,374,475:box 407,403,509,475:ink rgb(128,0,0),0:box 7,404,105,474:box 141,404,239,474:box 275,404,373,474:box 408,404,508,474
ink rgb(255,255,255),0:center text 54,434,"Fold":center text 190,434,"Call":center text 326,434,"Raise":center text 457,434,"Quit":center text 538,434,"Cash:"
get image 3,1,399,639,479
cls
ink rgb(0,0,255),0:box 1,1,638,120:ink rgb(255,255,255),0:for t=1 to 100:dot rnd(637)+1,rnd(119)+1:next t:ink rgb(0,0,128),0:box 1,121,638,240:ink rgb(128,128,128),0:for t=1 to 100:dot rnd(637)+1,rnd(119)+122:next t:ink rgb(200,200,100),0
box 1,241,638,478:ink 0,0:for t=1 to 100:dot rnd(637)+1,rnd(236)+242:next t
get image 4,1,1,639,479
make object cylinder 1,100
make object cylinder 2,25
make object cylinder 3,25
make object cylinder 4,25
make object cylinder 5,25
position object 2,25,-20,25
position object 3,-25,-20,25
position object 4,-25,-20,-25
position object 5,25,-20,-25
scale object 2,20,140,20
scale object 3,20,140,20
scale object 4,20,140,20
scale object 5,20,140,20
scale object 1,100,5,100
for t=1 to 5 : color object t,rgb(50,50,0) : next t
make object plain 6,13,2
lock object on 6
texture object 6,3
position object 6,0,-4,8
make object plain 7,1000,1000
position object 7,0,-100,300
texture object 7,4
for t=11 to 12 : make object box t,10,15,0 : texture object t,2 : position object 11,-15,60,-125 : next t : position object 12,15,60,-125
for t=21 to 22 : make object box t,10,15,0 : texture object t,2 : position object 21,-15,60,30 : next t : position object 22,15,60,30
for t=31 to 33 : make object box t,10,15,0 : texture object t,2 : position object 31,-30,10,-20 : next t : position object 32,-15,10,-20 : position object 33,0,10,-20
position camera 0,75,-150
point camera 0,0,0
blind=rnd(1)+1
cash=200
ocash=200

gamestart:
if object exist(34)=1 then delete object 34
if object exist(35)=1 then delete object 35
cashd=0
ocashd=0
b=0
blind=blind+1
if blind=3 then blind=1
turn=blind+1
if turn=3 then turn=1
repeat
ink rgb(128,128,128),0
text 568,437,str$(cash)
center text 320,40,"Opponent's"
center text 320,60,"Cash:"
center text 320,80,str$(ocash)
pot=cashd+ocashd
if p31=1 or p32=1 or p33=1
else
	center text 320,200,"Pot"
	center text 320,270,str$(pot)
endif
yrot=yrot-2
if yrot<2 then yrot=0
for t=11 to 12
	if yrot=90
		texture object t+20,2
		texture object 33,2
	endif
	if yrot=70
		texture object 11,2
	endif
	if yrot=130
		texture object 12,2
	endif
	yrotate object t,yrot
	yrotate object t+20,yrot
	yrotate object 33,yrot
next t
sync
until yrot=0
do
gosub gamebegin
gosub flopbet
gosub 2drop
gosub 2dropbet
gosub 3drop
gosub 3dropbet
sync
loop

gamebegin:
flop=1
do
if yrot=180
gosub flopbet
else
	yrot=yrot+2
endif
for t=11 to 12
	if yrot=90
		texture object t+20,1
		texture object 33,1
		c31=rnd(12)+1 : c32=rnd(12)+1 : c33=rnd(12)+1
		s31=rnd(3)+1 : s32=rnd(3)+1 : s33=rnd(3)+1
	endif
	if yrot=70
		texture object 11,1
		c11=rnd(12)+1
		s11=rnd(3)+1
	endif
	if yrot=130
		texture object 12,1
		c12=rnd(12)+1
		s12=rnd(3)+1
	endif
	yrotate object t,yrot
	yrotate object t+20,yrot
	yrotate object 33,yrot
next t
gosub lose
gosub clicks
gosub money
gosub text
sync
loop

flopbet:
do
gosub chance1
gosub lose
if movement=0
	gosub turn
endif
gosub ai
gosub clicks
if call=1 or ocall=1 then gosub 2drop
gosub money
gosub text
sync
loop

2drop:
2drop=1
make object box 34,10,15,0 : texture object 34,2 : position object 34,15,10,-20
yrot=0
do
if yrot=180
gosub 2dropbet
else
	yrot=yrot+2
endif
if yrot=90
	texture object 34,1
	c34=rnd(12)+1
	s34=rnd(3)+1
endif
gosub lose
gosub clicks
gosub money
gosub text
sync
loop

2dropbet:
do
gosub chance2
gosub lose
if movement=0
	gosub turn
endif
gosub ai
gosub clicks
if call=1 or ocall=1 then gosub 3drop
gosub money
gosub text
sync
loop

3drop:
3drop=1
make object box 35,10,15,0 : texture object 35,2 : position object 35,30,10,-20
yrot=0
do
if yrot=180
gosub 3dropbet
else
	yrot=yrot+2
endif
if yrot=90
	texture object 35,1
	c35=rnd(12)+1
	s35=rnd(3)+1
endif
gosub lose
gosub clicks
gosub money
gosub text
sync
loop

3dropbet:
do
gosub chance2
gosub lose
if movement=0
	gosub turn
endif
gosub ai
gosub clicks
if call=1 or ocall=1 then gosub gamestart
gosub money
gosub text
sync
loop

function cards(suite,sx,sy,card,x1,x2,y1,y2)
if suite=1
	ink 0,0
	center text sx,sy,"Spades"
endif
if suite=2
	ink 0,0
	center text sx,sy,"Clubs"
endif
if suite=3
	ink rgb(255,0,0),0
	center text sx,sy,"Hearts"
endif
if suite=4
	ink rgb(255,0,0),0
	center text sx,sy,"Diamonds"
endif
if card>1 and card<11
	center text x1,y1,str$(card)
	center text x2,y2,str$(card)
endif
if card=1
	center text x1,y1,"A"
	center text x2,y2,"A"
endif
if card=11
	center text x1,y1,"J"
	center text x2,y2,"J"
endif
if card=12
	center text x1,y1,"Q"
	center text x2,y2,"Q"
endif
if card=13
	center text x1,y1,"K"
	center text x2,y2,"K"
endif
endfunction

text:
if yrot>=70 then cards(s11,530,260,c11,590,480,190,320)
if yrot>=130 then cards(s12,110,260,c12,50,160,190,320)
if flop=1
	if p31=1
		cards(s31,320,260,c31,380,270,190,320)
	else
		if s31=1
			ink 0,0
			center text 238,240,"S"
		endif
		if s31=2
			ink 0,0
			center text 238,240,"C"
		endif
		if s31=3
			ink rgb(255,0,0),0
			center text 238,240,"H"
		endif
		if s31=4
			ink rgb(255,0,0),0
			center text 238,240,"D"
		endif
		if c31>1 and c31<11
			center text 238,221,str$(c31)
		else
			if c31=1 then center text 238,221,"A"
			if c31=11 then center text 238,221,"J"
			if c31=12 then center text 238,221,"Q"
			if c31=13 then center text 238,221,"K"
		endif
	endif
	if p32=1
		cards(s32,320,260,c32,380,270,190,320)
	else
		if p33=1 or p31=1 or p34=1 or p35=1
		else
			if s32=1
				ink 0,0
				center text 280,240,"S"
			endif
			if s32=2
				ink 0,0
				center text 280,240,"C"
			endif
			if s32=3
				ink rgb(255,0,0),0
				center text 280,240,"H"
			endif
			if s32=4
				ink rgb(255,0,0),0
				center text 280,240,"D"
			endif
			if c32>1 and c32<11
				center text 280,221,str$(c32)
			else
				if c32=1 then center text 280,221,"A"
				if c32=11 then center text 280,221,"J"
				if c32=12 then center text 280,221,"Q"
				if c32=13 then center text 280,221,"K"
			endif
		endif
	endif
	if p33=1
	cards(s33,320,260,c33,380,270,190,320)
	else
		if p32=1 or p31=1 or p34=1 or p35=1
		else
			if s33=1
				ink 0,0
				center text 320,240,"S"
			endif
			if s33=2
				ink 0,0
				center text 320,240,"C"
			endif
			if s33=3
				ink rgb(255,0,0),0
				center text 320,240,"H"
			endif
			if s33=4
				ink rgb(255,0,0),0
				center text 320,240,"D"
			endif
			if c33>1 and c33<11
				center text 320,221,str$(c33)
			else
				if c33=1 then center text 320,221,"A"
				if c33=11 then center text 320,221,"J"
				if c33=12 then center text 320,221,"Q"
				if c33=13 then center text 320,221,"K"
			endif
		endif
	endif
endif
if 2drop=1
	if p34=1
		cards(s34,320,260,c34,380,270,190,320)
	else
		if p32=1 or p31=1 or p33=1 or p35=1
		else
			if s34=1
				ink 0,0
				center text 360,240,"S"
			endif
			if s34=2
				ink 0,0
				center text 360,240,"C"
			endif
			if s34=3
				ink rgb(255,0,0),0
				center text 360,240,"H"
			endif
			if s34=4
				ink rgb(255,0,0),0
				center text 360,240,"D"
			endif
			if c34>1 and c34<11
				center text 360,221,str$(c34)
			else
				if c34=1 then center text 360,221,"A"
				if c34=11 then center text 360,221,"J"
				if c34=12 then center text 360,221,"Q"
				if c34=13 then center text 360,221,"K"
			endif
		endif
	endif
endif
if 3drop=1
	if p35=1
		cards(s35,320,260,c35,380,270,190,320)
	else
		if s35=1
			ink 0,0
			center text 402,240,"S"
		endif
		if s35=2
			ink 0,0
			center text 402,240,"C"
		endif
		if s35=3
			ink rgb(255,0,0),0
			center text 402,240,"H"
		endif
		if s35=4
			ink rgb(255,0,0),0
			center text 402,240,"D"
		endif
		if c35>1 and c35<11
			center text 402,221,str$(c35)
		else
			if c35=1 then center text 402,221,"A"
			if c35=11 then center text 402,221,"J"
			if c35=12 then center text 402,221,"Q"
			if c35=13 then center text 402,221,"K"
		endif
	endif
endif
ink rgb(128,128,128),0
text 568,437,str$(cash)
center text 320,40,"Opponent's"
center text 320,60,"Cash:"
center text 320,80,str$(ocash)
pot=cashd+ocashd
if p31=1 or p32=1 or p33=1 or p34=1 or p35=1
else
	center text 320,200,"Pot"
	center text 320,270,str$(pot)
endif
return

clicks:
if turn=1
	if mx>0 and my>396 and mx<103 and my<479
		if mouseclick()=1
			fold=1
			movement=0
		endif
	endif
	if mx>138 and my>396 and mx<240 and my<479	
		if mouseclick()=1
			call=1
			movement=0
		endif
	endif
	if mx>274 and my>396 and mx<376 and my<479
		if mouseclick()=1
			raise=1
			input "";raised
			movement=0
		endif
	endif
endif
if mx>410 and my>396 and mx<514 and my<479
	if mouseclick()=1
		end
	endif
endif
mx=mousex()
my=mousey()

if mousex()>object screen x(31)-15 and mousex()<object screen x(31)+15 and mousey()>object screen y(31)-15 and mousey()<object screen y(31)+15
	if mouseclick()=1
		p31=p31+1
		if p31=3 then p31=1
		if p31=1
			position object 31,0,60,-125
		else
			position object 31,-30,10,-20
		endif
	endif
endif
if mousex()>object screen x(32)-15 and mousex()<object screen x(32)+15 and mousey()>object screen y(32)-15 and mousey()<object screen y(32)+15
	if mouseclick()=1
		p32=p32+1
		if p32=3 then p32=1
		if p32=1
			position object 32,0,60,-125
		else
			position object 32,-15,10,-20
		endif
	endif
endif
if mousex()>object screen x(33)-15 and mousex()<object screen x(33)+15 and mousey()>object screen y(33)-15 and mousey()<object screen y(33)+15
	if mouseclick()=1
		p33=p33+1
		if p33=3 then p33=1
		if p33=1
			position object 33,0,60,-125
		else
			position object 33,0,10,-20
		endif
	endif
endif
if object exist(34)=1
	if mousex()>object screen x(34)-15 and mousex()<object screen x(34)+15 and mousey()>object screen y(34)-15 and mousey()<object screen y(34)+15
		if mouseclick()=1
			p34=p34+1
			if p34=3 then p34=1
			if p34=1
				position object 34,0,60,-125
			else
				position object 34,15,10,-20
			endif
		endif
	endif
endif
if object exist(35)=1
	if mousex()>object screen x(35)-15 and mousex()<object screen x(35)+15 and mousey()>object screen y(35)-15 and mousey()<object screen y(35)+15
		if mouseclick()=1
			p35=p35+1
			if p35=3 then p35=1
			if p35=1
				position object 35,0,60,-125
			else
				position object 35,30,10,-20
			endif
		endif
	endif
endif
return

money:
if b=0
	if blind=1
		cashd=5
		cash=cash-cashd
	endif
	if blind=2
		ocashd=5
		ocash=ocash-ocashd
	endif
	b=1
endif
if raise=1
	if raised>cash then raised=cash
	cashd=cashd+raised
	cash=cash-raised
	raised=0
endif
if oraise=1
	if oraised>ocash then oraised=ocash
	ocashd=ocashd+oraised
	ocash=ocash-oraised
	oraised=0
endif
if call=1
	if cashd=0 and pot<6
		called=pot
	else
		called=oraised
	endif
	if called>cash then called=cash
	cashd=cashd+called
	cash=cash-called
	call=0
endif
if ocall=1
	if ocashd=0 and pot<6
		ocalled=pot
	else
		ocalled=raised
	endif
	if ocalled>ocash then ocalled=ocash
	ocashd=ocashd+ocalled
	ocash=ocash-ocalled
	ocall=0
endif
if fold=1
	ocash=ocash+pot
	fold=2
endif
if ofold=1
	cash=cash+pot
	ofold=2
endif
return

lose:
if fold=2
	fold=0
	gosub gamestart
endif
if ofold=2
	ofold=0
	gosub gamestart
endif
return

ai:
if turn=2
	if chance<2 and raised>0
		ofold=1
		movement=0
	endif
	if chance<15 and raised>50
		ofold=1
		movement=0
	endif
	if chance<20 and raised>75
		ofold=1
		movement=0
	endif
	if chance<35 and raised>100
		ofold=1
		movement=0
	endif
	if chance>10 and raised<0
		oraised=chance+50
		movement=0
	endif
	if chance>20 and raised<0
		oraised=chance+75
		movement=0
	endif
	if chance>35 and raised<0
		oraised=chance+100
		movement=0
	endif
	if chance>35 and raised<50
		oraise=1
		movement=0
	endif
	if chance>10 and raised<0
		oraise=1
		movement=0
	endif
	if chance>20 and raised<0
		oraise=1
		movement=0
	endif
	if chance>35 and raised<0
		oraise=1
		movement=0
	endif
	if chance>35 and raised<50
		oraised=raised+25
		movement=0
	endif
	if chance<20 and raised<50
		ocall=1
		movement=0
	endif
	if chance<10 and raised<25
		ocall=1
		movement=0
	endif
endif
return

Matches:
if c31=c32 or c31=c33 or c32=c33 then pairs=1
if c11=c12 or c11=c31 or c11=c32 or c11=c33 or c12=c31 or c12=c32 or c12=c33 then mpairs=1
if c21=c22 or c21=c31 or c21=c32 or c21=c33 or c22=c31 or c22=c32 or c22=c33 then opairs=1
if c11=c12 and c31=c32 or c11=c12 and c31=c33 or c11=c12 and c32=c33 or c11=c31 and c12=c32 or c11=c31 and c12=c33 or c11=c31 and c32=c33 then mtwopairs=1
if c11=c32 and c12=c31 or c11=c32 and c12=c33 or c11=c32 and c31=c32 or c11=c33 and c12=c31 or c11=c33 and c12=c32 or c11=c33 and c31=c32 then mtwopairs=1
if c12=c31 and c32=c33 or c12=c32 and c31=c33 or c12=c33 and c31=c32 then mtwopairs=1 
if c21=c22 and c31=c32 or c21=c22 and c31=c33 or c21=c22 and c32=c33 or c21=c31 and c22=c32 or c21=c31 and c22=c33 or c21=c31 and c32=c33 then otwopairs=1
if c21=c32 and c22=c31 or c21=c32 and c22=c33 or c21=c32 and c31=c32 or c21=c33 and c22=c31 or c21=c33 and c22=c32 or c21=c33 and c31=c32 then otwopairs=1
if c22=c31 and c32=c33 or c22=c32 and c31=c33 or c22=c33 and c31=c32 then otwopairs=1 
if c31=c32 and c32=c33 then threeofakind=1
if c11=c12 and c12=c31 or c11=c12 and c12=c32 or c11=c12 and c12=c33 or c11=c31 and c31=c32 or c11=c31 and c31=c33 or c11=c32 and c32=c33 then mthreeofakind=1
if c12=c31 and c31=c32 or c12=c31 and c31=c33 or c12=c32 and c32=c33 then mthreeofakind=1
if c21=c22 and c22=c31 or c21=c22 and c22=c32 or c21=c22 and c22=c33 or c21=c31 and c31=c32 or c21=c31 and c31=c33 or c21=c32 and c32=c33 then othreeofakind=1
if c22=c31 and c31=c32 or c22=c31 and c31=c33 or c22=c32 and c32=c33 then othreeofakind=1
if c11=c12 and c12=c31 and c31=c32 or c11=c12 and c12=c31 and c31=c33 or c12=c31 and c31=c32 and c32=c33 then mfourofakind=1
if c21=c22 and c22=c31 and c31=c32 or c21=c22 and c22=c31 and c31=c33 or c22=c31 and c31=c32 and c32=c33 then ofourofakind=1
if c11=c12 and c31=c32 and c32=c33 or c11=c31 and c12=c32 and c32=c33 or c11=c32 and c12=c31 and c31=c33 or c11=c33 and c12=c32 and c32=c33 then mfullhouse=1
if c12=c31 and c11=c32 and c32=c33 or c12=c32 and c11=c31 and c31=c33 or c12=c33 and c11=c31 and c31=c32 or c31=c32 and c11=c12 and c12=c33 then mfullhouse=1
if c31=c33 and c11=c12 and c12=c32 or c32=c33 and c11=c12 and c12=c31 then mfullhouse=1
if c21=c22 and c31=c32 and c32=c33 or c21=c31 and c22=c32 and c32=c33 or c21=c32 and c22=c31 and c31=c33 or c21=c33 and c22=c32 and c32=c33 then ofullhouse=1
if c22=c31 and c21=c32 and c32=c33 or c22=c32 and c21=c31 and c31=c33 or c22=c33 and c21=c31 and c31=c32 or c31=c32 and c21=c22 and c22=c33 then ofullhouse=1
if c31=c33 and c21=c22 and c22=c32 or c32=c33 and c21=c12 and c22=c31 then ofullhouse=1
for a=1 to 7
	for b=1 to 7
		for c=1 to 7
			for d=1 to 7
				for e=1 to 7
					if a=1 then a=c11
					if a=2 then a=c12
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c11
					if b=2 then b=c12
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c11
					if c=2 then c=c12
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c11
					if d=2 then d=c12
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c11
					if e=2 then e=c12
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 then mstraight=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c21
					if a=2 then a=c22
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c21
					if b=2 then b=c22
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c21
					if c=2 then c=c22
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c21
					if d=2 then d=c22
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c21
					if e=2 then e=c22
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 then ostraight=1
				next e
			next d
		next c
	next b
next a
if s11=s12 and s12=s31 and s31=s32 and s32=s33 then mflush=1
if s21=s22 and s22=s31 and s31=s32 and s32=s33 then oflush=1
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c11
					if a=2 then a=c12
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c11
					if b=2 then b=c12
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c11
					if c=2 then c=c12
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c11
					if d=2 then d=c12
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c11
					if e=2 then e=c12
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mstraightflush=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c21
					if a=2 then a=c22
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c21
					if b=2 then b=c22
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c21
					if c=2 then c=c22
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c21
					if d=2 then d=c22
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c21
					if e=2 then e=c22
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then ostraightflush=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c11
					if a=2 then a=c12
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c11
					if b=2 then b=c12
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c11
					if c=2 then c=c12
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c11
					if d=2 then d=c12
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c11
					if e=2 then e=c12
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=1 and b=10 and c=11 and d=12 and e=13 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=10 and b=11 and c=12 and d=13 and e=1 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=11 and b=12 and c=13 and d=1 and e=10 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=12 and b=13 and c=1 and d=10 and e=11 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=13 and b=1 and c=10 and d=11 and e=12 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c21
					if a=2 then a=c22
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c21
					if b=2 then b=c22
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c21
					if c=2 then c=c22
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c21
					if d=2 then d=c22
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c21
					if e=2 then e=c22
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=1 and b=10 and c=11 and d=12 and e=13 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=10 and b=11 and c=12 and d=13 and e=1 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=11 and b=12 and c=13 and d=1 and e=10 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=12 and b=13 and c=1 and d=10 and e=11 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=13 and b=1 and c=10 and d=11 and e=12 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
				next e
			next d
		next c
	next b
next a
return

chance1:
if chance<45
	if pairs=0 or opairs=0 then chance=45
endif
if chance<42
	if pairs=1 and twopairs=0 or opairs=1 and otwopairs=0 then chance=42
endif
if chance<4
	if pairs=1 and threeofakind=0 or opairs=1 and othreeofakind=0 then chance=4
endif
if chance<1
	if threeofakind=1 and ofourofakind=0 or othreeofakind=1 and ofourofakind=0 then chance=1
endif
if chance<12
	if threeofakind=1 and ofullhouse=0 or othreeofakind=1 and ofullhouse=0 then chance=12
endif
if chance<9
	if otwopairs=1 and ofullhouse=0 then chance=9
endif
if chance<6
	if ostraight=2 then chance=6
endif
if chance<20
	if oflush=1 then chance=20
endif
if chance<1
	if oflush=1 and ostraight=0 then chance=1
endif
if chance<1
	if oflush=0 and ostraight=1 then chance=1
endif
if chance<1
	if oflush=1 and ostraight=1 and oroyalflush=0 then chance=1
endif
return

chance2:
if chance<40
	if pairs=0 or opairs=0 then chance=40
endif
if chance<35
	if pairs=1 and twopairs=0 or opairs=1 and otwopairs=0 then chance=35
endif
if chance<5
	if pairs=1 and threeofakind=0 or opairs=1 and othreeofakind=0 then chance=5
endif
if chance<1
	if threeofakind=1 and ofourofakind=0 or othreeofakind=1 and ofourofakind=0 then chance=1
endif
if chance<13
	if threeofakind=1 and ofullhouse=0 or othreeofakind=1 and ofullhouse=0 then chance=13
endif
if chance<14
	if otwopairs=1 and ofullhouse=0 then chance=14
endif
if chance<7
	if ostraight=2 then chance=7
endif
if chance<22
	if oflush=1 then chance=22
endif
if chance<1
	if oflush=1 and ostraight=0 then chance=1
endif
if chance<1
	if oflush=0 and ostraight=1 then chance=1
endif
if chance<1
	if oflush=1 and ostraight=1 and oroyalflush=0 then chance=1
endif
return

turn:
turn=turn+1
if turn=3 then turn=1
movement=1
return

win:
if mtwopairs=0 and otwopairs=0 and threeofakind=0 and mthreeofakind=0 and othreeofakind=0 and mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0mstraight=0 and ostraight=0
	if opairs=0 and mpairs=0 and pairs=0 and mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0 and mstraight=0 and ostraight=0
		if c11>c21 and c11>c22 and c11>c31 and c11>c32 and c11>33 or c12>c21 and c12>c22 and c12>c31 and c12>32 and c12>c33 then mwin=1
		if c21>c21 and c21>c22 and c21>c31 and c21>c32 and c21>33 or c22>c21 and c22>c22 and c22>c31 and c22>32 and c22>c33 then owin=1
		if c31>c11 and c31>c12 and c31>c21 and c31>c22 or c32>c11 and c32>c12 and c32>c21 and c32>c22 or c33>c11 and c33>c12 and c33>c21 and c33>c22 then tie=1
	endif
endif
if mtwopairs=0 and otwopairs=0 and threeofakind=0 and mthreeofakind=0 and othreeofakind=0 and mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0 and mstraight=0 and ostraight=0
		if opairs=1 and mpairs=0 and pairs=0 then owin=1
		if opairs=0 and mpairs=1 and pairs=0 then mwin=1
		if opairs=1 and mpairs=1 and pairs=0 or opairs=1 and mpairs=0 and pairs=1 or opairs=0 and mpairs=1 and pairs=1 then tie=1
	endif
endif
if threeofakind=0 and mthreeofakind=0 and othreeofakind=0 and mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0 and mstraight=0 and ostraight=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0
		if otwopairs=1 and mtwopairs=0 then owin=1
		if otwopairs=0 and mtwopairs=1 then mwin=1
		if otwopairs=1 and mtwopairs=1 or mtwopairs=0 and otwopairs=0 then tie=1
	endif
endif
if mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0 and mstraight=0 and ostraight=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0
		if othreeofakind=1 and mthreeofakind=0 and threeofakind=0 then owin=1
		if othreeofakind=0 and mthreeofakind=1 and threeofakind=0 then mwin=1
		if othreeofakind=1 and mthreeofakind=1 and threeofakind=0 or threeofakind=1 and mthreeofakind=0 and othreeofakind=1 or othreeofakind=0 and mthreeofakind=1 and threeofakind=1 then tie=1
	endif
endif
if mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0
		if ostraight=1 and mstraight=0 then owin=1
		if ostraight=0 and mstraightd=1 then mwin=1
		if ostraight=1 and mstraight=1 or mthreeofakind=0 and othreeofakind=1 or othreeofakind=0 and mthreeofakind=1 and threeofakind=1 then tie=1
	endif
endif
if mwin=1
	cash=cash+pot
	gosub gamestart
endif
if owin=1
	ocash=ocash+pot
	gosub gamestart
endif
if tie=1
	pot=pot/2
	cash=cash+pot
	ocash=ocash+pot
	gosub gamestart
endif
return

+ Code Snippet

sync on : sync rate 200 : autocam off
cls
ink rgb(255,255,255),0 : box 60,110,240,390 : ink rgb(255,0,0),0 : box 360,110,540,390
get image 1,50,100,250,400
get image 2,350,100,550,400
cls
ink rgb(255,0,0),0:box 2,400,638,478:ink rgb(255,255,255),0:box 6,403,106,475:box 140,403,240,475:box 274,403,374,475:box 407,403,509,475:ink rgb(128,0,0),0:box 7,404,105,474:box 141,404,239,474:box 275,404,373,474:box 408,404,508,474
ink rgb(255,255,255),0:center text 54,434,"Fold":center text 190,434,"Call":center text 326,434,"Raise":center text 457,434,"Quit":center text 538,434,"Cash:"
get image 3,1,399,639,479
cls
ink rgb(0,0,255),0:box 1,1,638,120:ink rgb(255,255,255),0:for t=1 to 100:dot rnd(637)+1,rnd(119)+1:next t:ink rgb(0,0,128),0:box 1,121,638,240:ink rgb(128,128,128),0:for t=1 to 100:dot rnd(637)+1,rnd(119)+122:next t:ink rgb(200,200,100),0
box 1,241,638,478:ink 0,0:for t=1 to 100:dot rnd(637)+1,rnd(236)+242:next t
get image 4,1,1,639,479
make object cylinder 1,100
make object cylinder 2,25
make object cylinder 3,25
make object cylinder 4,25
make object cylinder 5,25
position object 2,25,-20,25
position object 3,-25,-20,25
position object 4,-25,-20,-25
position object 5,25,-20,-25
scale object 2,20,140,20
scale object 3,20,140,20
scale object 4,20,140,20
scale object 5,20,140,20
scale object 1,100,5,100
for t=1 to 5 : color object t,rgb(50,50,0) : next t
make object plain 6,13,2
lock object on 6
texture object 6,3
position object 6,0,-4,8
make object plain 7,1000,1000
position object 7,0,-100,300
texture object 7,4
for t=11 to 12 : make object box t,10,15,0 : texture object t,2 : position object 11,-15,60,-125 : next t : position object 12,15,60,-125
for t=21 to 22 : make object box t,10,15,0 : texture object t,2 : position object 21,-15,60,30 : next t : position object 22,15,60,30
for t=31 to 33 : make object box t,10,15,0 : texture object t,2 : position object 31,-30,10,-20 : next t : position object 32,-15,10,-20 : position object 33,0,10,-20
position camera 0,75,-150
point camera 0,0,0
blind=rnd(1)+1
cash=200
ocash=200



gamestart:
if object exist(34)=1 then delete object 34
if object exist(35)=1 then delete object 35
cashd=0
ocashd=0
b=0
blind=blind+1
if blind=3 then blind=1
turn=blind+1
if turn=3 then turn=1
repeat
ink rgb(128,128,128),0
text 568,437,str$(cash)
center text 320,40,"Opponent's"
center text 320,60,"Cash:"
center text 320,80,str$(ocash)
pot=cashd+ocashd
if p31=1 or p32=1 or p33=1
else
	center text 320,200,"Pot"
	center text 320,270,str$(pot)
endif
yrot=yrot-2
if yrot<2 then yrot=0
for t=11 to 12
	if yrot=90
		texture object t+20,2
		texture object 33,2
	endif
	if yrot=70
		texture object 11,2
	endif
	if yrot=130
		texture object 12,2
	endif
	yrotate object t,yrot
	yrotate object t+20,yrot
	yrotate object 33,yrot
next t
sync
until yrot=0
do
gosub gamebegin
gosub flopbet
gosub 2drop
gosub 2dropbet
gosub 3drop
gosub 3dropbet
sync
loop



gamebegin:
flop=1
do
if yrot=180
gosub flopbet
else
	yrot=yrot+2
endif
for t=11 to 12
	if yrot=90
		texture object t+20,1
		texture object 33,1
		c31=rnd(12)+1 : c32=rnd(12)+1 : c33=rnd(12)+1
		s31=rnd(3)+1 : s32=rnd(3)+1 : s33=rnd(3)+1
	endif
	if yrot=70
		texture object 11,1
		c11=rnd(12)+1
		s11=rnd(3)+1
	endif
	if yrot=130
		texture object 12,1
		c12=rnd(12)+1
		s12=rnd(3)+1
	endif
	yrotate object t,yrot
	yrotate object t+20,yrot
	yrotate object 33,yrot
next t
gosub lose
gosub clicks
gosub money
gosub text
sync
loop



flopbet:
do
gosub chance1
gosub lose
if movement=0
	gosub turn
endif
gosub ai
gosub clicks
if call=1 or ocall=1 then gosub 2drop
gosub money
gosub text
sync
loop



2drop:
2drop=1
make object box 34,10,15,0 : texture object 34,2 : position object 34,15,10,-20
yrot=0
do
if yrot=180
gosub 2dropbet
else
	yrot=yrot+2
endif
if yrot=90
	texture object 34,1
	c34=rnd(12)+1
	s34=rnd(3)+1
endif
gosub lose
gosub clicks
gosub money
gosub text
sync
loop



2dropbet:
do
gosub chance2
gosub lose
if movement=0
	gosub turn
endif
gosub ai
gosub clicks
if call=1 or ocall=1 then gosub 3drop
gosub money
gosub text
sync
loop



3drop:
3drop=1
make object box 35,10,15,0 : texture object 35,2 : position object 35,30,10,-20
yrot=0
do
if yrot=180
gosub 3dropbet
else
	yrot=yrot+2
endif
if yrot=90
	texture object 35,1
	c35=rnd(12)+1
	s35=rnd(3)+1
endif
gosub lose
gosub clicks
gosub money
gosub text
sync
loop



3dropbet:
do
gosub chance2
gosub lose
if movement=0
	gosub turn
endif
gosub ai
gosub clicks
if call=1 or ocall=1 then gosub gamestart
gosub money
gosub text
sync
loop



function cards(suite,sx,sy,card,x1,x2,y1,y2)
if suite=1
	ink 0,0
	center text sx,sy,"Spades"
endif
if suite=2
	ink 0,0
	center text sx,sy,"Clubs"
endif
if suite=3
	ink rgb(255,0,0),0
	center text sx,sy,"Hearts"
endif
if suite=4
	ink rgb(255,0,0),0
	center text sx,sy,"Diamonds"
endif
if card>1 and card<11
	center text x1,y1,str$(card)
	center text x2,y2,str$(card)
endif
if card=1
	center text x1,y1,"A"
	center text x2,y2,"A"
endif
if card=11
	center text x1,y1,"J"
	center text x2,y2,"J"
endif
if card=12
	center text x1,y1,"Q"
	center text x2,y2,"Q"
endif
if card=13
	center text x1,y1,"K"
	center text x2,y2,"K"
endif
endfunction



text:
if yrot>=70 then cards(s11,530,260,c11,590,480,190,320)
if yrot>=130 then cards(s12,110,260,c12,50,160,190,320)
if flop=1
	if p31=1
		cards(s31,320,260,c31,380,270,190,320)
	else
		if s31=1
			ink 0,0
			center text 238,240,"S"
		endif
		if s31=2
			ink 0,0
			center text 238,240,"C"
		endif
		if s31=3
			ink rgb(255,0,0),0
			center text 238,240,"H"
		endif
		if s31=4
			ink rgb(255,0,0),0
			center text 238,240,"D"
		endif
		if c31>1 and c31<11
			center text 238,221,str$(c31)
		else
			if c31=1 then center text 238,221,"A"
			if c31=11 then center text 238,221,"J"
			if c31=12 then center text 238,221,"Q"
			if c31=13 then center text 238,221,"K"
		endif
	endif
	if p32=1
		cards(s32,320,260,c32,380,270,190,320)
	else
		if p33=1 or p31=1 or p34=1 or p35=1
		else
			if s32=1
				ink 0,0
				center text 280,240,"S"
			endif
			if s32=2
				ink 0,0
				center text 280,240,"C"
			endif
			if s32=3
				ink rgb(255,0,0),0
				center text 280,240,"H"
			endif
			if s32=4
				ink rgb(255,0,0),0
				center text 280,240,"D"
			endif
			if c32>1 and c32<11
				center text 280,221,str$(c32)
			else
				if c32=1 then center text 280,221,"A"
				if c32=11 then center text 280,221,"J"
				if c32=12 then center text 280,221,"Q"
				if c32=13 then center text 280,221,"K"
			endif
		endif
	endif
	if p33=1
	cards(s33,320,260,c33,380,270,190,320)
	else
		if p32=1 or p31=1 or p34=1 or p35=1
		else
			if s33=1
				ink 0,0
				center text 320,240,"S"
			endif
			if s33=2
				ink 0,0
				center text 320,240,"C"
			endif
			if s33=3
				ink rgb(255,0,0),0
				center text 320,240,"H"
			endif
			if s33=4
				ink rgb(255,0,0),0
				center text 320,240,"D"
			endif
			if c33>1 and c33<11
				center text 320,221,str$(c33)
			else
				if c33=1 then center text 320,221,"A"
				if c33=11 then center text 320,221,"J"
				if c33=12 then center text 320,221,"Q"
				if c33=13 then center text 320,221,"K"
			endif
		endif
	endif
endif
if 2drop=1
	if p34=1
		cards(s34,320,260,c34,380,270,190,320)
	else
		if p32=1 or p31=1 or p33=1 or p35=1
		else
			if s34=1
				ink 0,0
				center text 360,240,"S"
			endif
			if s34=2
				ink 0,0
				center text 360,240,"C"
			endif
			if s34=3
				ink rgb(255,0,0),0
				center text 360,240,"H"
			endif
			if s34=4
				ink rgb(255,0,0),0
				center text 360,240,"D"
			endif
			if c34>1 and c34<11
				center text 360,221,str$(c34)
			else
				if c34=1 then center text 360,221,"A"
				if c34=11 then center text 360,221,"J"
				if c34=12 then center text 360,221,"Q"
				if c34=13 then center text 360,221,"K"
			endif
		endif
	endif
endif
if 3drop=1
	if p35=1
		cards(s35,320,260,c35,380,270,190,320)
	else
		if s35=1
			ink 0,0
			center text 402,240,"S"
		endif
		if s35=2
			ink 0,0
			center text 402,240,"C"
		endif
		if s35=3
			ink rgb(255,0,0),0
			center text 402,240,"H"
		endif
		if s35=4
			ink rgb(255,0,0),0
			center text 402,240,"D"
		endif
		if c35>1 and c35<11
			center text 402,221,str$(c35)
		else
			if c35=1 then center text 402,221,"A"
			if c35=11 then center text 402,221,"J"
			if c35=12 then center text 402,221,"Q"
			if c35=13 then center text 402,221,"K"
		endif
	endif
endif
ink rgb(128,128,128),0
text 568,437,str$(cash)
center text 320,40,"Opponent's"
center text 320,60,"Cash:"
center text 320,80,str$(ocash)
pot=cashd+ocashd
if p31=1 or p32=1 or p33=1 or p34=1 or p35=1
else
	center text 320,200,"Pot"
	center text 320,270,str$(pot)
endif
return



clicks:
if turn=1
	if mx>0 and my>396 and mx<103 and my<479
		if mouseclick()=1
			fold=1
			movement=0
		endif
	endif
	if mx>138 and my>396 and mx<240 and my<479	
		if mouseclick()=1
			call=1
			movement=0
		endif
	endif
	if mx>274 and my>396 and mx<376 and my<479
		if mouseclick()=1
			raise=1
			input "";raised
			movement=0
		endif
	endif
endif
if mx>410 and my>396 and mx<514 and my<479
	if mouseclick()=1
		end
	endif
endif
mx=mousex()
my=mousey()

if mousex()>object screen x(31)-15 and mousex()<object screen x(31)+15 and mousey()>object screen y(31)-15 and mousey()<object screen y(31)+15
	if mouseclick()=1
		p31=p31+1
		if p31=3 then p31=1
		if p31=1
			position object 31,0,60,-125
		else
			position object 31,-30,10,-20
		endif
	endif
endif
if mousex()>object screen x(32)-15 and mousex()<object screen x(32)+15 and mousey()>object screen y(32)-15 and mousey()<object screen y(32)+15
	if mouseclick()=1
		p32=p32+1
		if p32=3 then p32=1
		if p32=1
			position object 32,0,60,-125
		else
			position object 32,-15,10,-20
		endif
	endif
endif
if mousex()>object screen x(33)-15 and mousex()<object screen x(33)+15 and mousey()>object screen y(33)-15 and mousey()<object screen y(33)+15
	if mouseclick()=1
		p33=p33+1
		if p33=3 then p33=1
		if p33=1
			position object 33,0,60,-125
		else
			position object 33,0,10,-20
		endif
	endif
endif
if object exist(34)=1
	if mousex()>object screen x(34)-15 and mousex()<object screen x(34)+15 and mousey()>object screen y(34)-15 and mousey()<object screen y(34)+15
		if mouseclick()=1
			p34=p34+1
			if p34=3 then p34=1
			if p34=1
				position object 34,0,60,-125
			else
				position object 34,15,10,-20
			endif
		endif
	endif
endif
if object exist(35)=1
	if mousex()>object screen x(35)-15 and mousex()<object screen x(35)+15 and mousey()>object screen y(35)-15 and mousey()<object screen y(35)+15
		if mouseclick()=1
			p35=p35+1
			if p35=3 then p35=1
			if p35=1
				position object 35,0,60,-125
			else
				position object 35,30,10,-20
			endif
		endif
	endif
endif
return



money:
if b=0
	if blind=1
		cashd=5
		cash=cash-cashd
	endif
	if blind=2
		ocashd=5
		ocash=ocash-ocashd
	endif
	b=1
endif
if raise=1
	if raised>cash then raised=cash
	cashd=cashd+raised
	cash=cash-raised
	raised=0
endif
if oraise=1
	if oraised>ocash then oraised=ocash
	ocashd=ocashd+oraised
	ocash=ocash-oraised
	oraised=0
endif
if call=1
	if cashd=0 and pot<6
		called=pot
	else
		called=oraised
	endif
	if called>cash then called=cash
	cashd=cashd+called
	cash=cash-called
	call=0
endif
if ocall=1
	if ocashd=0 and pot<6
		ocalled=pot
	else
		ocalled=raised
	endif
	if ocalled>ocash then ocalled=ocash
	ocashd=ocashd+ocalled
	ocash=ocash-ocalled
	ocall=0
endif
if fold=1
	ocash=ocash+pot
	fold=2
endif
if ofold=1
	cash=cash+pot
	ofold=2
endif
return



lose:
if fold=2
	fold=0
	gosub gamestart
endif
if ofold=2
	ofold=0
	gosub gamestart
endif
return



ai:
if turn=2
	if chance<2 and raised>0
		ofold=1
		movement=0
	endif
	if chance<15 and raised>50
		ofold=1
		movement=0
	endif
	if chance<20 and raised>75
		ofold=1
		movement=0
	endif
	if chance<35 and raised>100
		ofold=1
		movement=0
	endif
	if chance>10 and raised<0
		oraised=chance+50
		movement=0
	endif
	if chance>20 and raised<0
		oraised=chance+75
		movement=0
	endif
	if chance>35 and raised<0
		oraised=chance+100
		movement=0
	endif
	if chance>35 and raised<50
		oraise=1
		movement=0
	endif
	if chance>10 and raised<0
		oraise=1
		movement=0
	endif
	if chance>20 and raised<0
		oraise=1
		movement=0
	endif
	if chance>35 and raised<0
		oraise=1
		movement=0
	endif
	if chance>35 and raised<50
		oraised=raised+25
		movement=0
	endif
	if chance<20 and raised<50
		ocall=1
		movement=0
	endif
	if chance<10 and raised<25
		ocall=1
		movement=0
	endif
endif
return



Matches:
if c31=c32 or c31=c33 or c32=c33 then pairs=1
if c11=c12 or c11=c31 or c11=c32 or c11=c33 or c12=c31 or c12=c32 or c12=c33 then mpairs=1
if c21=c22 or c21=c31 or c21=c32 or c21=c33 or c22=c31 or c22=c32 or c22=c33 then opairs=1
if c11=c12 and c31=c32 or c11=c12 and c31=c33 or c11=c12 and c32=c33 or c11=c31 and c12=c32 or c11=c31 and c12=c33 or c11=c31 and c32=c33 then mtwopairs=1
if c11=c32 and c12=c31 or c11=c32 and c12=c33 or c11=c32 and c31=c32 or c11=c33 and c12=c31 or c11=c33 and c12=c32 or c11=c33 and c31=c32 then mtwopairs=1
if c12=c31 and c32=c33 or c12=c32 and c31=c33 or c12=c33 and c31=c32 then mtwopairs=1 
if c21=c22 and c31=c32 or c21=c22 and c31=c33 or c21=c22 and c32=c33 or c21=c31 and c22=c32 or c21=c31 and c22=c33 or c21=c31 and c32=c33 then otwopairs=1
if c21=c32 and c22=c31 or c21=c32 and c22=c33 or c21=c32 and c31=c32 or c21=c33 and c22=c31 or c21=c33 and c22=c32 or c21=c33 and c31=c32 then otwopairs=1
if c22=c31 and c32=c33 or c22=c32 and c31=c33 or c22=c33 and c31=c32 then otwopairs=1 
if c31=c32 and c32=c33 then threeofakind=1
if c11=c12 and c12=c31 or c11=c12 and c12=c32 or c11=c12 and c12=c33 or c11=c31 and c31=c32 or c11=c31 and c31=c33 or c11=c32 and c32=c33 then mthreeofakind=1
if c12=c31 and c31=c32 or c12=c31 and c31=c33 or c12=c32 and c32=c33 then mthreeofakind=1
if c21=c22 and c22=c31 or c21=c22 and c22=c32 or c21=c22 and c22=c33 or c21=c31 and c31=c32 or c21=c31 and c31=c33 or c21=c32 and c32=c33 then othreeofakind=1
if c22=c31 and c31=c32 or c22=c31 and c31=c33 or c22=c32 and c32=c33 then othreeofakind=1
if c11=c12 and c12=c31 and c31=c32 or c11=c12 and c12=c31 and c31=c33 or c12=c31 and c31=c32 and c32=c33 then mfourofakind=1
if c21=c22 and c22=c31 and c31=c32 or c21=c22 and c22=c31 and c31=c33 or c22=c31 and c31=c32 and c32=c33 then ofourofakind=1
if c11=c12 and c31=c32 and c32=c33 or c11=c31 and c12=c32 and c32=c33 or c11=c32 and c12=c31 and c31=c33 or c11=c33 and c12=c32 and c32=c33 then mfullhouse=1
if c12=c31 and c11=c32 and c32=c33 or c12=c32 and c11=c31 and c31=c33 or c12=c33 and c11=c31 and c31=c32 or c31=c32 and c11=c12 and c12=c33 then mfullhouse=1
if c31=c33 and c11=c12 and c12=c32 or c32=c33 and c11=c12 and c12=c31 then mfullhouse=1
if c21=c22 and c31=c32 and c32=c33 or c21=c31 and c22=c32 and c32=c33 or c21=c32 and c22=c31 and c31=c33 or c21=c33 and c22=c32 and c32=c33 then ofullhouse=1
if c22=c31 and c21=c32 and c32=c33 or c22=c32 and c21=c31 and c31=c33 or c22=c33 and c21=c31 and c31=c32 or c31=c32 and c21=c22 and c22=c33 then ofullhouse=1
if c31=c33 and c21=c22 and c22=c32 or c32=c33 and c21=c12 and c22=c31 then ofullhouse=1
for a=1 to 7
	for b=1 to 7
		for c=1 to 7
			for d=1 to 7
				for e=1 to 7
					if a=1 then a=c11
					if a=2 then a=c12
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c11
					if b=2 then b=c12
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c11
					if c=2 then c=c12
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c11
					if d=2 then d=c12
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c11
					if e=2 then e=c12
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 then mstraight=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c21
					if a=2 then a=c22
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c21
					if b=2 then b=c22
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c21
					if c=2 then c=c22
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c21
					if d=2 then d=c22
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c21
					if e=2 then e=c22
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 then ostraight=1
				next e
			next d
		next c
	next b
next a
if s11=s12 and s12=s31 and s31=s32 and s32=s33 then mflush=1
if s21=s22 and s22=s31 and s31=s32 and s32=s33 then oflush=1
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c11
					if a=2 then a=c12
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c11
					if b=2 then b=c12
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c11
					if c=2 then c=c12
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c11
					if d=2 then d=c12
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c11
					if e=2 then e=c12
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mstraightflush=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c21
					if a=2 then a=c22
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c21
					if b=2 then b=c22
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c21
					if c=2 then c=c22
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c21
					if d=2 then d=c22
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c21
					if e=2 then e=c22
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=b-1 and b=c-1 and c=d-1 and d=e-1 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then ostraightflush=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c11
					if a=2 then a=c12
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c11
					if b=2 then b=c12
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c11
					if c=2 then c=c12
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c11
					if d=2 then d=c12
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c11
					if e=2 then e=c12
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=1 and b=10 and c=11 and d=12 and e=13 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=10 and b=11 and c=12 and d=13 and e=1 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=11 and b=12 and c=13 and d=1 and e=10 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=12 and b=13 and c=1 and d=10 and e=11 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
					if a=13 and b=1 and c=10 and d=11 and e=12 and s11=s12 and s12=s31 and s31=s32 and s32=s33 then mRoyalflush=1
				next e
			next d
		next c
	next b
next a
for a=1 to 5
	for b=1 to 5
		for c=1 to 5
			for d=1 to 5
				for e=1 to 5
					if a=1 then a=c21
					if a=2 then a=c22
					if a=3 then a=c31
					if a=4 then a=c32
					if a=5 then a=c33
					if b=1 then b=c21
					if b=2 then b=c22
					if b=3 then b=c31
					if b=4 then b=c32
					if b=5 then b=c33
					if c=1 then c=c21
					if c=2 then c=c22
					if c=3 then c=c31
					if c=4 then c=c32
					if c=5 then c=c33
					if d=1 then d=c21
					if d=2 then d=c22
					if d=3 then d=c31
					if d=4 then d=c32
					if d=5 then d=c33
					if e=1 then e=c21
					if e=2 then e=c22
					if e=3 then e=c31
					if e=4 then e=c32
					if e=5 then e=c33
					if a=1 and b=10 and c=11 and d=12 and e=13 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=10 and b=11 and c=12 and d=13 and e=1 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=11 and b=12 and c=13 and d=1 and e=10 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=12 and b=13 and c=1 and d=10 and e=11 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
					if a=13 and b=1 and c=10 and d=11 and e=12 and s21=s22 and s22=s31 and s31=s32 and s32=s33 then oRoyalflush=1
				next e
			next d
		next c
	next b
next a
return



chance1:
if chance<45
	if pairs=0 or opairs=0 then chance=45
endif
if chance<42
	if pairs=1 and twopairs=0 or opairs=1 and otwopairs=0 then chance=42
endif
if chance<4
	if pairs=1 and threeofakind=0 or opairs=1 and othreeofakind=0 then chance=4
endif
if chance<1
	if threeofakind=1 and ofourofakind=0 or othreeofakind=1 and ofourofakind=0 then chance=1
endif
if chance<12
	if threeofakind=1 and ofullhouse=0 or othreeofakind=1 and ofullhouse=0 then chance=12
endif
if chance<9
	if otwopairs=1 and ofullhouse=0 then chance=9
endif
if chance<6
	if ostraight=2 then chance=6
endif
if chance<20
	if oflush=1 then chance=20
endif
if chance<1
	if oflush=1 and ostraight=0 then chance=1
endif
if chance<1
	if oflush=0 and ostraight=1 then chance=1
endif
if chance<1
	if oflush=1 and ostraight=1 and oroyalflush=0 then chance=1
endif
return



chance2:
if chance<40
	if pairs=0 or opairs=0 then chance=40
endif
if chance<35
	if pairs=1 and twopairs=0 or opairs=1 and otwopairs=0 then chance=35
endif
if chance<5
	if pairs=1 and threeofakind=0 or opairs=1 and othreeofakind=0 then chance=5
endif
if chance<1
	if threeofakind=1 and ofourofakind=0 or othreeofakind=1 and ofourofakind=0 then chance=1
endif
if chance<13
	if threeofakind=1 and ofullhouse=0 or othreeofakind=1 and ofullhouse=0 then chance=13
endif
if chance<14
	if otwopairs=1 and ofullhouse=0 then chance=14
endif
if chance<7
	if ostraight=2 then chance=7
endif
if chance<22
	if oflush=1 then chance=22
endif
if chance<1
	if oflush=1 and ostraight=0 then chance=1
endif
if chance<1
	if oflush=0 and ostraight=1 then chance=1
endif
if chance<1
	if oflush=1 and ostraight=1 and oroyalflush=0 then chance=1
endif
return



turn:
turn=turn+1
if turn=3 then turn=1
movement=1
return



win:
if mtwopairs=0 and otwopairs=0 and threeofakind=0 and mthreeofakind=0 and othreeofakind=0 and mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0mstraight=0 and ostraight=0
	if opairs=0 and mpairs=0 and pairs=0 and mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0 and mstraight=0 and ostraight=0
		if c11>c21 and c11>c22 and c11>c31 and c11>c32 and c11>33 or c12>c21 and c12>c22 and c12>c31 and c12>32 and c12>c33 then mwin=1
		if c21>c21 and c21>c22 and c21>c31 and c21>c32 and c21>33 or c22>c21 and c22>c22 and c22>c31 and c22>32 and c22>c33 then owin=1
		if c31>c11 and c31>c12 and c31>c21 and c31>c22 or c32>c11 and c32>c12 and c32>c21 and c32>c22 or c33>c11 and c33>c12 and c33>c21 and c33>c22 then tie=1
	endif
endif
if mtwopairs=0 and otwopairs=0 and threeofakind=0 and mthreeofakind=0 and othreeofakind=0 and mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0 and mstraight=0 and ostraight=0
		if opairs=1 and mpairs=0 and pairs=0 then owin=1
		if opairs=0 and mpairs=1 and pairs=0 then mwin=1
		if opairs=1 and mpairs=1 and pairs=0 or opairs=1 and mpairs=0 and pairs=1 or opairs=0 and mpairs=1 and pairs=1 then tie=1
	endif
endif
if threeofakind=0 and mthreeofakind=0 and othreeofakind=0 and mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0 and mstraight=0 and ostraight=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0
		if otwopairs=1 and mtwopairs=0 then owin=1
		if otwopairs=0 and mtwopairs=1 then mwin=1
		if otwopairs=1 and mtwopairs=1 or mtwopairs=0 and otwopairs=0 then tie=1
	endif
endif
if mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0 and mstraight=0 and ostraight=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0
		if othreeofakind=1 and mthreeofakind=0 and threeofakind=0 then owin=1
		if othreeofakind=0 and mthreeofakind=1 and threeofakind=0 then mwin=1
		if othreeofakind=1 and mthreeofakind=1 and threeofakind=0 or threeofakind=1 and mthreeofakind=0 and othreeofakind=1 or othreeofakind=0 and mthreeofakind=1 and threeofakind=1 then tie=1
	endif
endif
if mfourofakind=0 and ofourofakind=0 and mfullhouse=0 and ofullhouse=0
	if mflush=0 and oflush=0 and mstraightflush=0 and ostraightflush=0 and mroyalflush=0 and oroyalflush=0
		if ostraight=1 and mstraight=0 then owin=1
		if ostraight=0 and mstraightd=1 then mwin=1
		if ostraight=1 and mstraight=1 or mthreeofakind=0 and othreeofakind=1 or othreeofakind=0 and mthreeofakind=1 and threeofakind=1 then tie=1
	endif
endif
if mwin=1
	cash=cash+pot
	gosub gamestart
endif
if owin=1
	ocash=ocash+pot
	gosub gamestart
endif
if tie=1
	pot=pot/2
	cash=cash+pot
	ocash=ocash+pot
	gosub gamestart
endif
return

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 25th Mar 2009 12:03

Link

Woah, would have caught you on this one sooner, but you are still on probation.

Please use the code tags, it makes it MUCH easier to deal with so that there isn't a huge page of code.

I forgot about this one, did we ever set a deadline?

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 25th Mar 2009 16:17

Link

lets go 3 weeks from today, wenever that is exactly

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 25th Mar 2009 21:36

Link

Sure sounds good, I will see what I can cook up. Lately I have lost all motivation to program so hopefully this will re-kindle the fire.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

pictionaryjr

16

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 26th Mar 2009 02:45 Edited at: 27th Mar 2009 05:20

Link

Fixed

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 27th Mar 2009 00:53

Link

Two ways:

1. Write your code, then highlight it, then click the code button.

2. Click the code button. Insert/write your code. Click the code button.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 27th Mar 2009 16:00 Edited at: 27th Mar 2009 16:01

Link

OK I'm entering this one.
How long do I have left?

The Universe has been erased by a mod because it was larger
than 240x80 pixels.

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 27th Mar 2009 16:27

Link

not quite 3 weeks, plenty o' time

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 29th Mar 2009 23:17

Link

Had a free domain registration with my account and only another week to use it, so I purchased: http://dbchallenge.com/
Might take a day or two before its active, but will take you to the same old http://dbcc.zimnox.com

[url="http://dbcc.zimnox.com"]

[/url]

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 31st Mar 2009 04:11

Link

If you update it, make sure you show me as tied with Obese for fifth place.

Time is money. I just ripped you off.

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 31st Mar 2009 04:22 Edited at: 31st Mar 2009 04:28

Link

@Phaelax
could you change the syntax highlighting colour of the brackets? they are really hard to make out.
Great resource by the way, its cool to look at everyone's old programs without the clutter of the forum

@pictionaryjr

That is a serious amount of code!
did you write out if statements for each individual possible hand?
I can't test it on here but I admire you determination even if it could have been with less code.

can't read?

Back to top

Profile PM Email

pictionaryjr

16

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 1st Apr 2009 04:59

Link

@OBese87
haha i know lol. I couldn't think of an easier way to do it, I thought about it for a while but then just gave up and decided to go with a whole bunch of IF statements.

Back to top

Profile PM Email

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 9th Apr 2009 02:05

Link

when does this end?

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 9th Apr 2009 03:29

Link

dont think we eve decided an exact date, lets go til the 20th

i cant guarantee ill get mine in ontime but ill try

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 9th Apr 2009 03:57

Link

ne objections to me posting one smaller game soon just to ensure i at least enter the contest, then if i get my full game done, posting that as my new entry?

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 9th Apr 2009 04:36

Link

@smartguy
yep we've always allowed multiple entries, you can only win once though

can't read?

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 9th Apr 2009 08:27

Link

Whats the current challenge????

New Site! Check it out \/

Back to top

Profile PM Website

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 9th Apr 2009 17:59

Link

best card game

ends the 20th

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 9th Apr 2009 21:55

Link

oh sweet. what are the requirments for the dbc chalanges i have never entered lol

New Site! Check it out \/

Back to top

Profile PM Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 9th Apr 2009 23:02

Link

the rules are on the first page. main ones though:
1.do the challenge
2.it must not use any outside media.
3.it must be compilable in dbc unupgraded version. so no advanced commands

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 9th Apr 2009 23:49

Link

tnx 4 posting those rules, my poker game uses tons of media and i didnt realize that u cant use external media

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Apr 2009 00:27

Link

Yeah, no external media, but you CAN have it generated in the program (so you aren't just stuck with colors).

Whats cool is that there are ascii characters for the different suits, so you can use text to make the cards.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Apr 2009 06:24

Link

cool, mind giving me a quick crash course on ascii, the only thing i know about it is that it somehow relates to text

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Apr 2009 09:41

Link

Here, a program I made to show the different values for the characters.

+ Code Snippet

SYNC ON : SYNC RATE 0
COUNT=1
FONT$="arial"
char=1
SET TEXT SIZE 20
		SET TEXT FONT FONT$,char

DO
FOR Y=1 to 460 STEP 2*TEXT HEIGHT("|")
	For x=1 to 620 step 4*text width("_")
		SET TEXT FONT FONT$,char
		TEXT X,Y,CHR$(COUNT)
		SET TEXT FONT FONT$,1
		TEXT X,Y+TEXT HEIGHT("|"),STR$(COUNT)
		INC COUNT		
	NEXT X
NEXT Y
SYNC
WAIT KEY
CLS
LOOP

Basically you use chr$() and a number that corresponds to the ASCII value for the character you want, which you can use the program to find.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 10th Apr 2009 12:58

Link

Quote: "Yeah, no external media, but you CAN have it generated in the program (so you aren't just stuck with colors)."

As long as you don't convert the images to DATA statements. That has been forbidden because it is just like loading the image...

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

jason p sage

17

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 10th Apr 2009 16:24

Link

Quote: "cool, mind giving me a quick crash course on ascii, the only thing i know about it is that it somehow relates to text"

The application posted above by BN2 Productions should be helpful, but I think you'd be best served hitting google and wikipedia on the matter.

ASCII stands for a standard character translation for single bytes to characters and was devised by the American National Standards Institute or something. Basically, WAY back when TTY was the thing - most datastreams were 8 bit (not all - 7bit was common too). The standard just is a mapping of many values from that value range: 0-127 to characters we recognize. (0-127 = 7bits can cover this range) 8bits range is 0-255.

It's been around as long as I remember, though its important to know what it is.

I'd do some reading on the matter, and while your at it - cosider reading about UTF-8 encoding versus UNICODE - and how UNICODE works. I know it doesn't all apply to DarkBasic TODAY - but it wouldn't surprise me one bit if it did in the future. Additionally, its good stuff to know for your general programming/computer knowledge I believe.

--Jason

http://www.jegas.com/index.php/jegas-products/68-jegas-game-classes-version-30-library.html

Back to top

Profile PM Email Website

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Apr 2009 16:45

Link

cool, btw bn2, wat r all those boxes in the chart?

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Apr 2009 19:57

Link

the boxes are (i believe) unsupported characters.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Apr 2009 20:22

Link

meaning..... u gotta remember i no nothing about ascii, well very little neway

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Apr 2009 21:41

Link

the box is just a generic placeholder character. it is nothing to worry about. if you use it it will just display a box

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 10th Apr 2009 22:20

Link

And a quick narrowing of the suits(using char set 2).

set text font "arial",2
for n=167 to 170
print chr$(n);
next n

Enjoy your day.

Back to top

Profile PM

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Apr 2009 22:51

Link

Oh, right, I forgot in my program to set char to 2, I don't think suits are in the standard set, it has to be in set 2.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Apr 2009 23:06

Link

i didnt see the suits in the second set either, ne ideas why?

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 11th Apr 2009 02:09

Link

after a quick google search, ive found some interesitng stuff, apparently other people have said that ascii characters 167-170 are in fact the suits in some programs, but others show them as those box placeholders we talked about

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 11th Apr 2009 02:37

Link

sorry for triple post, do the rules allow you to use data command to make simple images in-program?

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Quirkyjim

16

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 11th Apr 2009 02:43

Link

Actually, 3-6, but it doesn't work in text editors. (or Dark Basic)

You can try yourself:

Hold alt and (on your numpad) type in the number 003 and release alt. This is what you can use to fudge out other ascii values. i.e. 227 is pi.

That's what they WANT you to think...

Back to top

Profile PM Email

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 11th Apr 2009 02:54

Link

So running this code only produces boxes? You don't see the card suit characters?

+ Code Snippet

set text font "arial",2
for n=167 to 170
   print chr$(n);
next n

Quote: "do the rules allow you to use data command to make simple images in-program?"

There's no law against using data statements. The questionable use is where complex images that were photographs or made in photoshop type programs, or complex textures not programatically generated are just converted into data statements as color values and then just dotted to the screen. In the spirit of the challenges, this is similar to just loading in media.

Using data statements is fine, just don't get carried away with the idea of converting a sound file to data, saving it to disk, and then loading it back in. May as well have just loaded the sound file from the beginning (but that's not allowed). The point of the challenges is to challenge one's coding ability. If you need to create some graphics with data statements, that's ok - just as long as it's not just a reiteration of a media file. If you can programatically create a sound file or a 3d model or some great images, that's fine - in fact it's encouraged.

Enjoy your day.

Back to top

Profile PM

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 11th Apr 2009 03:01

Link

Quote: "BEST GAMBLING/CARD GAME"

Any kind of gambling game or card game? Like dice? Or go fish?

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 11th Apr 2009 05:13

Link

sure, why not, although the judging could get confusing comparing dice to poker

the reason i wanted the data images was to recreate a small suit (16x16 or 32x32) image if we cant get the ascii suits to work, is that allowed or not?

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 11th Apr 2009 05:32 Edited at: 11th Apr 2009 05:36

Link

I wrote a little ascii chart program and the suits don't display for any standard fonts, in fact 0-31 don't display. but for those of you with same problem I have good news, I did a bit of poking about and the "symbol" font has the suits at 167-170.

@Smartguy (read this)

can't read?

Back to top

Profile PM Email

Quirkyjim

16

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 15th Apr 2009 03:12

Link

Just to tell you, I did check out the ASCII suits (with my handy buddy C), and they are 3-6:

*hopes image works*

That's what they WANT you to think...

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 15th Apr 2009 04:01

Link

Sweet! Never thought of using c++ to do it lol

New Site! Check it out \/

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 15th Apr 2009 04:21

Link

I never really thought of using "hidden" ascii symbols in programs but there's some really useful things especially in "symbol" font; files and folders and all sorts of mini images.
Anyway, back to cards! I have a nice looking felt at the moment and that's about it

Can we use memblocks? I used one for my felt just to practice using the commands.

can't read?

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 15th Apr 2009 05:37 Edited at: 15th Apr 2009 05:48

Link

u sure its "symbol" font, cuz 3-6 on that show up as box placeholders 4 me

edit:
actually theyre 167-170 like obese said, i got it to work, tnx 4 all the input on this tho

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 15th Apr 2009 17:24

Link

do they very from computer to computer?

New Site! Check it out \/

Back to top

Profile PM Website

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 15th Apr 2009 17:59

Link

idk, but "Symbol" (dont know if the S makes a difference) font characters 167-170 are the suits for me

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 15th Apr 2009 18:21

Link

It says in my manual that characters 0 to 32 don't display in DB so I'm surprised if 3-6 works for some people.

can't read?

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 15th Apr 2009 23:00

Link

he didnt say they work in DB, he said they work in C, not sure if that makes a diff but im just sayin

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 16th Apr 2009 23:31 Edited at: 17th Apr 2009 20:25

Link

Well, here is a gambling game I programmed last night... Enjoy!

Controls:

You have to flip all of the numbers to win.

Move the mouse to roll the dice.

click the mouse to let go of the dice.

Click on the number one of the dice show, or on the number that equals the sum of both dice.

Right-click to hide instruction tab.

EDIT : The code is messed up, I recommend you download the attached dba file

code:

rem DBC Challenges

rem Gambling challenge

rem by TheComet

rem setup screen

set display mode 800,600,32

sync on

sync rate 60

backdrop off

color backdrop 0

show mouse

autocam off

randomize timer()

rem dimensions

dim grav#(2)

dim dx#(2)

dim dy#(2)

dim block(9)

block(0)=1

rem generate media

gosub generate_dice

gosub generate_blocks

gosub generate_board

rem make sky

create bitmap 1,512,512

for t=0 to 10000

ink rgb(rnd(255),rnd(255),rnd(255)),0

dot rnd(512),rnd(512)

next t

get image 1,0,0,128,128

delete bitmap 1

make object sphere 30,200

position object 30,0,0,0

texture object 30,1

set object 30,1,0,0

delete image 1

rem make banner

make object plain 31,500,120

position object 31,0,211,400

lock object on 31

color object 31,0

rem line up blocks

for t=3 to 11

position object t,((t-3)*10)-40,0,0

next t

rem main loop

position camera 100,100,100

roll=1

ink rgb(255,255,255),0

set text size 25

help=1

do

rem toggle help

if mouseclick()=2 and toggle=0 then inc help:toggle=1:if help=2 then help=0

if mouseclick()=0 then toggle=0

if help=0 then hide object 31 else show object 31

rem rotate sky

rotate object 30,wrapvalue(object angle x(30)+2),wrapvalue(object angle y(30)+3),wrapvalue(object angle z(30)+1)

rem camera

set camera to follow 0,0,0,0,60,50,10,0

point camera 0,0,-20

rem roll dice

if roll=1

r=rnd(100)

if help=1

center text 400,20,"Shake mouse to roll dice..."

center text 400,50,"Click mouse to let go..."

endif

oldmovex=movex

oldmovey=movey

movex=abs(mousemovex()/4)

movey=abs(mousemovey()/4)

inc acc1,oldmovex-movex:inc accx,acc1

inc acc2,oldmovey-movey:inc accy,acc2

position object 1,-15,10,-30

position object 2,15,10,-30

rotate object 1,wrapvalue(object angle x(1)+accx),wrapvalue(object angle y(1)+accx),wrapvalue(object angle z(1)+accx)

rotate object 2,wrapvalue(object angle x(2)+accy),wrapvalue(object angle y(2)+accy),wrapvalue(object angle z(2)+accy)

if mouseclick()=1

if accx>20 or accx<-20

if accy>20 or accy<-20

roll=2

time=0

randomize r

else

if help=1 then center text 400,80,"Spin faster!"

endif

else

if help=1 then center text 400,80,"Spin faster!"

endif

rem drop dice

if roll=2

for t=1 to 2

x#=object position x(t)

y#=object position y(t)

z#=object position z(t)

grav#(t)=grav#(t)-0.1

inc y#,grav#(t)

if y#<-14.5

grav#(t)=0-(grav#(t)/1.2)

if grav#(t)<0 then grav#(t)=0

y#=-14.5

if t=1 then accx=accx/2:if accx<2 then accx=0:if set1=0 then rotate object 1,rnd(360),rnd(360),0:set1=1

if t=2 then accy=accy/2:if accy<2 then accy=0:if set2=0 then rotate object 2,rnd(360),rnd(360),0:set2=1

endif

position object t,x#,y#,z#

next t

if time<50

rotate object 1,wrapvalue(object angle x(1)+accx),wrapvalue(object angle y(1)+accx),0

rotate object 2,wrapvalue(object angle x(2)+accy),wrapvalue(object angle y(2)+accy),0

else

for t=1 to 2:rotate object t,curveangle(dx#(t),object angle x(t),20),curveangle(dy#(t),object angle y(t),20),0:next t

endif

rem destination angle

inc time

if time>50

for t=1 to 2

x#=object angle x(t)

y#=object angle y(t)

if x#<45 or x#=>315 then dx#(t)=0

if x#=>45 and x#<135 then dx#(t)=90

if x#=>135 and x#<225 then dx#(t)=180

if x#=>225 and x#<315 then dx#(t)=270

if y#<45 or y#=>315 then dy#(t)=0

if y#=>45 and y#<135 then dy#(t)=90

if y#=>135 and y#<225 then dy#(t)=180

if y#=>225 and y#<315 then dy#(t)=270

next t

endif

rem choose

if time>100 then roll=3

endif

rem determin numbers

if roll=3

rem dice 1

x=object angle x(1)

y=object angle y(1)

if x>80 and x<100 then x=90

if x>170 and x<190 then x=180

if x>260 and x<280 then x=270

if x>350 or x<10 then x=0

if y>80 and y<100 then y=90

if y>170 and y<190 then y=180

if y>260 and y<280 then y=270

if y>350 or y<10 then y=0

if x=0

n1=5

endif

if x=90

if y=0 then n1=2

if y=90 then n1=3

if y=180 then n1=1

if y=270 then n1=4

endif

if x=180

n1=6

endif

if x=270

if y=0 then n1=1

if y=90 then n1=4

if y=180 then n1=2

if y=270 then n1=3

endif

rem dice 2

x=object angle x(2)

y=object angle y(2)

if x>80 and x<100 then x=90

if x>170 and x<190 then x=180

if x>260 and x<280 then x=270

if x>350 or x<10 then x=0

if y>80 and y<100 then y=90

if y>170 and y<190 then y=180

if y>260 and y<280 then y=270

if y>350 or y<10 then y=0

if x=0

n2=5

endif

if x=90

if y=0 then n2=2

if y=90 then n2=3

if y=180 then n2=1

if y=270 then n2=4

endif

if x=180

n2=6

endif

if x=270

if y=0 then n2=1

if y=90 then n2=4

if y=180 then n2=2

if y=270 then n2=3

endif

roll=4

rem set block options

block1=n1

block2=n2

block3=n1+n2

if block3>9 then block3=0

endif

rem choose

if roll=4

rem user help

if help=1 then center text 400,20,"Click either "+str$(n1)+", "+str$(n2)+", or "+str$(n1+n2)

rem roll dice to a still-stand

for t=1 to 2

x#=object position x(t)

y#=object position y(t)

z#=object position z(t)

grav#(t)=grav#(t)-0.1

inc y#,grav#(t)

if y#<-14.5

grav#(t)=0-(grav#(t)/1.2)

if grav#(t)<0 then grav#(t)=0

y#=-14.5

endif

position object t,x#,y#,z#

next t

set1=0

set2=0

rem scale picked block bigger

x=mousex()

y=mousey()

success=1

lose=1

for t=3 to 11

if block(t-2)=0 then success=0

if t-2=block1 or t-2=block2 or t-2=block3

if block(t-2)=0

lose=0

rem scale bigger

dx=object screen x(t)

dy=object screen y(t)

dist=((x-dx)*(x-dx))+((y-dy)*(y-dy))

if dist<400

scale object t,140,140,140

else

scale object t,100,100,100

endif

rem select

if mouseclick()=1 and dist<400 then block(t-2)=1:scale object t,100,100,100:roll=1:exit

endif

next t

if success=1 then win=1:lose=0

endif

rem rotate blocks

for t=3 to 11

if block(t-2)=1

xrotate object t,curveangle(235,object angle x(t),20)

else

xrotate object t,curveangle(90,object angle x(t),20)

endif

next t

rem loser

if lose=1

make object plain 21,500,500

position object 21,0,0,200

lock object on 21

color object 21,rgb(255,255,255)

ghost object on 21,1

for t=255 to 0 step -1

color object 21,rgb(t,t,t)

sync

next t

repeat

center text 400,280,"LOSER!!"

sync

until mouseclick()=1

roll=1

for t=1 to 9:block(t)=0:next t

lose=0

delete object 21

endif

rem winner

if win=1

make object plain 21,500,500

position object 21,0,0,200

lock object on 21

color object 21,rgb(255,255,255)

ghost object on 21,1

for t=255 to 0 step -1

color object 21,rgb(t,t,t)

sync

next t

repeat:until mouseclick()=0

repeat

center text 400,280,"Congratulations!!"

sync

until mouseclick()=1

roll=1

for t=1 to 9:block(t)=0:next t

lose=0

delete object 21

endif

rem refresh screen

sync

rem end of main loop

loop

rem *********************************************

rem *              SUBROUTINES                  *

rem *********************************************

generate_dice:

rem generate dice images

create bitmap 1,64,64

ink rgb(255,255,255),0:box 0,0,63,63

ink 0,0:for t=0 to 3:circle 32,32,t:next t

get image 1,0,0,64,64

ink rgb(255,255,255),0:box 0,0,63,63

ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:next t

get image 2,0,0,64,64

ink rgb(255,255,255),0:box 0,0,63,63

ink 0,0:for t=0 to 3:circle 16,16,t:circle 32,32,t:circle 48,48,t:next t

get image 3,0,0,64,64

ink rgb(255,255,255),0:box 0,0,63,63

ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:circle 16,48,t:circle 48,16,t:next t

get image 4,0,0,64,64

ink rgb(255,255,255),0:box 0,0,63,63

ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:circle 16,48,t:circle 48,16,t:circle 32,32,t:next t

get image 5,0,0,64,64

ink rgb(255,255,255),0:box 0,0,63,63

ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:circle 16,48,t:circle 48,16,t:circle 16,32,t:circle 48,32,t:next t

get image 6,0,0,64,64

delete bitmap 1

rem generate dice

for t=1 to 2

make object plain t,0,0

restore dice

for limb=1 to 6

read flag

if flag=0

read sizex

read sizey

read x

read y

read z

read ax

read ay

read az

make object plain t+1,sizex,sizey

position object t+1,x,y,z

rotate object t+1,ax,ay,az

endif

make mesh from object 1,t+1

delete object t+1

add limb t,limb,1

delete mesh 1

next limb

next t

rem texture dice

for r=1 to 2:for t=1 to 6:texture limb r,t,t:next t:next r

rem delete images

for t=1 to 6:delete image t:next t

return

generate_blocks:

rem arrays

dim t$(8)

t$(0)="."

t$(1)="J"

t$(2)="A"

t$(3)="C"

t$(4)="K"

t$(5)="P"

t$(6)="O"

t$(7)="T"

t$(8)="."

rem make a wooden texture

create bitmap 1,32,64

ink rgb(90,49,6),0

box 0,0,31,63

for t=0 to 1000

ink rgb(rnd(60)+70,rnd(40),rnd(6)),0

sx=rnd(32)

sy=rnd(64)

ex=rnd(32)

ey=rnd(64)

f=rnd(1)

if f=1 then line sx,sy,sx,ey else line sx,sy,ex,sy

next t

get image 1,0,0,32,64

delete bitmap 1

rem print numbers 1-9 on texture

ink rgb(255,255,255),0

set text size 40

create bitmap 1,32,64

for t=2 to 10

paste image 1,0,0

center text 16,10,str$(t-1)

get image t,0,0,32,64

next t

delete bitmap 1

rem print letters .jackpot. onto texture

create bitmap 1,32,64

for t=11 to 19

paste image 1,0,0

center text 16,10,t$(t-11)

get image t,0,0,32,64

next t

delete bitmap 1

rem generate blocks

for t=3 to 11

make object plain t,0,0

restore block

for limb=1 to 22

read flag

if flag=0

read sizex

read sizey

read x

read y

read z

read ax

read ay

read az

make object plain t+1,sizex,sizey

position object t+1,x,y,z

rotate object t+1,ax,ay,az

endif

if flag=1

read x1

read y1

read z1

read x2

read y2

read z2

read x3

read y3

read z3

make object triangle t+1,x1,y1,z1,x2,y2,z2,x3,y3,z3

endif

make mesh from object 1,t+1

delete object t+1

add limb t,limb,1

delete mesh 1

next limb

set object t,1,0,0

texture object t,1

next t

rem texture blocks

for t=3 to 11

texture limb t,1,t-1

texture limb t,2,t+8

next t

rem clean up

for t=1 to 19:delete image t:next t

rem undim

undim t$(8)

return

generate_board:

rem make glass like stuff... uhm, It doesn't look like glass, but forget about that...

create bitmap 1,64,64

ink RGB(2,142,125),0

box 0,0,63,63

ink RGB(4,174,210),0

x=rnd(64):y=rnd(64)

for r=0 to 1:for t=0 to 20:circle x+r,y,t:next t:next r

ink RGB(3,126,152),0

x=rnd(64):y=rnd(64)

for r=0 to 1:for t=0 to 20:circle x+r,y,t:next t:next r

get image 1,0,0,64,64

delete bitmap 1

rem make red fur

create bitmap 1,128,128

ink RGB(154,20,1),0

box 0,0,127,127

for t=0 to 10000

ink rgb(rnd(50)+80,rnd(20),1),0

dot rnd(128),rnd(128)

next t

get image 2,0,0,128,128

delete bitmap 1

rem generate board

make object plain 12,0,0

restore board

for limb=1 to 5

read flag

if flag=2

read sizex

read sizey

read sizez

read x

read y

read z

make object box 13,sizex,sizey,sizez

position object 13,x,y,z

endif

make mesh from object 1,13

delete object 13

add limb 12,limb,1

delete mesh 1

next limb

rem texture board

texture limb 12,1,2

for t=2 to 5:texture limb 12,t,1:next t

rem clean up

delete image 1

delete image 2

return

rem *********************************************

rem *            DATA STATEMENTS                *

rem *********************************************

dice:

data 0,10,10,0,0,5,0,0,0,0,10,10,0,0,-5,0,0,0,0,10,10,5,0,0,0,90,0,0,10,10,-5,0

data 0,0,270,0,0,10,10,0,5,0,90,0,0,0,10,10,0,-5,0,270,0,0

block:

data 0,10,20,0,0,-2,0,0,0,0,10,20,0,0,2,180,0,0,0,4,20,-5,0,0,0,90,0,0,4,20,5

data 0,0,0,270,0,0,6,4,0,16,0,90,0,0,0,6,4,0,-16,0,270,0,0,1,-5,10,-2,-5,10,2,-3,16

data -2,1,-5,10,2,-3,16,2,-3,16,-2,1,-5,-10,-2,-5,-10,2,-3,-16,-2,1,-5,-10,2,-3,-16,2,-3,-16,-2,1

data 5,10,-2,5,10,2,3,16,-2,1,5,10,2,3,16,2,3,16,-2,1,5,-10,-2,5,-10,2,3,-16,-2,1,5,-10

data 2,3,-16,2,3,-16,-2,1,-5,10,-2,-3,16,-2,5,10,-2,1,-3,16,-2,5,10,-2,3,16,-2,1,-5,10,2,-3

data 16,2,5,10,2,1,-3,16,2,5,10,2,3,16,2,1,-5,-10,-2,-3,-16,-2,5,-10,-2,1,-3,-16,-2,5,-10,-2

data 3,-16,-2,1,-5,-10,2,-3,-16,2,5,-10,2,1,-3,-16,2,5,-10,2,3,-16,2

board:

data 2,90,1,50,0,-20,-17

data 2,90,20,16,0,-14,0

data 2,1,26,50,-45,-13,-17

data 2,1,26,50,45,-13,-17

data 2,90,26,1,0,-13,-42

+ Code Snippet

rem DBC Challenges

rem Gambling challenge

rem by TheComet



rem setup screen

set display mode 800,600,32

sync on

sync rate 60

backdrop off

color backdrop 0

show mouse

autocam off

randomize timer()



rem dimensions

dim grav#(2)

dim dx#(2)

dim dy#(2)

dim block(9)

block(0)=1



rem generate media

gosub generate_dice

gosub generate_blocks

gosub generate_board



rem make sky

create bitmap 1,512,512

for t=0 to 10000

   ink rgb(rnd(255),rnd(255),rnd(255)),0

   dot rnd(512),rnd(512)

next t

get image 1,0,0,128,128

delete bitmap 1

make object sphere 30,200

position object 30,0,0,0

texture object 30,1

set object 30,1,0,0

delete image 1



rem make banner

make object plain 31,500,120

position object 31,0,211,400

lock object on 31

color object 31,0



rem line up blocks

for t=3 to 11

   position object t,((t-3)*10)-40,0,0

next t



rem main loop

position camera 100,100,100

roll=1

ink rgb(255,255,255),0

set text size 25

help=1

do



   rem toggle help

   if mouseclick()=2 and toggle=0 then inc help:toggle=1:if help=2 then help=0

   if mouseclick()=0 then toggle=0

   if help=0 then hide object 31 else show object 31



   rem rotate sky

   rotate object 30,wrapvalue(object angle x(30)+2),wrapvalue(object angle y(30)+3),wrapvalue(object angle z(30)+1)



   rem camera

   set camera to follow 0,0,0,0,60,50,10,0

   point camera 0,0,-20



   rem roll dice

   if roll=1

      r=rnd(100)

      if help=1

         center text 400,20,"Shake mouse to roll dice..."

         center text 400,50,"Click mouse to let go..."

      endif

      oldmovex=movex

      oldmovey=movey

      movex=abs(mousemovex()/4)

      movey=abs(mousemovey()/4)

      inc acc1,oldmovex-movex:inc accx,acc1

      inc acc2,oldmovey-movey:inc accy,acc2

      position object 1,-15,10,-30

      position object 2,15,10,-30

      rotate object 1,wrapvalue(object angle x(1)+accx),wrapvalue(object angle y(1)+accx),wrapvalue(object angle z(1)+accx)

      rotate object 2,wrapvalue(object angle x(2)+accy),wrapvalue(object angle y(2)+accy),wrapvalue(object angle z(2)+accy)

      if mouseclick()=1

         if accx>20 or accx<-20

            if accy>20 or accy<-20

               roll=2

               time=0

               randomize r

            else

               if help=1 then center text 400,80,"Spin faster!"

            endif

         else

            if help=1 then center text 400,80,"Spin faster!"

         endif

      endif

   endif



   rem drop dice

   if roll=2

      for t=1 to 2

         x#=object position x(t)

         y#=object position y(t)

         z#=object position z(t)

         grav#(t)=grav#(t)-0.1

         inc y#,grav#(t)

         if y#<-14.5

            grav#(t)=0-(grav#(t)/1.2)

            if grav#(t)<0 then grav#(t)=0

            y#=-14.5

            if t=1 then accx=accx/2:if accx<2 then accx=0:if set1=0 then rotate object 1,rnd(360),rnd(360),0:set1=1

            if t=2 then accy=accy/2:if accy<2 then accy=0:if set2=0 then rotate object 2,rnd(360),rnd(360),0:set2=1

         endif

         position object t,x#,y#,z#

      next t

      if time<50

         rotate object 1,wrapvalue(object angle x(1)+accx),wrapvalue(object angle y(1)+accx),0

         rotate object 2,wrapvalue(object angle x(2)+accy),wrapvalue(object angle y(2)+accy),0

      else

         for t=1 to 2:rotate object t,curveangle(dx#(t),object angle x(t),20),curveangle(dy#(t),object angle y(t),20),0:next t

      endif



      rem destination angle

      inc time

      if time>50

         for t=1 to 2

            x#=object angle x(t)

            y#=object angle y(t)

            if x#<45 or x#=>315 then dx#(t)=0

            if x#=>45 and x#<135 then dx#(t)=90

            if x#=>135 and x#<225 then dx#(t)=180

            if x#=>225 and x#<315 then dx#(t)=270

            if y#<45 or y#=>315 then dy#(t)=0

            if y#=>45 and y#<135 then dy#(t)=90

            if y#=>135 and y#<225 then dy#(t)=180

            if y#=>225 and y#<315 then dy#(t)=270

         next t

      endif



      rem choose

      if time>100 then roll=3



   endif



   rem determin numbers

   if roll=3



      rem dice 1

      x=object angle x(1)

      y=object angle y(1)

      if x>80 and x<100 then x=90

      if x>170 and x<190 then x=180

      if x>260 and x<280 then x=270

      if x>350 or x<10 then x=0

      if y>80 and y<100 then y=90

      if y>170 and y<190 then y=180

      if y>260 and y<280 then y=270

      if y>350 or y<10 then y=0

      if x=0

         n1=5

      endif

      if x=90

         if y=0 then n1=2

         if y=90 then n1=3

         if y=180 then n1=1

         if y=270 then n1=4

      endif

      if x=180

         n1=6

      endif

      if x=270

         if y=0 then n1=1

         if y=90 then n1=4

         if y=180 then n1=2

         if y=270 then n1=3

      endif



      rem dice 2

      x=object angle x(2)

      y=object angle y(2)

      if x>80 and x<100 then x=90

      if x>170 and x<190 then x=180

      if x>260 and x<280 then x=270

      if x>350 or x<10 then x=0

      if y>80 and y<100 then y=90

      if y>170 and y<190 then y=180

      if y>260 and y<280 then y=270

      if y>350 or y<10 then y=0

      if x=0

         n2=5

      endif

      if x=90

         if y=0 then n2=2

         if y=90 then n2=3

         if y=180 then n2=1

         if y=270 then n2=4

      endif

      if x=180

         n2=6

      endif

      if x=270

         if y=0 then n2=1

         if y=90 then n2=4

         if y=180 then n2=2

         if y=270 then n2=3

      endif

      roll=4



      rem set block options

      block1=n1

      block2=n2

      block3=n1+n2

      if block3>9 then block3=0



   endif



   rem choose

   if roll=4



      rem user help

      if help=1 then center text 400,20,"Click either "+str$(n1)+", "+str$(n2)+", or "+str$(n1+n2)



      rem roll dice to a still-stand

      for t=1 to 2

         x#=object position x(t)

         y#=object position y(t)

         z#=object position z(t)

         grav#(t)=grav#(t)-0.1

         inc y#,grav#(t)

         if y#<-14.5

            grav#(t)=0-(grav#(t)/1.2)

            if grav#(t)<0 then grav#(t)=0

            y#=-14.5

         endif

         position object t,x#,y#,z#

      next t

      set1=0

      set2=0



      rem scale picked block bigger

      x=mousex()

      y=mousey()

      success=1

      lose=1

      for t=3 to 11

         if block(t-2)=0 then success=0

         if t-2=block1 or t-2=block2 or t-2=block3

            if block(t-2)=0

               lose=0



               rem scale bigger

               dx=object screen x(t)

               dy=object screen y(t)

               dist=((x-dx)*(x-dx))+((y-dy)*(y-dy))

               if dist<400

                  scale object t,140,140,140

               else

                  scale object t,100,100,100

               endif



               rem select

               if mouseclick()=1 and dist<400 then block(t-2)=1:scale object t,100,100,100:roll=1:exit

            endif

         endif

      next t

      if success=1 then win=1:lose=0

   endif



   rem rotate blocks

   for t=3 to 11

      if block(t-2)=1

         xrotate object t,curveangle(235,object angle x(t),20)

      else

         xrotate object t,curveangle(90,object angle x(t),20)

      endif

   next t



   rem loser

   if lose=1

      make object plain 21,500,500

      position object 21,0,0,200

      lock object on 21

      color object 21,rgb(255,255,255)

      ghost object on 21,1

      for t=255 to 0 step -1

         color object 21,rgb(t,t,t)

         sync

      next t

      repeat

         center text 400,280,"LOSER!!"

         sync

      until mouseclick()=1

      roll=1

      for t=1 to 9:block(t)=0:next t

      lose=0

      delete object 21

   endif



   rem winner

   if win=1

      make object plain 21,500,500

      position object 21,0,0,200

      lock object on 21

      color object 21,rgb(255,255,255)

      ghost object on 21,1

      for t=255 to 0 step -1

         color object 21,rgb(t,t,t)

         sync

      next t

      repeat:until mouseclick()=0

      repeat

         center text 400,280,"Congratulations!!"

         sync

      until mouseclick()=1

      roll=1

      for t=1 to 9:block(t)=0:next t

      lose=0

      delete object 21

   endif



   rem refresh screen

   sync



rem end of main loop

loop



rem *********************************************

rem *              SUBROUTINES                  *

rem *********************************************



generate_dice:



   rem generate dice images

   create bitmap 1,64,64

   ink rgb(255,255,255),0:box 0,0,63,63

   ink 0,0:for t=0 to 3:circle 32,32,t:next t

   get image 1,0,0,64,64



   ink rgb(255,255,255),0:box 0,0,63,63

   ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:next t

   get image 2,0,0,64,64



   ink rgb(255,255,255),0:box 0,0,63,63

   ink 0,0:for t=0 to 3:circle 16,16,t:circle 32,32,t:circle 48,48,t:next t

   get image 3,0,0,64,64



   ink rgb(255,255,255),0:box 0,0,63,63

   ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:circle 16,48,t:circle 48,16,t:next t

   get image 4,0,0,64,64



   ink rgb(255,255,255),0:box 0,0,63,63

   ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:circle 16,48,t:circle 48,16,t:circle 32,32,t:next t

   get image 5,0,0,64,64



   ink rgb(255,255,255),0:box 0,0,63,63

   ink 0,0:for t=0 to 3:circle 16,16,t:circle 48,48,t:circle 16,48,t:circle 48,16,t:circle 16,32,t:circle 48,32,t:next t

   get image 6,0,0,64,64

   delete bitmap 1



   rem generate dice

   for t=1 to 2

      make object plain t,0,0

      restore dice

      for limb=1 to 6

         read flag

         if flag=0

            read sizex

            read sizey

            read x

            read y

            read z

            read ax

            read ay

            read az

            make object plain t+1,sizex,sizey

            position object t+1,x,y,z

            rotate object t+1,ax,ay,az

         endif

         make mesh from object 1,t+1

         delete object t+1

         add limb t,limb,1

         delete mesh 1

      next limb

   next t



   rem texture dice

   for r=1 to 2:for t=1 to 6:texture limb r,t,t:next t:next r



   rem delete images

   for t=1 to 6:delete image t:next t



return



generate_blocks:



   rem arrays

   dim t$(8)

   t$(0)="."

   t$(1)="J"

   t$(2)="A"

   t$(3)="C"

   t$(4)="K"

   t$(5)="P"

   t$(6)="O"

   t$(7)="T"

   t$(8)="."



   rem make a wooden texture

   create bitmap 1,32,64

   ink rgb(90,49,6),0

   box 0,0,31,63

   for t=0 to 1000

      ink rgb(rnd(60)+70,rnd(40),rnd(6)),0

      sx=rnd(32)

      sy=rnd(64)

      ex=rnd(32)

      ey=rnd(64)

      f=rnd(1)

      if f=1 then line sx,sy,sx,ey else line sx,sy,ex,sy

   next t

   get image 1,0,0,32,64

   delete bitmap 1



   rem print numbers 1-9 on texture

   ink rgb(255,255,255),0

   set text size 40

   create bitmap 1,32,64

   for t=2 to 10

      paste image 1,0,0

      center text 16,10,str$(t-1)

      get image t,0,0,32,64

   next t

   delete bitmap 1



   rem print letters .jackpot. onto texture

   create bitmap 1,32,64

   for t=11 to 19

      paste image 1,0,0

      center text 16,10,t$(t-11)

      get image t,0,0,32,64

   next t

   delete bitmap 1



   rem generate blocks

   for t=3 to 11

      make object plain t,0,0

      restore block

      for limb=1 to 22

         read flag

         if flag=0

            read sizex

            read sizey

            read x

            read y

            read z

            read ax

            read ay

            read az

            make object plain t+1,sizex,sizey

            position object t+1,x,y,z

            rotate object t+1,ax,ay,az

         endif

         if flag=1

            read x1

            read y1

            read z1

            read x2

            read y2

            read z2

            read x3

            read y3

            read z3

            make object triangle t+1,x1,y1,z1,x2,y2,z2,x3,y3,z3

         endif

         make mesh from object 1,t+1

         delete object t+1

         add limb t,limb,1

         delete mesh 1

      next limb

      set object t,1,0,0

      texture object t,1

   next t



   rem texture blocks

   for t=3 to 11

      texture limb t,1,t-1

      texture limb t,2,t+8

   next t



   rem clean up

   for t=1 to 19:delete image t:next t



   rem undim

   undim t$(8)



return



generate_board:



   rem make glass like stuff... uhm, It doesn't look like glass, but forget about that...

   create bitmap 1,64,64

   ink RGB(2,142,125),0

   box 0,0,63,63

   ink RGB(4,174,210),0

   x=rnd(64):y=rnd(64)

   for r=0 to 1:for t=0 to 20:circle x+r,y,t:next t:next r

   ink RGB(3,126,152),0

   x=rnd(64):y=rnd(64)

   for r=0 to 1:for t=0 to 20:circle x+r,y,t:next t:next r

   get image 1,0,0,64,64

   delete bitmap 1



   rem make red fur

   create bitmap 1,128,128

   ink RGB(154,20,1),0

   box 0,0,127,127

   for t=0 to 10000

      ink rgb(rnd(50)+80,rnd(20),1),0

      dot rnd(128),rnd(128)

   next t

   get image 2,0,0,128,128

   delete bitmap 1



   rem generate board

   make object plain 12,0,0

   restore board

   for limb=1 to 5

      read flag

      if flag=2

         read sizex

         read sizey

         read sizez

         read x

         read y

         read z

         make object box 13,sizex,sizey,sizez

         position object 13,x,y,z

      endif

      make mesh from object 1,13

      delete object 13

      add limb 12,limb,1

      delete mesh 1

   next limb



   rem texture board

   texture limb 12,1,2

   for t=2 to 5:texture limb 12,t,1:next t



   rem clean up

   delete image 1

   delete image 2



return



rem *********************************************

rem *            DATA STATEMENTS                *

rem *********************************************



dice:

data 0,10,10,0,0,5,0,0,0,0,10,10,0,0,-5,0,0,0,0,10,10,5,0,0,0,90,0,0,10,10,-5,0

data 0,0,270,0,0,10,10,0,5,0,90,0,0,0,10,10,0,-5,0,270,0,0



block:

data 0,10,20,0,0,-2,0,0,0,0,10,20,0,0,2,180,0,0,0,4,20,-5,0,0,0,90,0,0,4,20,5

data 0,0,0,270,0,0,6,4,0,16,0,90,0,0,0,6,4,0,-16,0,270,0,0,1,-5,10,-2,-5,10,2,-3,16

data -2,1,-5,10,2,-3,16,2,-3,16,-2,1,-5,-10,-2,-5,-10,2,-3,-16,-2,1,-5,-10,2,-3,-16,2,-3,-16,-2,1

data 5,10,-2,5,10,2,3,16,-2,1,5,10,2,3,16,2,3,16,-2,1,5,-10,-2,5,-10,2,3,-16,-2,1,5,-10

data 2,3,-16,2,3,-16,-2,1,-5,10,-2,-3,16,-2,5,10,-2,1,-3,16,-2,5,10,-2,3,16,-2,1,-5,10,2,-3

data 16,2,5,10,2,1,-3,16,2,5,10,2,3,16,2,1,-5,-10,-2,-3,-16,-2,5,-10,-2,1,-3,-16,-2,5,-10,-2

data 3,-16,-2,1,-5,-10,2,-3,-16,2,5,-10,2,1,-3,-16,2,5,-10,2,3,-16,2



board:

data 2,90,1,50,0,-20,-17

data 2,90,20,16,0,-14,0

data 2,1,26,50,-45,-13,-17

data 2,1,26,50,45,-13,-17

data 2,90,26,1,0,-13,-42

Screenshot:

TheComet

Peachy, and the Chaos of the Gems

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread

Attachments