home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 February / VPR9902A.BIN / OLS / RSIG101 / RSIG101.LZH / R-signature.mac < prev   
Text File  |  1998-10-03  |  807b  |  34 lines
  1. // Random Signature version 1.01
  2. // 企画立案 RYUZO
  3. // 製作 noro
  4.  
  5. #n = 3; // 1～999 :シグネーチャファイルの数
  6. $pth = hidemarudir + "\\sign\\"; // シグネーチャファイルのパス
  7. $num = str( tickcount % #n + 1 );// ランダム(…でもないか…(笑))
  8. while(strlen($num) < 3 ){
  9.     $num = "0" + $num;// 3桁数字の作成
  10. }
  11. if (!existfile( $pth + "sign" + $num + ".txt" )){
  12.      $num = "000";
  13. }
  14. // ↑ 該当する番号のファイルが無い時は 000 にする。
  15.  
  16. if( overwrite ) {
  17.     overwriteswitch;
  18.     insertreturn;
  19.     overwriteswitch;
  20. } else {
  21.     insertreturn;
  22. }
  23.  
  24. if(existfile( $pth + "presign.txt" )){
  25.     insertfile $pth + "presign.txt";
  26. }
  27. insertfile $pth + "sign" + $num + ".txt";
  28. // ↑ 該当する番号のファイルをカーソル位置に挿入。
  29.  
  30. if(existfile( $pth + "postsign.txt" )){
  31.     insertfile $pth + "postsign.txt";
  32. }
  33. saveexit;
  34.