Picture path troubles...

oldnoob
Newish

Posts: 18

Picture path troubles... Aug 26, 2010 19:32:13 GMT -5

Quote

Post by oldnoob on Aug 26, 2010 19:32:13 GMT -5

I am having trouble with displaying the correct picture at the correct position. My poker program works on a couple of different gosubs that run like this, one just lists the same picture in 5 different positions (the back of the card) the other runs through a random number generator chooses a card displays it in position 1 then back to the random number generator etc. for all five positions, the problem is that it doesn't always display the picture chosen. I have different folders, 1 in the main folder called "Data" where the card faces and backs are stored which has a subfolder called"BG" where the background image as well as the cursor image are, and another folder in the main folder called "Buttons" where the button images for the "Bet one", "Bet Max" and "Deal" buttons are. For some reason the program will randomly put a picture of the background or one of the buttons into one of the five card slots. I don't get it. Any ideas? Thanks OldNoob.

chris857 Posts Posts: 70	Picture path troubles... Aug 26, 2010 22:19:46 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by chris857 on Aug 26, 2010 22:19:46 GMT -5 It would be helpful to see the source code.
	Both optimists and pessimists contribute to society. The optimist invents the airplane; the pessimist invents the parachute. Checkers \| Fractals

oldnoob
Newish

Posts: 18

Picture path troubles... Aug 27, 2010 1:47:26 GMT -5

Quote

Post by oldnoob on Aug 27, 2010 1:47:26 GMT -5

