tcm2c.pas

一个96K的3D游戏源码

USES Crt,Dos;
VAR T:Text;
    F:FILE;
    SR:SearchRec;
    PosCnt:LongInt;

PROCEDURE WriteToFile(C:Byte);
BEGIN
  PosCnt:=PosCnt+1;
  if(PosCnt=7) THEN BEGIN
    Write(T,C);
    WriteLn(T,',');
    PosCnt:=0;
  END ELSE BEGIN
    Write(T,C);
    Write(T,',');
  END;
END;

PROCEDURE WriteFile(St:STRING);
VAR Name:STRING;
    B:Byte;
BEGIN
     PosCnt:=0;
     Name:='TCM'+St;
     Delete(Name,Pos('.',Name),4);
     if(Pos('~',Name)<>0) THEN Delete(Name,Pos('~',Name),1);
     WriteLn(T,'const unsigned char '+Name+'[] = {');
     Assign(F,St);
     ReSet(F,1);
     WHILE NOT EoF(F) DO BEGIN
       BlockRead(F,B,1);
       WriteToFile(B);
     END;
     Close(F);
     WriteLn(T,'};');
     WriteLn(T);
END;

BEGIN
     Assign(T,'TCMs.h');
     ReWrite(T);
     WriteLn(T,'/* Texture-Files - Created by TCM2C (C)2004 Pap/JTMK/CM */');
     FindFirst('*.tcm',AnyFile,SR);
     WHILE DosError=0 DO BEGIN
           WriteFile(SR.Name);
           FindNext(SR);
     END;
     Close(T);
END.