アルゴリズム/トランプ/シャッフル１

  1
  2
  3
  4

    dim tramp,52
    tramp.0 = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12
    ...
    tramp.39=39,40,41,42,43,44,45,46,47,48,49,50,51

  1

    dimmix tramp

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30

    ;サンプル
    randomize
    dim tramp,52
    tramp.0 = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12
    tramp.13=13,14,15,16,17,18,19,20,21,22,23,24,25
    tramp.26=26,27,28,29,30,31,32,33,34,35,36,37,38
    tramp.39=39,40,41,42,43,44,45,46,47,48,49,50,51
    onclick *click
 *click
    onclick 0
    cls
    dimmix tramp
    txt=""
    repeat 52
        wait 1
        s="  "+tramp.cnt
        strmid s,s,-1,3
        txt=txt+s
        if cnt\13=12 : mes txt : txt=""
    loop
    card=""
    repeat 5
        wait 1
        s="  "+tramp.cnt
        strmid s,s,-1,3
        card=card+s
    loop
    title card
    onclick 1
    stop