[HELP] Randomizing
[HELP] Randomizing
Hey, i'm making an RPG game.
And I want for the button where it says "BATTLE"
to randomize which monster you fight.
Also, I want it to randomize the damage you do.
Can anyone help me? Thanks.
And I want for the button where it says "BATTLE"
to randomize which monster you fight.
Also, I want it to randomize the damage you do.
Can anyone help me? Thanks.
You can use select case?
Code:
Dim rand as random Select case rand.next(1,*whatever number here*) Case 1 monster 1 case 2 monster 2 end select
rand.next? Not familiar with that.
Then call
Example
Returns a number between 1 and 10
Code:
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Code:
Monster = Rand(MIN#, MAX#)
Code:
Monster = Rand(1, 10)
Id go with lolland and say use case 1, case 2 etc.
^
He would still need to randomize.
He would still need to randomize.
Lolland's way is the best way. Id go with that !!
Numerous ways to randomize, most effective and used (IMO) is Select Case, however it really depends on what you are trying to attempt. Not sure randomizing a monster fight with Select Case is the optimum choice, but functional.
None of those worked for me, the monsters they fight are different forms, I want to know how to randomize your forms.
Just use the select case and instead of just putting
"Monster 2" for case 2 put:
[php]Monster2Form.Show()[/php] or some such code (monster2form is the name of the monster's form
"Monster 2" for case 2 put:
[php]Monster2Form.Show()[/php] or some such code (monster2form is the name of the monster's form
Originally Posted by J-Deezy
Just use the select case and instead of just putting
"Monster 2" for case 2 put:
[php]Monster2Form.Show()[/php] or some such code (monster2form is the name of the monster's form
"Monster 2" for case 2 put:
[php]Monster2Form.Show()[/php] or some such code (monster2form is the name of the monster's form
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim RandomClass As New Random()
Dim i As Integer
i = RandomClass.Next(1, 3) 'this will make 'i' either 1 or 2.'
If i = Val(1) Then
TextBox1.Text = "I iz pro"
Else : TextBox1.Text = "I iz newb"
End If
End Sub [/CODE]
Originally Posted by tempta43
I find the
Works well for this situation as well.
End Sub [/CODE]
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim RandomClass As New Random()
Dim i As Integer
i = RandomClass.Next(1, 3) 'this will make 'i' either 1 or 2.'
If i = Val(1) Then
TextBox1.Text = "I iz pro"
Else : TextBox1.Text = "I iz newb"
End If
End Sub [/CODE]
EDIT: I think select case is your best option rather than elseif + elseif all the time. Makes it easier to find what it going wrong.
do something like this
[php]
Dim RandomNumber as New Random
Dim i as Integer
i = RandomNumber.Next(1, xx) 'with xx being then number of monsters you have +1'
Select Case i
Case 1
'do something here'
Case 2
'do something'
Case 3
'Blahhhhh'
End Select
[/php]
I think that'd be the best option
Similar Threads
- 4Last post
- 4Last post
- 19Last post
- 5Last post
- 4Last post