簡易トランプ画像の出し方

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16

 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
!

#uselib "Cards.dll"
#cfunc cdtInit "cdtInit" var,var
#func cdtDraw "cdtDraw" int,int,int,int,int,int
#func cdtTerm "cdtTerm"
 
if cdtInit(xx,yy) {
  screen 0,xx*10,yy*6,,0,0
  repeat 56
    cdtDraw hdc,ii*xx,jj*yy,cnt,0,0
    ii++
    if ii=10 {ii=0:jj++}
  loop
  redraw
 
  cdtTerm
}