webForumDet fria alternativet

Black Jack - fixa till (VBSCript)

0 svar · 266 visningar · startad av Jejje

JejjeMedlem sedan okt. 20003 inlägg
#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">

129 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)