random

Computergeek · January 6th, 2005, 09:09 PM

I have a random integer added to a variable that should, well, be random every time it is ran. But, for some reason, it shows the same random number every time I try the script.
The script is at http://24.106.93.59/game1.asp

This is what I have for the random part:

Sub Fight

intPlayAttack = intPlaySTR - Cint(intMonstDEF/2)
intMonstAttack = intMonstSTR - Cint(intPlayDEF/2)
intPlayAttackD = (intPlayAttack + int(rnd*3))
intMonstAttackD = (intMonstAttack + int(rnd*3))
intPlayChanceAttack = Cint(intPlayDEX/intMonstDEF * 100)
intMonstChanceAttack = Cint(intMonstDEX/intPlayDEF * 100)
intPlayCAR = int(rnd*100)
intMonstCAR = int(rnd*100)

If intPlayChanceAttack > intPlayCAR Then
intPlayAttack = intPlayAttackD
Else
intPlayAttack = intPlayAttack
End If
If intMonstChanceAttack > intMonstCAR Then
intMonstAttack = intMonstAttackD
Else
intMonstAttack = intMonstAttack
End If

If intPlayAttack < 0 Then
intPlayAttack = 0
End If
If intMonstAttack < 0 Then
intMonstAttack = 0
End If

intMonstHPAF = intMonstHPAF - intPlayAttack
intPlayHPAF = intPlayHPAF - intMonstAttack

Response.Write "You have attacked for: " & intPlayAttackD & " "
Response.Write "You have been attacked for: " & intMonstAttackD & " "
Response.Write "You have: " & intPlayHPAF & " health remaining. "

If intPlayHPAF <= 0 Then
Call Death
End If
If intMonstHPAF <= 0 Then
Call Victory
End If
If intPlayHPAF > 0 and intMonstHPAF > 0 Then
Call Fight
End If
End Sub

I just started leaning ASP, and thought making a game would be a good little project just to see what I can do. If you can help me, it would be great. Also, if you need the entire code here, I'll post that.

rajanikrishna · January 6th, 2005, 10:37 PM

Hello,

Issue Randomize
before generating random number. It seeds from the current time

----------
Rajani

Vadivel · January 6th, 2005, 10:58 PM

Code:

Dim DummyRandomValue 
Randomize
DummyRandomValue = Rnd 'Rnd generates a random number between 0 -1
Response.Write(DummyRandomValue)

FYI, randomize uses the system clock to generate different seed for Rnd function on each occasion.

Best Regards
Vadivel

MVP ASP/ASP.NET
http://vadivel.thinkingms.com

Computergeek · January 9th, 2005, 02:44 PM

Great, thanks for the help!