AHK: Рандом без повторений

А какие карты играют?

Нет, не надо, я и имел в виду "сколько карт". Могу написать код, выдающий рандомно номера без повторений, названия карт сами присвоите.

Вот, как раз это мне и нужно, можно ли например сделать, чтобы рандомное число вставлялось в текст?
Например: SendInput, {F6}На стол выложили карты: и тут рандомные карты {Enter} ;

Без проверки на окончание колоды:

Begin:
   Cards := []
   Loop 52
      Cards[A_Index] := A_Index
   Return

Numpad0::
   Gosub, Begin
   Return
   
Numpad1::
Numpad2::
Numpad3::
   CurrentCards := ""
   Count := InStr(A_ThisHotkey, 1) ? 2 : InStr(A_ThisHotkey, 2) ? 3 : 1
   while (Cards.MaxIndex() && !(A_Index > Count))
   {
      Random, rand, 1, Cards.MaxIndex()
      CurrentCards .= (A_Index = 1 ? "" : ", ") . Cards.Remove(rand)
   }
   SendInput, {F6}На стол выложили карты: %CurrentCards%{Enter}
   Return

Не думал что у меня так мозг закипит, в способе teadrinker'a я не разобрался где написать список.
В способе serzh82saratov не пишет в чат. Может форум для более продвинутых, но без пояснения я не могу все понять. И вот думаю, не могли бы вы сделать вот такой вот скрипт. Вполне возможно заплатить за него.

Не знаю как это нормально объяснить, ладно, напишу что на какую кнопку действует.
Все цифры на numpad, кроме 0, будут выдавать такой текст {F6}/pm id [random card | random card]
id должен устанавливаться при открытии скрипта, в неком menu (GUI), в котором на каждую цифру на numpad, устанавливаешь id.
random card это рандомная карта, которая не должна повторяться.
Пример:
В menu на numpad1, значение id я выбрал 27. То есть при нажатии кнопки, выйдет что-то наподобие {F6}/pm 27 [A Трефы | K Бубны] {Enter}
На numpad2, значение id я выбрал 4. Получится что-то наподобие этого /pm 4 [T Червы | 7 Пики] {Enter}
Не должно получиться, чтобы карты повторялись, пока я не нажал numpad0.
При нажатии на numpad0 должна произойти команда SendInput, {F6}/me начинает собирать все карты со стола в колоду, после перетасовывает колоду игральных карт. {Enter} После этого, история карт должна обнулиться, и например A Треф снова может быть использована в следующих играх.
Следующий шаг, numpadEnter, тут будет две команды.
{F6}/me держа колоду карт над столом, сбрасывает первую карту, после сдает три карты на стол. {Enter} Потом sleep на 2500 мс, и следует {F6}/do Дилер выложил на стол: [random card | random card | random card]{Enter} Получается что-то вроде этого /do Дилер выложил на стол: [A Бубны | K Трефы | 4 Трефы]. Опять же, карты не должны повторяться Пока не будет перетасована колода.
Так-с, далее, numpadAdd, тут почти такое же, только будет 1 карта.
{F6}/me держа в руке колоду карт над столом, сбрасывает первую карту, после сдает одну карту на стол. {Enter} Потом sleep на 2500 мс, и следует {F6}/do Дилер выложил на стол: [random card] {Enter} Получается /do Дилер сдал на стол: [8 Пики]
И последний шаг, numpadSub, тут на 100% схоже с прошлым. Не буду расписывать, вы наверное и так поняли.
Как раз после него, я нажимаю numpad0 и перетасовываю карты, то есть должна обнулиться история, и карты при следующей раздачи могут быть такими же.

Я думал вы ценник сами предъявите.

Нужно найти и использовать шрифт, в котором есть эти символы.

В смысле, AHK v1, похоже, вообще не поддерживает utf-32:

VarSetCapacity(sim, 4, 0)
NumPut(0x1f0a0, sim, "Int")
MsgBox, % StrLen(StrGet(&sim, 1, "CP12000"))   ; 12000 — utf-32

Шрифт, наверно, скачать и установить.

А так не пробовали: http://yandex.ru/yandsearch?text=playin … &lr=53?

Playing Cards

FontFile := "D:\Downloads\CARDS.TTF"  ; указать путь к файлу со шрифтом
FontName := "Playing Cards"           ; указать имя шрифта из файла

if !DllCall("AddFontResourceEx", Str, FontFile, UInt, FR_PRIVATE := 0x10, Ptr, 0)
{
   MsgBox, % "Не удалось установить шрифт. Ошибка " . A_LastError
   return
}

SendMessage, WM_FONTCHANGE := 0x1D, 0, 0,, % "ahk_id" HWND_BROADCAST := 0xFFFF

Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop
Gui, Color, 0x0000FD
Gui, Font, s80 q3, % FontName
Gui, Add, Text, cRed, K
Gui, Add, Text, x+1 cRed, Y
Gui, Add, Text, x+1 cBlack, m
Gui, Add, Text, x+1 cBlack, n
WinSet, TransColor, 0x0000FD
Gui, Show
Return

Esc::ExitApp

Хм, я их в плане привлекательности как-то не догадался оценить.

FontFile := "D:\Downloads\CARDS.TTF"  ; указать путь к файлу со шрифтом
FontName := "Playing Cards"           ; указать имя шрифта из файла

if !DllCall("AddFontResourceEx", Str, FontFile, UInt, FR_PRIVATE := 0x10, Ptr, 0)
{
   MsgBox, % "Не удалось установить шрифт. Ошибка " . A_LastError
   return
}

SendMessage, WM_FONTCHANGE := 0x1D, 0, 0,, % "ahk_id" HWND_BROADCAST := 0xFFFF

Блин почему то не меняет шрифт, но и ошибки не выдаёт.

А вообще свой шрифт удобно, можно по порядку как надо раскидать.
В аттаче шрифт можете проверить, у меня не отображается 6 бубей код 0x26, хотя в таблице символов её видно.

Loop % mi := 52
    deck .= 0x20+A_Index "|"
 
size := 122, i := 0, deck := RTrim(deck,"|") 

Gui, -DPIScale
Gui, Font, s40, Playing Cards 
Gui, Add, Text, h%size% w%size% +0x201 Border vcard1 g1 
Gui, Add, Text, hp wp x+5 +0x201 Border vcard2 g2
Gui, Add, Text, hp wp x+5 +0x201 Border vcard3 g3
Gui, Font, s16, Arial
Gui, Add, Text, % "xs y+5 h" size / 3 " w" size * 3 + 10 " Border +0x201 vText gBegin" 
Gui, Show   

Begin:
    Sort, deck, Random D|  
    Global arr := StrSplit(deck, "|"), i := 0, cards := [], mi
    GuiControl,, Text, Полная колода
    Loop 3
        GuiControl,, card%A_Index% 
    Return
    
1:: 
2::
3:: next(A_ThisLabel), cards := []
4:: GoTo Begin

next(count)  {    
    Loop % i + count > mi ? mi - i : count
        cards[A_Index] := arr[++i] 
    Loop 3
    { 
        GuiControl, % cards[A_Index] > 0x003a ? "+cBlack" : "+cRed", card%A_Index% 
        GuiControl,, card%A_Index%, % Chr(cards[A_Index])
        GuiControl, +Redraw, card%A_Index% 
    }
    GuiControl,, Text, % i = mi ? "Пустая колода" : "Осталось " mi - i " карт(ы)" 
}