i need help

[pogo]

hey, well i'm having some probs. i'm making a game, n it has three players, i have got the first player to do the following (the pictures- 108 to 1, being the board that the counter/ player 1, imgcnt1.Picture goes into)

Select Case Position
Case 1
Form2.Picture108.Picture = Form2.imgcnt1.Picture
Case 2
Form2.Picture107.Picture = Form2.imgcnt1.Picture
Case 3
Form2.Picture106.Picture = Form2.imgcnt1.Picture
Case 4
Form2.Picture105.Picture = Form2.imgcnt1.Picture
Case 5
Form2.Picture104.Picture = Form2.imgcnt1.Picture
Case 6
Form2.Picture103.Picture = Form2.imgcnt1.Picture
Case 7
Form2.Picture102.Picture = Form2.imgcnt1.Picture
Case 8
Form2.Picture101.Picture = Form2.imgcnt1.Picture
Case 9
Form2.Picture100.Picture = Form2.imgcnt1.Picture
Case 10
Form2.Picture99.Picture = Form2.imgcnt1.Picture
Case 11
Form2.Picture98.Picture = Form2.imgcnt1.Picture
Case 12
Form2.Picture97.Picture = Form2.imgcnt1.Picture
Case 13
Form2.Picture96.Picture = Form2.imgcnt1.Picture
Case 14
Form2.Picture95.Picture = Form2.imgcnt1.Picture
Case 15
Form2.Picture94.Picture = Form2.imgcnt1.Picture
Case 16
Form2.Picture93.Picture = Form2.imgcnt1.Picture
Case 17
Form2.Picture92.Picture = Form2.imgcnt1.Picture
Case 18
Form2.Picture91.Picture = Form2.imgcnt1.Picture
Case 19
Form2.Picture90.Picture = Form2.imgcnt1.Picture
Case 20
Form2.Picture89.Picture = Form2.imgcnt1.Picture
Case 21
Form2.Picture88.Picture = Form2.imgcnt1.Picture
Case 22
Form2.Picture87.Picture = Form2.imgcnt1.Picture
Case 23
Form2.Picture86.Picture = Form2.imgcnt1.Picture
Case 24
Form2.Picture85.Picture = Form2.imgcnt1.Picture
Case 25
Form2.Picture84.Picture = Form2.imgcnt1.Picture
Case 26
Form2.Picture83.Picture = Form2.imgcnt1.Picture
Case 27
Form2.Picture82.Picture = Form2.imgcnt1.Picture
Case 28
Form2.Picture81.Picture = Form2.imgcnt1.Picture
Case 29
Form2.Picture80.Picture = Form2.imgcnt1.Picture
Case 30
Form2.Picture79.Picture = Form2.imgcnt1.Picture
Case 31
Form2.Picture78.Picture = Form2.imgcnt1.Picture
Case 32
Form2.Picture77.Picture = Form2.imgcnt1.Picture
Case 33
Form2.Picture76.Picture = Form2.imgcnt1.Picture
Case 34
Form2.Picture75.Picture = Form2.imgcnt1.Picture
Case 35
Form2.Picture74.Picture = Form2.imgcnt1.Picture
Case 36
Form2.Picture73.Picture = Form2.imgcnt1.Picture
Case 37
Form2.Picture72.Picture = Form2.imgcnt1.Picture
Case 38
Form2.Picture71.Picture = Form2.imgcnt1.Picture
Case 39
Form2.Picture70.Picture = Form2.imgcnt1.Picture
Case 40
Form2.Picture69.Picture = Form2.imgcnt1.Picture
Case 41
Form2.Picture68.Picture = Form2.imgcnt1.Picture
Case 42
Form2.Picture67.Picture = Form2.imgcnt1.Picture
Case 43
Form2.Picture66.Picture = Form2.imgcnt1.Picture
Case 44
Form2.Picture65.Picture = Form2.imgcnt1.Picture
Case 45
Form2.Picture64.Picture = Form2.imgcnt1.Picture
Case 46
Form2.Picture63.Picture = Form2.imgcnt1.Picture
Case 47
Form2.Picture62.Picture = Form2.imgcnt1.Picture
Case 48
Form2.Picture61.Picture = Form2.imgcnt1.Picture
Case 49
Form2.Picture60.Picture = Form2.imgcnt1.Picture
Case 50
Form2.Picture59.Picture = Form2.imgcnt1.Picture
Case 51
Form2.Picture58.Picture = Form2.imgcnt1.Picture
Case 52
Form2.Picture57.Picture = Form2.imgcnt1.Picture
Case 53
Form2.Picture56.Picture = Form2.imgcnt1.Picture
Case 54
Form2.Picture55.Picture = Form2.imgcnt1.Picture
Case 55
Form2.Picture54.Picture = Form2.imgcnt1.Picture
Case 56
Form2.Picture53.Picture = Form2.imgcnt1.Picture
Case 57
Form2.Picture52.Picture = Form2.imgcnt1.Picture
Case 58
Form2.Picture51.Picture = Form2.imgcnt1.Picture
Case 59
Form2.Picture50.Picture = Form2.imgcnt1.Picture
Case 60
Form2.Picture49.Picture = Form2.imgcnt1.Picture
Case 61
Form2.Picture48.Picture = Form2.imgcnt1.Picture
Case 62
Form2.Picture47.Picture = Form2.imgcnt1.Picture
Case 63
Form2.Picture46.Picture = Form2.imgcnt1.Picture
Case 64
Form2.Picture45.Picture = Form2.imgcnt1.Picture
Case 65
Form2.Picture44.Picture = Form2.imgcnt1.Picture
Case 66
Form2.Picture43.Picture = Form2.imgcnt1.Picture
Case 67
Form2.Picture42.Picture = Form2.imgcnt1.Picture
Case 68
Form2.Picture41.Picture = Form2.imgcnt1.Picture
Case 69
Form2.Picture40.Picture = Form2.imgcnt1.Picture
Case 70
Form2.Picture39.Picture = Form2.imgcnt1.Picture
Case 71
Form2.Picture38.Picture = Form2.imgcnt1.Picture
Case 72
Form2.Picture37.Picture = Form2.imgcnt1.Picture
Case 73
Form2.Picture36.Picture = Form2.imgcnt1.Picture
Case 74
Form2.Picture35.Picture = Form2.imgcnt1.Picture
Case 75
Form2.Picture34.Picture = Form2.imgcnt1.Picture
Case 76
Form2.Picture33.Picture = Form2.imgcnt1.Picture
Case 77
Form2.Picture32.Picture = Form2.imgcnt1.Picture
Case 78
Form2.Picture31.Picture = Form2.imgcnt1.Picture
Case 79
Form2.Picture30.Picture = Form2.imgcnt1.Picture
Case 80
Form2.Picture29.Picture = Form2.imgcnt1.Picture
Case 81
Form2.Picture28.Picture = Form2.imgcnt1.Picture
Case 82
Form2.Picture27.Picture = Form2.imgcnt1.Picture
Case 83
Form2.Picture26.Picture = Form2.imgcnt1.Picture
Case 84
Form2.Picture25.Picture = Form2.imgcnt1.Picture
Case 85
Form2.Picture24.Picture = Form2.imgcnt1.Picture
Case 86
Form2.Picture23.Picture = Form2.imgcnt1.Picture
Case 87
Form2.Picture22.Picture = Form2.imgcnt1.Picture
Case 88
Form2.Picture21.Picture = Form2.imgcnt1.Picture
Case 89
Form2.Picture20.Picture = Form2.imgcnt1.Picture
Case 90
Form2.Picture19.Picture = Form2.imgcnt1.Picture
Case 91
Form2.Picture18.Picture = Form2.imgcnt1.Picture
Case 92
Form2.Picture17.Picture = Form2.imgcnt1.Picture
Case 93
Form2.Picture16.Picture = Form2.imgcnt1.Picture
Case 94
Form2.Picture15.Picture = Form2.imgcnt1.Picture
Case 95
Form2.Picture14.Picture = Form2.imgcnt1.Picture
Case 96
Form2.Picture13.Picture = Form2.imgcnt1.Picture
Case 97
Form2.Picture12.Picture = Form2.imgcnt1.Picture
Case 98
Form2.Picture11.Picture = Form2.imgcnt1.Picture
Case 99
Form2.Picture10.Picture = Form2.imgcnt1.Picture
Case 100
Form2.Picture9.Picture = Form2.imgcnt1.Picture
Case 101
Form2.Picture8.Picture = Form2.imgcnt1.Picture
Case 102
Form2.Picture7.Picture = Form2.imgcnt1.Picture
Case 103
Form2.Picture6.Picture = Form2.imgcnt1.Picture
Case 104
Form2.Picture5.Picture = Form2.imgcnt1.Picture
Case 105
Form2.Picture4.Picture = Form2.imgcnt1.Picture
Case 106
Form2.Picture3.Picture = Form2.imgcnt1.Picture
Case 107
Form2.Picture2.Picture = Form2.imgcnt1.Picture
Case 108
Form2.Picture1.Picture = Form2.imgcnt1.Picture