Here is the source, I have tried all I know(which isn't a lot) but can't see why it's doing this. OldNoob.

DIM backgroundImage
DIM bgSprite
DIM holdImage
DIM holdSprite
DIM bet11Image
DIM bet11Sprite
DIM betmax1Image
DIM betmax1Sprite
DIM deal1Image
DIM deal1Sprite
DIM h1
DIM sound
DIM sound2
DIM card
DIM Backs
DIM Hand
DIM dealhand
DIM deal$
DIM s1,s2,s3,s4,s5
DIM t1,t2,t3,t4,t5
DIM ia, ib, ic, id, ja, jb, jc, jd, ka, kb, kc, kd, la, lb, lc, ld
DIM ma, mb, mc, md, na, nb, nc, nd, oa, ob, oc, od, pa, pb, pc, pd
DIM qa, qb, qc, qd, ra, rb, rc, rd, sa, sb, sc, sd, ta, tb, tc, td, ua, ub, uc, ud, v
'From here up is where everything is declared.

backgroundImage = LoadTexture("bg\bg.jpg") 'Load the background picture.
bgSprite = NewSprite(backgroundImage)

SprSetPos(320,240)
SprSetSize(640, 480)
SprSetZOrder(3)

WaitTimer (1000)

DrawText() 'From here up prints the background picture to the screen.

sound = LoadSound ("Sounds\shuffle.wav")
sound2 = LoadSound ("Sounds\deal1.wav")
'Load the sounds.
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(165,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(245,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(325,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(405,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(485,300)
SprSetSize(40, 20)
SprSetZOrder(2)
bet11Image = LoadTexture("Buttons\betone.bmp")
bet11Sprite = NewSprite(bet11Image)
SprSetPos(245,360)
SprSetSize(40, 20)
SprSetZOrder(2)
betmax1Image = LoadTexture("Buttons\betmax.bmp")
betmax1Sprite = NewSprite(betmax1Image)
SprSetPos(300,360)
SprSetSize(40, 20)
SprSetZOrder(2)
deal1Image = LoadTexture("Buttons\deal.bmp")
deal1Sprite = NewSprite(deal1Image)
SprSetPos(405,360)
SprSetSize(40, 20)
SprSetZOrder(2)

ia = LoadTexture("Data\2s.bmp"):ia = 1:ib = LoadTexture("Data\2c.bmp"):ib = 2:ic = LoadTexture("Data\2h.bmp"):IC = 3:id = LoadTexture("Data\2d.bmp"):ID = 4
ja = LoadTexture("Data\3s.bmp"):ja = 5:jb = LoadTexture("Data\3c.bmp"):jb = 6:jc = LoadTexture("Data\3h.bmp"):jc = 7:jd = LoadTexture("Data\3d.bmp"):jd = 8
ka = LoadTexture("Data\4s.bmp"):ka = 9:kb = LoadTexture("Data\4c.bmp"):kb = 10:kc = LoadTexture("Data\4h.bmp"):kc = 11:kd = LoadTexture("Data\4d.bmp"):kd = 12
la = LoadTexture("Data\5s.bmp"):la = 13:lb = LoadTexture("Data\5c.bmp"):lb = 14:lc = LoadTexture("Data\5h.bmp"):lc = 15:ld = LoadTexture("Data\5d.bmp"):ld = 16
ma = LoadTexture("Data\6s.bmp"):ma = 17:mb = LoadTexture("Data\6c.bmp"):mb = 18:mc = LoadTexture("Data\6h.bmp"):mc = 19:md = LoadTexture("Data\6d.bmp"):md = 20
na = LoadTexture("Data\7s.bmp"):na = 21:nb = LoadTexture("Data\7c.bmp"):nb = 22:nc = LoadTexture("Data\7h.bmp"):nc = 23:nd = LoadTexture("Data\7d.bmp"):nd = 24
oa = LoadTexture("Data\8s.bmp"):oa = 25:ob = LoadTexture("Data\8c.bmp"):ob = 26:oc = LoadTexture("Data\8h.bmp"):oc = 27:od = LoadTexture("Data\

.bmp"):od = 28
pa = LoadTexture("Data\9s.bmp"):pa = 29:pb = LoadTexture("Data\9c.bmp"):pb = 30:pc = LoadTexture("Data\9h.bmp"):pc = 31:pd = LoadTexture("Data\9d.bmp"):pd = 32
qa = LoadTexture("Data\10s.bmp"):qa = 33:qb = LoadTexture("Data\10c.bmp"):qb = 34:qc = LoadTexture("Data\10h.bmp"):qc = 35:qd = LoadTexture("Data\10d.bmp"):qd = 36
ra = LoadTexture("Data\js.bmp"):ra = 37:rb = LoadTexture("Data\jc.bmp"):rb = 38:rc = LoadTexture("Data\jh.bmp"):rc = 39:rd = LoadTexture("Data\jd.bmp"):rd = 40
sa = LoadTexture("Data\qs.bmp"):sa = 41:sb = LoadTexture("Data\qc.bmp"):sb = 42:sc = LoadTexture("Data\qh.bmp"):sc = 43:sd = LoadTexture("Data\qd.bmp"):sd = 44
ta = LoadTexture("Data\ks.bmp"):ta = 45:tb = LoadTexture("Data\kc.bmp"):tb = 46:tc = LoadTexture("Data\kh.bmp"):tc = 47:td = LoadTexture("Data\kd.bmp"):td = 48
ua = LoadTexture("Data\as.bmp"):ua = 49:ub = LoadTexture("Data\ac.bmp"):ub = 50:uc = LoadTexture("Data\ah.bmp"):uc = 51:ud = LoadTexture("Data\ad.bmp"):ud = 52
v = LoadTexture("Data\back.bmp")
'Load all of the card pictures.

SetTexLinearFilter(false) 'Set screen mode.

dealhand: 'This is where gameplay starts.

gosub shuffle
gosub Backs
gosub Hand

locate 5, 20: input deal$
goto dealhand 'This waits for input then starts the whole thing over again.

TextMode(TEXT_BUFFERED) 'This is where gameplay ends.

'SUBROUTINES FROM HERE DOWN.

Backs: 'Print the card backs to the screen and plays the single card sound.

WaitTimer (800)
WaitTimer (500)

s1 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(165,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s2 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(245,220)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s3 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(325,220)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s4 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(405,220)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s5 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(485,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
return

WaitTimer (800)

Hand: 'Print the cards to the screen and plays the single card sound.
gosub cards
t1 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(165,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t2 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(245,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t3 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(325,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t4 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(405,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t5 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(485,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
return

cards:
card = Rnd() % 52 + 1 'This is the random number generator to choose which card to display.
return

shuffle: 'This plays the shuffle sound.
WaitTimer (1000)
playSound (sound)
WaitTimer (1000)
PlaySound (sound)
return

shadow008
Posts heaps

Unofficial self appointed official chatbox arbiter.

Posts: 756

Picture path troubles... Aug 27, 2010 16:53:18 GMT -5

Quote

Post by shadow008 on Aug 27, 2010 16:53:18 GMT -5

XD

Your problem is actually very simple.

The way b4gl creates sprites is like the such

createdsprite1 = 0
createdsprite2 = 1
createdsprite3 = 2
....

When you do something like this

gosub cards '<-- generate a random number < 52....
'for example here, lets assume card = 24
t1 = newsprite(card)

What your actually doing is calling the 24th loaded sprite, not actually the one you want. What you should do is attach the ACTUAL card sprite (ia-ua(your card variables)) to the random number. And btw, it would be A LOT easier to make those card sprites into an array like so:

dim Cards(51)
then load them like this

Cards(0) = LoadTexture("Data\2s.bmp"):Cards(1) = LoadTexture("Data\2c.bmp")....ect.

Then do something like this:

gosub cards
t1 = NewSprite(Cards(card))
sprSetSize(75, 125)
SprSetPos(165,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
.....
.....
.....

And i spose change the name of the variable so it doesnt match the "cards" sub routine...

Try that and post if you have troubles with it.

have fun coding

Last Edit: Aug 27, 2010 16:54:10 GMT -5 by shadow008

Warning: boredom may result in armed robbery, kidnapping, reckless endangerment of others, aggravated assault of a police officer, felony fleeing apprehension, and damage to property.

We should take bikini bottom, and push it somewhere else! <(O.O<) <(O.O)> (>O.O)>

oldnoob Newish Posts: 18	Picture path troubles... Aug 28, 2010 3:38:34 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by oldnoob on Aug 28, 2010 3:38:34 GMT -5 I didn't get on here 'til late and I'm not gonna try anything tonight, but I appreciate yer takin' me under yer wing there shadow008. Notice my avatar? That really looks like me. OldNoob.

shadow008 Posts heaps Unofficial self appointed official chatbox arbiter. Posts: 756	Picture path troubles... Aug 28, 2010 9:12:02 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by shadow008 on Aug 28, 2010 9:12:02 GMT -5 XD Nice avatar. Looks like the people up here where i live : P
	Warning: boredom may result in armed robbery, kidnapping, reckless endangerment of others, aggravated assault of a police officer, felony fleeing apprehension, and damage to property. We should take bikini bottom, and push it somewhere else! <(O.O<) <(O.O)> (>O.O)>

oldnoob
Newish

Posts: 18

Picture path troubles... Aug 28, 2010 19:03:18 GMT -5

Quote

Post by oldnoob on Aug 28, 2010 19:03:18 GMT -5

OK I think I incorporated it right but it doesn't work. I changed the name of the variable to "Deck"and tried it but that didn't work either. it gets to the first "t1" position (I'll write where below) and says that the 2nd parentheses is ünexpected, so can you see what I did wrong. I tweaked on this for about 2 - 3 hours and I can't figure it out. Heres the new code.

DIM backgroundImage
DIM bgSprite
DIM holdImage
DIM holdSprite
DIM bet11Image
DIM bet11Sprite
DIM betmax1Image
DIM betmax1Sprite
DIM deal1Image
DIM deal1Sprite
'DIM h1
DIM sound
DIM sound2
DIM Cards
DIM card
DIM Backs
DIM Hand
DIM dealhand
DIM deal$
DIM s1,s2,s3,s4,s5
DIM t1,t2,t3,t4,t5
DIM v
DIM Deck(51) 'From here up is where everything is declared.

backgroundImage = LoadTexture("bg\bg.jpg") 'Load the background picture.
bgSprite = NewSprite(backgroundImage)

SprSetPos(320,240)
SprSetSize(640, 480)
SprSetZOrder(3)

WaitTimer (1000)

DrawText() 'From here up prints the background picture to the screen.

sound = LoadSound ("Sounds\shuffle.wav")
sound2 = LoadSound ("Sounds\deal1.wav")
'Load the sounds.
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(165,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(245,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(325,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(405,300)
SprSetSize(40, 20)
SprSetZOrder(2)
holdImage = LoadTexture("Buttons\hold.bmp")
holdSprite = NewSprite(holdImage)
SprSetPos(485,300)
SprSetSize(40, 20)
SprSetZOrder(2)
bet11Image = LoadTexture("Buttons\betone.bmp")
bet11Sprite = NewSprite(bet11Image)
SprSetPos(245,360)
SprSetSize(40, 20)
SprSetZOrder(2)
betmax1Image = LoadTexture("Buttons\betmax.bmp")
betmax1Sprite = NewSprite(betmax1Image)
SprSetPos(300,360)
SprSetSize(40, 20)
SprSetZOrder(2)
deal1Image = LoadTexture("Buttons\deal.bmp")
deal1Sprite = NewSprite(deal1Image)
SprSetPos(405,360)
SprSetSize(40, 20)
SprSetZOrder(2)

Deck:
Deck(0) = LoadTexture("Data\2s.bmp"):Deck(1) = LoadTexture("Data\2c.bmp"):Deck(2) = LoadTexture("Data\2h.bmp"):Deck(3) = LoadTexture("Data\2d.bmp")
Deck(4) = LoadTexture("Data\3s.bmp"):Deck(5) = LoadTexture("Data\3c.bmp"):Deck(6) = LoadTexture("Data\3h.bmp"):Deck(7) = LoadTexture("Data\3d.bmp")
Deck(8) = LoadTexture("Data\4s.bmp"):Deck(9) = LoadTexture("Data\4c.bmp"):Deck(10) = LoadTexture("Data\4h.bmp"):Deck(11) = LoadTexture("Data\4d.bmp")
Deck(12) = LoadTexture("Data\5s.bmp"):Deck(13) = LoadTexture("Data\5c.bmp"):Deck(14) = LoadTexture("Data\5h.bmp"):Deck(15) = LoadTexture("Data\5d.bmp")
Deck(16) = LoadTexture("Data\6s.bmp"):Deck(17) = LoadTexture("Data\6c.bmp"):Deck(18) = LoadTexture("Data\6h.bmp"):Deck(19) = LoadTexture("Data\6d.bmp")
Deck(20) = LoadTexture("Data\7s.bmp"):Deck(21) = LoadTexture("Data\7c.bmp"):Deck(22) = LoadTexture("Data\7h.bmp"):Deck(23) = LoadTexture("Data\7d.bmp")
Deck(24) = LoadTexture("Data\8s.bmp"):Deck(25) = LoadTexture("Data\8c.bmp"):Deck(26) = LoadTexture("Data\8h.bmp"):Deck(27) = LoadTexture("Data\

.bmp")
Deck(28) = LoadTexture("Data\9s.bmp"):Deck(29) = LoadTexture("Data\9c.bmp"):Deck(30) = LoadTexture("Data\9h.bmp"):Deck(31) = LoadTexture("Data\9d.bmp")
Deck(32) = LoadTexture("Data\10s.bmp"):Deck(33) = LoadTexture("Data\10c.bmp"):Deck(34) = LoadTexture("Data\10h.bmp"):Deck(35) = LoadTexture("Data\10d.bmp")
Deck(36) = LoadTexture("Data\js.bmp"):Deck(37) = LoadTexture("Data\jc.bmp"):Deck(38) = LoadTexture("Data\jh.bmp"):Deck(39) = LoadTexture("Data\jd.bmp")
Deck(40) = LoadTexture("Data\qs.bmp"):Deck(41) = LoadTexture("Data\qc.bmp"):Deck(42) = LoadTexture("Data\qh.bmp"):Deck(43) = LoadTexture("Data\qd.bmp")
Deck(44) = LoadTexture("Data\ks.bmp"):Deck(45) = LoadTexture("Data\kc.bmp"):Deck(46) = LoadTexture("Data\kh.bmp"):Deck(47) = LoadTexture("Data\kd.bmp")
Deck(48) = LoadTexture("Data\as.bmp"):Deck(49) = LoadTexture("Data\ac.bmp"):Deck(50) = LoadTexture("Data\ah.bmp"):Deck(51) = LoadTexture("Data\ad.bmp")
v = LoadTexture("Data\back.bmp")
'Load all of the card pictures.

SetTexLinearFilter(false) 'Set screen mode.

dealhand: 'This is where gameplay starts.

gosub shuffle
gosub Backs
gosub Hand

locate 5, 20: input deal$
goto dealhand 'This waits for input then starts the whole thing over again.

TextMode(TEXT_BUFFERED) 'This is where gameplay ends.

'SUBROUTINES FROM HERE DOWN.

Backs: 'Print the card backs to the screen and plays the single card sound.

WaitTimer (800)
WaitTimer (500)

s1 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(165,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s2 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(245,220)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s3 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(325,220)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s4 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(405,220)
PlaySound (sound2)
WaitTimer (500)
SprSetZOrder(2)
s5 = NewSprite(v)
sprSetSize(75, 125)
SprSetPos(485,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
return

WaitTimer (800)

Hand: 'Print the cards to the screen and plays the single card sound.
gosub cards
t1 = NewSprite(Cards(card)) 'This is where I get the "unexpected (" right after the word "Card"
sprSetSize(75, 125)
SprSetPos(165,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t2 = NewSprite(Cards(card))
sprSetSize(75, 125)
SprSetPos(245,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t3 = NewSprite(Cards(card))
sprSetSize(75, 125)
SprSetPos(325,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t4 = NewSprite(Cards(card))
sprSetSize(75, 125)
SprSetPos(405,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
gosub cards
t5 = NewSprite(Cards(card))
sprSetSize(75, 125)
SprSetPos(485,220)
SprSetZOrder(2)
PlaySound (sound2)
WaitTimer (500)
return

Cards:
card = Rnd() < 52
' gosub Deck 'This is the random number generator to choose which card to display.
return
' return

shuffle: 'This plays the shuffle sound.
WaitTimer (1000)
playSound (sound)
WaitTimer (1000)
PlaySound (sound)
return

I appreciate your help. OldNoob.

chris857 Posts Posts: 70	Picture path troubles... Aug 28, 2010 21:09:04 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by chris857 on Aug 28, 2010 21:09:04 GMT -5 You need to dim Cards as an array.
	Both optimists and pessimists contribute to society. The optimist invents the airplane; the pessimist invents the parachute. Checkers \| Fractals

shadow008
Posts heaps

Unofficial self appointed official chatbox arbiter.

Posts: 756

Picture path troubles... Aug 29, 2010 11:25:00 GMT -5

Quote

Post by shadow008 on Aug 29, 2010 11:25:00 GMT -5

Hmmmm

Answer to your problem:

change: "t# = NewSprite(Cards(card))"
to: "t# = NewSprite(Deck(card))"

Because the variables you load as the card sprites have to be the same ones that you create with NewSprite()

Last Edit: Aug 29, 2010 11:25:37 GMT -5 by shadow008

Warning: boredom may result in armed robbery, kidnapping, reckless endangerment of others, aggravated assault of a police officer, felony fleeing apprehension, and damage to property.

We should take bikini bottom, and push it somewhere else! <(O.O<) <(O.O)> (>O.O)>