Jag spelar mycket rollspel och har tänkt att jag ska göra en slags tärning en simpel till en början.
SImplaste är ju att göra så här omjag ska ha tre st vanliga tärningar.
<%
din slumptal1, slumptal2, slumptal3
slumptal1 = int(rnd * 6 +1)
slumptal2 = int(rnd * 6 +1)
slumptal3 = int(rnd * 6 +1)
%>
Nu till det som jag inte får ihopoch frågan är omdet går.
Jag vill att för varje sexa som blir (slumptal1 = "6") ska två nya tärningar kastas och räknas ihop med dem två som inte blev 6 or
Det här är en lösning på problemet om jag har förstått det rätt...
<% @ Language = VBScript %>
<%
'Option Explicit
With Response
.Buffer = True
.Expires = 0
.Clear
End With
Public function plussa(vilken,nummer)
randomize
Response.Write "<br>tarning "&vilken&"--->"&nummer
ettan=0
tvaan=0
if nummer = 6 then
Response.Write"<br>Här är en sexa, kastar två nya: "
ettan=plussa(vilken,int(rnd * 6+1))
tvaan=plussa(vilken,int(rnd * 6+1))
End if
plussa=nummer + ettan + tvaan
End function
Sub tarning()
randomize
slumptal1 = plussa(0,int(rnd * 6+1))
slumptal2 = plussa(1,int(rnd * 6+1))
slumptal3 = plussa(2,int(rnd * 6+1))
total=slumptal1+slumptal2+slumptal3
Response.Write"<br> totalt:"&total&""
End Sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<P><%Tarning%></P>
</BODY>
</HTML>
function throwDice
Dim eyes
eyes = int(rnd * 6 +1)
if eyes = 6 then
eyes = throwDice() + throwDice()
end if
return eyes
end function
Response.Write "Tre kast ger: " & (throwDice() + throwDice() + throwDice())
Borde funka. Typ.
261 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