End Select
Roll = 0 'Starts Roll off as 0
Form2.imgcnt1.Visible = False 'player 1's original counter disappears
Form2.Show 'Shows Form2
End Sub

Private Sub imgDie1_Click()
RollDice
End Sub

Private Sub imgDie2_Click()
RollDice
End Sub

Public Sub RollDice()

Randomize
Die1 = Int(Rnd * 6) + 1 'roll the first die
Select Case Die1 'select the appropriate graphics
Case 1
imgDie1.Picture = LoadPicture("a:\one.bmp")
Roll = Roll + 1
Case 2
imgDie1.Picture = LoadPicture("a:\two.bmp")
Roll = Roll + 2
Case 3
imgDie1.Picture = LoadPicture("a:\three.bmp")
Roll = Roll + 3
Case 4
imgDie1.Picture = LoadPicture("a:\four.bmp")
Roll = Roll + 4
Case 5
imgDie1.Picture = LoadPicture("a:\five.bmp")
Roll = Roll + 5
Case 6
imgDie1.Picture = LoadPicture("a:\six.bmp")
Roll = Roll + 6
End Select
Die2 = Int(Rnd * 6) + 1 'roll second die
Select Case Die2 'select the appropriate graphics
Case 1
imgDie2.Picture = LoadPicture("a:\one.bmp")
Roll = Roll + 1
Case 2
imgDie2.Picture = LoadPicture("a:\two.bmp")
Roll = Roll + 2
Case 3
imgDie2.Picture = LoadPicture("a:\three.bmp")
Roll = Roll + 3
Case 4
imgDie2.Picture = LoadPicture("a:\four.bmp")
Roll = Roll + 4
Case 5
imgDie2.Picture = LoadPicture("a:\five.bmp")
Roll = Roll + 5
Case 6
imgDie2.Picture = LoadPicture("a:\six.bmp")
Roll = Roll + 6
End Select
Position = Position + Roll
End Sub

