Pig the dice game: Difference between revisions
m
→{{header|EasyLang}}
(2 intermediate revisions by 2 users not shown) | |||
Line 1,875:
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=lVVNj5swEL3zK16zVS+rIBO+kmrZSy89Vm0v1SqqWHAWawGvwFmS/vrKGBubZFctiiJmPB9v3syYgtcPe2R4wG6XYpem2Hv98bEDa5l4zbveA9AfG2Qg46vIhXk/NpMvAcFeql7q/Ew7ZAg833vpeIFH0eKEM8RJfIQPX1oVvOYdkiSRQs1aOrBSVAi2Um74K5Ue+gwn3CKIlWI6XCPCGWuEczRCRkyCnkTP/lAERhxTazh9xQcN4zEvnp86fmxLGeNBYR/LKGqadybfFun2nxKtvo0h1it8mphwLLdWRFW78vrJRV5/hvSSlFo4jGsspRvI/woZQqytBAqXLKHamxRJjGSkp6OFQEgQ7OazLdLoakVOCZUDIbLdk/RN+AqDwiqbvyHyt/rO63qldanSfeV1udKdaU9imp6pPRYXuM2kKLXsMI7jvRpBdzilVPFBvvoGbUCw2ziVpBelq6Am232GgOiIqshf/IiBt/iw0onUIowU07qnjvWPgYmi0tvg+772MvvhdnCOtzHgBWtoh43ne7xVgkaqLIPJ8QYdr+tJYAeIpmiFxYjmIYoQprNuHhpr3tRjJsYKwQ4oWUFxb/LO7N9m45mrt+4J9VgkXWucLttGR4h1OjI7DYGLKVtgMpN0GdoFobLEcbygahMhjBZ8BCGC8F2AyjV1WJ7wdXlbslYgWZTj0qY6t3bKud5QMx7Ej99hWNsEl0T4am7ncdq4c7jcJ9tU0zAWTIzpWxOl6CMEoWs5k6f3NHR37kvNimcceIeWDnjKG7pYvkgty3SByDUwd4e1I5q/4Oq9rShSW9bwY09/l3xo3VXTsNhhMjnJPSDI29Io7hDFluK8tDjjbq5PsjIv7cjtHDhZBt79V+Dl9F90Wk+2/YV3bk7fM0ej8i8= Run it]
<syntaxhighlight>
Line 1,906:
text "Total: " & sum[player]
textsize 5
#
h = 3 - player
color col[h]
Line 1,917:
move 68 67
text "Total: " & sum[h]
#
btn 20 20 "Roll"
btn 70 20 "Hold"
Line 1,964:
color 000
move 27 37
dice =
text dice
tmcnt -= 1
Line 5,057:
Bert is a winner, on 101</pre>
=={{header|uBasic/4tH}}==
<syntaxhighlight lang="qbasic">n = 2
m = 100
Dim @s(n)
p = 0
s = 0
Do
r = Ask(Join ("Player ", Str(p+1)," rolling? (Y/N) "))
If OR(Peek(r, 0), 32) = Ord("y") Then
r = Rnd(6) + 1
Print "Player ";p+1;" rolled ";r
If r = 1 Then
Print "Bust! you lose player ";p+1;" but still keep your previous score of ";@s(p)
Print : p = (p + 1) % n : s = 0
Else
s = s + r
EndIf
Else
@s(p) = @s(p) + s
If (@s(p) < m) = 0 Then
Print "Player ";p+1;" wins with a score of ";@s(p)
Break
EndIf
Print : p = (p + 1) % n : s = 0
EndIf
Loop</syntaxhighlight>
=={{header|VBA}}==
Line 5,169 ⟶ 5,202:
{{libheader|Wren-ioutil}}
{{libheader|Wren-str}}
<syntaxhighlight lang="
import "./str" for Str
import "random" for Random
|