ＮＯ＿６１３ †
久しぶりに 簡単言語Sampleうｐしましたｗ
配列は2次元なんですけど
いらないと思いますが
indexと異なるかもなのでｗ
goto *@f
#deffunc num_rgst_init
dim ar_num,256,2
return
#deffunc num_rgst_num int p_index,int p_num,int p_line
ar_num.p_index.0=p_num
ar_num.p_index.1=p_line
return
#deffunc num_rgst_dump
repeat 16
logmes "num "+cnt+":"+ar_num.cnt.0
logmes "line "+cnt+":"+ar_num.cnt.1
loop
return
*@
num_rgst_init
flag_on_line_search=1
hoge_pc=1
// case 1: pos
my_line=int(__LINE__)
if flag_on_line_search==1{
num_rgst_num hoge_pc,hoge_pc,my_line
hoge_pc++
}
if flag_on_label_search==1{
}
if flag_on_do==1{
pos 150,0
}
// case 2: mes
my_line=int(__LINE__)
if flag_on_line_search==1{
num_rgst_num hoge_pc,hoge_pc,my_line
hoge_pc++
}
if flag_on_label_search==1{
}
if flag_on_do==1{
mes "ボタンを押してください"
}
num_rgst_dump
Skin "GS2" is designed by yiza.
Powered by PHP 7.1.33. HTML convert time: 0.007 sec.