検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
NO_499 をテンプレートにして作成
メニュー
簡易掲示板
LINK集
y.tackの公式BBSブックマーク
practice room
?
最新の20件
2022-10-09
多角形の内外判定
2021-05-19
RecentDeleted
2018-08-01
FrontPage
文字列型変数管理サブルーチン
GAME作成システム
2018-07-31
double型変数管理サブルーチン
int型変数管理サブルーチン
2018-07-21
GUIとメイン分割処理。たたき台2
2018-07-11
memo
NO_579_sample
GUIとメイン分割処理。たたき台
2018-06-28
NO_714
NO_712
NO_706
NO_705
NO_704
NO_703
NO_702
2018-06-23
Shift_JIS
モートン番号テーブル化 / 八分木
total
0
today
0
yesterday
0
now
1
Menu
Total:0/Today:0
開始行:
**NO_499 [#l2063600]
サンプルスクリプトです~
483 の改造~
ラベル定義のタイミングでマクロ反映させました~
LINE定義のタイミングでマクロ定義実行出来るかも~
ここまで来たらアレですねw~
変数名と添え字をマクロで管理出来るかもw~
~
分類名と変数名と添え字をセットで管理しなきゃなので~
モジュール化したほうがいいかも~
dim var4stock_define_value,100,16
repeat 100
i=cnt
repeat 16
var4stock_define_value.i.cnt=-1
loop
loop
var4stock_define_value_counter=0
if flag_on_define==1{
#define value_a 0
#define value_aa1 1
; var4stock_define_value.label_pc.0=0
}
//case 1:
my_line=int(__LINE__) //x行でcaseみたいな処理
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
logmes "途中A"
mes "途中A"
if my_pc_B==1{my_pc_B++:cp1=1:goto *sw_begin }
if my_pc_B==2{my_pc_B++:cp2="a":goto *sw_begin }
if my_pc_B==3{my_pc_B++:cp3=label_pc:goto *sw_begin }
if my_pc_B==4{my_pc_B++:x_label_init cp1,cp2,cp3:goto...
if my_pc_B==5{
logmes "途中B":my_pc_B=1:label_pc++:goto *sw_begin ...
}
}
if flag_on_do==1{
logmes "途中D"
logmes ""+num_stack.my_line
logmes "pc"+cmd_pc
if cmd_pc==num_stack.my_line{ //1
mes "途中inE1"
my_pc_B=1:cmd_pc++:goto *sw_begin
}
}
//case 4:
my_line=int(__LINE__) //x行でcaseみたいな処理
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
def_call_counter=0
var4stock_define_value.label_pc.def_call_counter=valu...
def_call_counter++
; var4stock_define_value.label_pc.0=value_aa1 // これ...
}
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
if my_pc_B==1{my_pc_B=1:label_pc++:goto *sw_begin }//...
}
}
; if flag_on_define_call==1{
; def_call_counter=0
; var4stock_define_value.label_pc.def_call_counter=valu...
; def_call_counter++
; var4stock_define_value.label_pc.0=value_aa1 // これも可
; }
if flag_on_do==1{
if cmd_pc==num_stack.my_line{ //4
logmes "inE4"
if my_pc_B==1{my_pc_B++:cp1="aa1":goto *sw_begin }
if my_pc_B==2{my_pc_B++:cp2=var4stock_define_value.cm...
if my_pc_B==3{cr_com=en_get_my_label:
my_pc_B=1:cmd_pc++:goto *com_sw: goto *sw_begin }
}
}
//case 5:
my_line=int(__LINE__) //x行でcaseみたいな処理
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
if my_pc_B==1{my_pc_B=1:label_pc++:goto *sw_begin }
}
}
if flag_on_do==1{
if cmd_pc==num_stack.my_line{ //5
logmes "inE5"
if my_pc_B==1{my_pc_B++:cp1="X足す1":goto *sw_begin }
if my_pc_B==2{my_pc_B++:bt_pc_1=my_label: goto *sw_be...
if my_pc_B==3{cr_com=en_button_A
my_pc_B=1:cmd_pc++:goto *com_sw: goto *sw_begin }
}
}
終了行:
**NO_499 [#l2063600]
サンプルスクリプトです~
483 の改造~
ラベル定義のタイミングでマクロ反映させました~
LINE定義のタイミングでマクロ定義実行出来るかも~
ここまで来たらアレですねw~
変数名と添え字をマクロで管理出来るかもw~
~
分類名と変数名と添え字をセットで管理しなきゃなので~
モジュール化したほうがいいかも~
dim var4stock_define_value,100,16
repeat 100
i=cnt
repeat 16
var4stock_define_value.i.cnt=-1
loop
loop
var4stock_define_value_counter=0
if flag_on_define==1{
#define value_a 0
#define value_aa1 1
; var4stock_define_value.label_pc.0=0
}
//case 1:
my_line=int(__LINE__) //x行でcaseみたいな処理
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
logmes "途中A"
mes "途中A"
if my_pc_B==1{my_pc_B++:cp1=1:goto *sw_begin }
if my_pc_B==2{my_pc_B++:cp2="a":goto *sw_begin }
if my_pc_B==3{my_pc_B++:cp3=label_pc:goto *sw_begin }
if my_pc_B==4{my_pc_B++:x_label_init cp1,cp2,cp3:goto...
if my_pc_B==5{
logmes "途中B":my_pc_B=1:label_pc++:goto *sw_begin ...
}
}
if flag_on_do==1{
logmes "途中D"
logmes ""+num_stack.my_line
logmes "pc"+cmd_pc
if cmd_pc==num_stack.my_line{ //1
mes "途中inE1"
my_pc_B=1:cmd_pc++:goto *sw_begin
}
}
//case 4:
my_line=int(__LINE__) //x行でcaseみたいな処理
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
def_call_counter=0
var4stock_define_value.label_pc.def_call_counter=valu...
def_call_counter++
; var4stock_define_value.label_pc.0=value_aa1 // これ...
}
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
if my_pc_B==1{my_pc_B=1:label_pc++:goto *sw_begin }//...
}
}
; if flag_on_define_call==1{
; def_call_counter=0
; var4stock_define_value.label_pc.def_call_counter=valu...
; def_call_counter++
; var4stock_define_value.label_pc.0=value_aa1 // これも可
; }
if flag_on_do==1{
if cmd_pc==num_stack.my_line{ //4
logmes "inE4"
if my_pc_B==1{my_pc_B++:cp1="aa1":goto *sw_begin }
if my_pc_B==2{my_pc_B++:cp2=var4stock_define_value.cm...
if my_pc_B==3{cr_com=en_get_my_label:
my_pc_B=1:cmd_pc++:goto *com_sw: goto *sw_begin }
}
}
//case 5:
my_line=int(__LINE__) //x行でcaseみたいな処理
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
if label_pc==num_stack.my_line{
if my_pc_B==1{my_pc_B=1:label_pc++:goto *sw_begin }
}
}
if flag_on_do==1{
if cmd_pc==num_stack.my_line{ //5
logmes "inE5"
if my_pc_B==1{my_pc_B++:cp1="X足す1":goto *sw_begin }
if my_pc_B==2{my_pc_B++:bt_pc_1=my_label: goto *sw_be...
if my_pc_B==3{cr_com=en_button_A
my_pc_B=1:cmd_pc++:goto *com_sw: goto *sw_begin }
}
}
ページ名: