■default ---■fontsize --70% --80% --100% --120% --140% --- --■scroll_switch

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

ジャックハウンド(マジック) 種明かしテスト

/*
エースプロダクションとジャックハウンドLV1のレシピを書いておきます。

言語は今思いついた適当語です。
ms9l ver.0.001 (とか、うまいこといってねーし)

これを洗練させれば 動画でシミュレーションしたり、技法の検索とか速くできるようになるかもしれません。
なんでおれこんなにがんばってんだろ・・・
まだ、未熟ですがこれならたぶんフラリッシュも書けます。

仕様書ありませんので意味不明だと思いますが、とりあえず俺は分かるから良い。
*/



//No.14のエースプロダクション
//////////////////////////////////////////////////
include deal,flip,ts,pir,u_mr_pic,u_riffle_in

set regular = array{
f sa,
b ca,
f ha,
b da,
f dec,
}

#position deal[regular]

1.ts(dec[1]=>rh[1]) ;pir(rh[1]);
2.f_sa = u_riffle_in(rh[1]=>dec[n]);
3.deal(dec[1]=>rh[1]);
4.flip(rh[1]->f_sa[p]);
5.flip(rh[1]->space[0]);u_mr_pic(dec[1]->space[0]);
exit;

//////////////////////////////////////////////////



//jack hound Lv.1
//////////////////////////////////////////////////
include mist_finer,sandwich_slide,reverse,flip,deal,put,pass,divine

ss=sandwich_slide;

set regular = array{
f sj,
f cj,
f dec,
}

#position deal[regular]
1.tgc=mist_finer(dec[n]=>dec[52]);
2.ss(tgc=>rh[2],dec[1]=>rh[1]);breath();
3.tp_two = reverse(tgc=>dec[1]) + dec[2];
4.flip(rh[1]);
5.deal(tp_two =>rh[2]);
6.put(lh[all]=>space[0]);
7.flip(rh[all]);breath();flip(rh[all]);pass(rh[all]=>lh[all]);
8.deal(lh[3]=>rh[1]);flip(rh[1]);reverse(rh[1]=>lh[1]);
9.divine(tgc=>rh[2],lh[1]=>rh[1],lh[2]=>rh[3]);
10.flip(rh[all]);breath();

exit;

//////////////////////////////////////////////////



/* ヒントとか
 インクルードされている定義関数は別ライブラリで
 参照できませんが、今のところ見なくても分かる仕様になっています。


club c
heart h
diamond d
spade s

kqjt98765432a w

front f
back b
up p
down o
left_hand lh
right_hand rh

dec
*/

スポンサーサイト
ブログ内検索ワード
マジック / フラリッシュ / デザイン / ~のコツ / プログラム関連 /
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。