138701
07.06.2019
1439
5
0
Karten mischen
Hallo zusammen,
Vor kurzen habe ich mit dem Projekt begonnen, Poker in Batch zu programmieren.
Jetzt habe ich schon einiges probiert, doch schaffe es nicht, die Karten zu mischen :/ .
Mein Script bis jetzt:
Vor kurzen habe ich mit dem Projekt begonnen, Poker in Batch zu programmieren.
Jetzt habe ich schon einiges probiert, doch schaffe es nicht, die Karten zu mischen :/ .
Mein Script bis jetzt:
@echo off&setlocal ENABLEDELAYEDEXPANSION
title Poker ^| DE
color 0B
mode 60,180
set a1=P
set a2=H
set a3=K
set a4=C
set count=1
for /l %%a in (1,1,4) do (
set k!count!=!a%%a!A
for /l %%b in (2,1,10) do set /a count+=1&set k!count!=!a%%a!%%b
for %%b in (J Q K) do set /a count+=1&set k!count!=!a%%a!%%b
set /a count+=1
)
:: ----------------------------------------------
:begin
cls
set /p multiplayer=Spieleranzahl (2-6):
if "%multiplayer%"=="" goto begin
set /a multiplayer=%multiplayer%
if not %multiplayer% GTR 1 if not %multiplayer% LSS 7 goto begin
set /a mkm=5+2*%multiplayer%
echo.
echo Karten werden gemischt...
for /l %%a in (1,1,52) do (
set /a t%%a=1+52*!random!/32768
for /l %%b in (1,1,%mkm%) do (
if not %%a==%%b for /l %%c in (1,1,1000) do if !t%%a!==%%b set /a t%%a=1+52*!random!/32768
)
set t%%a=k!t%%a!
)
pause
for /l %%a in (1,1,%mkm%) do (
echo !t%%a!
)
pause
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 460118
Url: https://administrator.de/contentid/460118
Ausgedruckt am: 28.03.2024 um 10:03 Uhr
5 Kommentare
Neuester Kommentar
Zitat von @138701:
Jetzt habe ich schon einiges probiert, doch schaffe es nicht, die Karten zu mischen :/ .
Ja ja der Freitag, hier wird dir geholfenJetzt habe ich schon einiges probiert, doch schaffe es nicht, die Karten zu mischen :/ .
http://shuffletech.com/de.aspx
https://www.instructables.com/id/Slot-Machine-Another-Batch-Game/