掏金者可以玩啦！（用我的编译器编的）

yoyohenry

竟又坐了沙发~

麻烦斑竹转到新品区去

Isword

支持啊!!!!

leesoft

祝贺！
super mario是把每个8*8字模压缩为5*3。

zhaofeixxx

适合nc3000!
其它的我不知键盘io和文件读取函数，大家告诉我
sxzc上下左右，f4开始，f1复位，f2选，下右：AB
垂直滚动是我编的，其它的要感谢lee哥！！
我不会压缩字模，于是写了这个来压缩，但效果不好，lee哥和高手教我

2. int fp;
3. char mem[4096];
4. char pic[8];
5. char text[200];
6. char bit[8]={128,64,32,16,8,4,2,1};
7. void xuan()
8. {
9. char n[10][20];
10. char name[2][20];
11. char dirname[50];
12. char filename[50];
13. int i,j;
14. i=0;
15. sprintf(n[0],"%s","/");
16. for(;;)
17. {
18. memset(dirname,0,50);
19. for(j=0;j<=i;j++)strcat(dirname,n[j]);
20. ChDir(dirname);
21. if(!FileList(filename))
22. {
23. i--;
24. if(i<0)exit(0);
25. }
26. else
27. {
28. sprintf(text,"%s/%s",dirname,filename);
29. if(ChDir(text))
30. {
31. i++;
32. sprintf(n[i],"%s",filename);
33. }
34. else
35. {
36. sprintf(name[0],"%s",filename);
37. return;
38. }
39. }
40. }
41. }
43. int getPoint(int x,int y)
44. {
45. int i;
46. long addr;
47. addr=_GRAPH+y*20+x/8;
48. i=x%8;
49. if(*(addr)&bit[i])return 1;
50. else return 0;
51. }
53. void main()
54. {
55. int i,j,m,n;
56. SetScreen(1);
57. Locate(2,8);
58. printf("FC转文曲星\n      字模压缩器");
59. getchar();
60. MakeDir("/LavaData");
61. xuan();
62. fp=fopen(text,"r");
63. ClearScreen();
64. Refresh();
65. for(i=0;i<1024;i++)
66. {
67. if(CheckKey(27))exit(0);
68. Box(1,8,50,16,1,0);
69. Box(1,75,1+158*i/1023,79,1,1);
70. fread(pic,1,8,fp);
71. WriteBlock(8,8,8,8,65,pic);
72. for(n=0;n<8;n++)
73. {
74. for(m=0;m<7;m++)
75. {
76. if(GetPoint(m+8,n+8)&&GetPoint(m+9,n+8))
77. {
78. Point(m/2+24,n+8,1);
79. if(i<512)Point(31-m/2,n+8,1);
80. }
81. }
82. }
83. for(m=0;m<8;m++)
84. {
85. if(GetPoint(m+24,8)||GetPoint(m+24,9))Point(m+40,8,1);
86. if(GetPoint(m+24,11)||GetPoint(m+24,12))Point(m+40,9,1);
87. if(GetPoint(m+24,14)||GetPoint(m+24,15))Point(m+40,10,1);
88. }
89. GetBlock(40,8,8,4,64,mem+i*4);
90. }
91. fclose(fp);
92. fp=fopen("/LavaData/字模.dat","w+");
93. fwrite(mem,1,4096,fp);
94. fclose(fp);
95. exit(0);
96. }

复制代码