Karten mischen

@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