| |
>もしなければ、ランダム関数をつくる
>方法がありますでしょうか。
//*3KZHM_255.mac - 1999/11/11 - K.Nakatake
//*3 乱数のことには、ズブ素人ですが、 ( K6-233 で、 ) 数秒かかります。
//*3 runrun2.mac
//T message str(tickcount);
$wk1 = time;
#mm = 100;
while( #mm ){
#i = ( ( ( tickcount - #ii ) % 3001 ) * 101 ) % 100; // 100 のあ
まり
// #i = ( ( tickcount % 3001 ) * 101 ) % 100; // 100 のあまり
// #i = ( ( tickcount % 3001 ) * 1009 ) % 100; // 100 のあまり
// #i = ( ( tickcount % 1009 ) * 1009 ) % 100; // 100 のあまり
// #i = ( ( tickcount % 101 ) * 101 ) % 100; // 100 のあまり
// #i = tickcount % 100; // 100 のあまり
if( #tb[#i] == 00 ){
#tb[#i] = 01;
$tb[#mm-1] = rightstr("00"+str(#mm-1),2) + " - " + rightstr("00"
+str(#i),2);
#mm = #mm - 1;
} else {
// #ii = 99 - #i + #tb[#i];
#ii = 99 - #i;
#tb[#i] = #tb[#i] + 1;
}
}
$wk1 = $wk1 + " - " + time;
//T message $wk1;
mousemenuarray $tb, 100;
if( iskeydown( 0x1B ) ){ endmacro; } // [Esc]
#i = 00;
while( #i < 100 ){
$tb[#i] = rightstr("00"+str(#i),2) + " - " + rightstr("...."+str
(#tb[#i]),4);
#i = #i + 1;
}
mousemenuarray $tb, 100;
endmacro;
//*3 runrun3.mac
#mm = 100;
while( #mm ){
#i = ( ( ( tickcount - #ii ) % 3001 ) * 101 ) % 100; // 100 のあ
まり
if( #tb[#i] == 00 ){
#tb[#i] = 01;
$tb[#mm-1] = rightstr("00"+str(#mm-1),2) + " - " + rightstr("00"
+str(#i),2);
#mm = #mm - 1;
} else {
// #ii = 99 - #i + #tb[#i];
#ii = 99 - #i;
// #tb[#i] = #tb[#i] + 1;
}
}
mousemenuarray $tb, 100;
endmacro;
|
|