ユースカジノ 出金方法 FAQ

/* #TITLE# ユースカジノ 出金方法選択時、タイトルを表示させるユースカジノ 出金方法 */DLGMODE [0]
MACRO "*"
echo "<CE で終了";
getany(1);
<CE

/* #TITLE# 製図用定義をユースカジノ 出金方法実行前に保存し、実行後に回復するユースカジノ 出金方法 */s = getprm(1,1);/* save */

GNT "FONT"<0,0><CE /* 文字列処理を行う */
TEXT/FONT 2   /* ユースカジノ 出金方法内で使用するフォントに変更 */
GNT "FONT 2"<0,10><CE /* 文字列処理を行う */

TEXT/FONT [s] /* 回復 */
GNT "FONT"<0,20><CE /* 文字列処理を行う */

/* #TITLE# ダイアログモードをオフにしてユースカジノ 出金方法実行、実行後に回復するサンプルユースカジノ 出金方法 */s = getprm(4,7);/* save */DLGMODE [0]/* ダイアログモードをオフにしてユースカジノ 出金方法時、表示されないようにする */
            /* COLORGEN を使用して背景色を変更する */
            /* 1900 : 背景色指定 */
            /*    1 : 緑 */
            /*  120 : 緑の値 */
            /*    2 : 赤 */
            /*  110 : 赤の値 */
            /*    3 : 赤 */
            /*  100 : 赤の値 */
COLORGEN 1900 1 100 2 100 3 100 <CEDLGMODE [s]/* ダイアログモードをユースカジノ 出金方法実行前のモードに回復する */

/* #TITLE# モデル保存しないと印刷処理が行えないよう限定するユースカジノ 出金方法 */
if (dbchgd()== 1) {
  echo "モデルが変更されています。モデルを保存してください。\a";
} else {
  /* モデル保存後に図面印刷をする場合  */
  PLOT/PRINT OFF <CE
}

/* #TITLE# 座標値でソートする */
/* 点列をランダムに作成する */
PCE<20,30> < 0, 0> < 0,20> < 0,30>
<10,30> <30,30> <20, 0> <40,30>
<40,20> < 0,10> <40,10> <40, 0>
<30, 0> <10,0><CE
/* 作成した点列をアクティブリストに登録 */
ACT/REL
ACT/ALL <CE
/* アクティブリストを配列として使用 */
alist = actlst();
pcnt = length(alist);
/* 上記アクティブリスト数は下記取得方法でも可能
pcnt = #CURAユースカジノ 出金方法NT;
*/
/* アクティブリストに登録がなければ処理しない */
if( pcnt<= 0 ) { return; }
/* 座標値登録用としてアクトアイテム数分の配列を作成 */
plist=array(pcnt);
/* 配列に座標値登録 */
for(i=0;i<pcnt;i=i+1) {
  id = alist[i];
  VER [idptr(id)] <CE
  plist[i]=pdg(#VERXS,#VERYS);
}
/* ソート方法を選択 */
echo "並べ替える方法を選択:0 ～ 4";
ans = getnum(1);
if(vtype(ans) != 3 ) { ans = 0; }
switch(ans) {
case 1:
  err = sort(plist,"x:descend;y:ascend");
  break;
case 2:
  err = sort(plist,"x:ascend;y:descend");
  break;
case 3:
  err = sort(plist,"y:descend;x:ascend");
  break;
case 4:
  err = sort(plist,"y:ascend;x:descend");
  break;
}

/* ソートされていることを確認するために、配列の先頭から付番する */
GNT
for(i=0;i<pcnt;i=i+1) {
  [sprint("No%d",i+1)]
  p=plist[i];
  [p]
}
<CE