webForumDet fria alternativet
Logga in / Bli medlem

Black Jack - fixa till (VBSCript)

.NET

0 svar · 268 visningar · startad av Jejje

Medlem sedan okt. 20003 inlägg
Frågan#1

nån som kan hjälpa mig få detta att funka? ska vara ett enkelt blackjack spel... för ett programmerar-proffs är det säkert en enkel match.. detta är skrivet efter studerande av flera javascript o ASP black jack spel.. men det e nåt (massor) som e fel.. snälla kan nån hjälpa mig "jättesnabbt ".. behöver verkligen hjälp..

typ ge mig lite ledtrådar om hur jag ska göra.. typ skriva nåt snabbt som jag sen kan fixa lite me.. för ett black jack spel e ju inte så avancerat uppbyggt.. men jag tror jag har gjort fel när jag hänvisar till form fälten..

<script language="VBScript">

function cardValue(card)
if card = 1 then
cardValue = 11
elseif card > 10 then
cardValue = 10
else
cardValue = card
end if
end function

function PickACard()
card = int(rnd*13)+1
pickACard = cardValue(card)
end function

function NewHand(form)
form.dealer.value = 0
form.you.value = 0
form.dealer.value = eval(form.dealer.value) + PickACard("Dealer");
form.you.value = eval(form.you.value) + PickACard("You");
end function

function Dealer(form)
do while form.dealer.value < 17
form.dealer.value = eval(form.dealer.value) + PickACard("Dealer")
end function

function User(form)
form.you.value = eval(form.you.value) + PickACard("You")
if form.you.value > 21 then
msgbox "You busted!"
end if
end function

function LookAtHands(form)
if form.dealer.value > 21 then
msgbox "House busts! You win!"
elseif form.you.value > form.dealer.value then
msgbox "You win!"
elseif form.dealer.value = form.you.value then
msgbox "Push!"
else
msgbox "House wins!"
end if
end function
</script>

<INPUT TYPE=TEXT NAME=dealer><br>
<INPUT TYPE=TEXT NAME=you><br>
<INPUT name="BUTTON" TYPE=BUTTON onClick=User(this.form) VALUE="Hit Me">
<INPUT name="BUTTON" TYPE=BUTTON onClick="Dealer(this.form);LookAtHands(this.form);" VALUE="Stand">
<INPUT name="BUTTON" TYPE=BUTTON onClick=NewHand(this.form) VALUE="New Hand">

257 ms totalt · 4 externa anrop · v20260731065814-full.5386d3bf
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)