i want to be able to make all three players move, in turn. i thought that i would do it as a loop but i really don't know how to do it. i've attempted a few things but none of them work. ummm does ne 1 have ne ideas???? please

thanx

1) That's the longest select case statemtent I've ever seen.

2) I'm don't know what kind of machine you're using, but many people will have trouble loading your form2 with 108 picturebox controls (esp. when they're filled).

If you're making a game with a board, you probably just want one image control with a picture of the board in it. Make another image control with the pictures of the markers in it. Finally, use the BitBlt function to copy the markers onto the board as you need them.

This should help your three-player problem too:
[code]
Dim playerRolling as integer
Const MaxPlayers = 3
playerRolling = 1

Public Function takeTurn()
Dim diceRoll as integer

label1.caption = "Player " & playerRolling
diceRoll = RollDice()
call PlaceMarker(diceRoll)

If playerRolling < MaxPlayers
playerRolling = playerRolling + 1
Else
playerRolling = 1
End if

' TODO: Set gameIsOver based on if someone won
If gameIsOver then
takeTurn = False
Else
takeTurn = True
End if

End Function

Public sub startGame()
Dim continue as boolean
continue = true

While continue
continue = takeTurn
DoEvents
Wend

[pogo]

uumm sorry, but can u pls explain wat i have 2 do bout tha oard again? do u mean control arrays? or something completely different??
also i have other code in another form that uses the board as it is. does that mean i have 2 change that too??

thanx

[Zaf Khan]

you can probably shorten your case statements , but the bitblt method is better.

i noticed that the case starts at one and goes up and the Form2.Picturexxx starts high and goes down, using control arrays you could chage it to:

thisnumber=109
Form2.Picture1(thisnumber-position)=Form2.imgcnt1.Picture

and those two lines could replace all the first set of select case statements

doczaf
{;->