[求助]谁有MrBlock0x的Inputw函数

hxdwq789

楼上的指的什么东东?是C么?

MrBlackOx

支持lavax1.0

1. 
   
2. long inputw(long object,char maxlenth,char start,char type)
   
3. {
   
4. //Basic module.
   
5. //object: It desides where to store the input string.
   
6. //maxlenth: It desides how many characters can be input once at the most.
   
7. //start: It decides where to start inputing string on the screen.
   
8. //type: bit 0~1:getword mode; bit 2:1 clear object before input; bit 3:1 ESC=Enter, bit 4:1 Blank string allowed
   
9. //It will return how many characters are input, and -1 means user pressed ESC when bit3 equals 0.
   
10. //Its disadvantage is that you can't input characters more than one screen.
    
11. //Common keyborad is demanded.
    
12. //Operation: Left, right, up, down; PageUp: clear the string; F3: go to the start; F4: go to the end.
    
13.     char i,col,row;
    
14.     char cc,cr,ch;
    
15.     char insmd;
    
16.     char inpmd;
    
17.     int word[2];
    
18.     char hz;
    
19.     char bk;
    
20.     char fl;
    
21.     char lenth;
    
22.     int n;
    
23.     hz=0;
    
24.     insmd=0;
    
25.     inpmd=0;
    
26.     row=start/20;
    
27.     col=start%20;
    
28.     if (type & 4)
    
29.     {
    
30.         memset (object,0,maxlenth);
    
31.     }
    
32.     inpmd=type & 3;
    
33.     lenth=strlen(object);
    
34.     n=lenth;
    
35.     for (;;)
    
36.     {
    
37.         lenth=strlen(object);
    
38.         if (n>lenth)
    
39.         {
    
40.             n=lenth;
    
41.         }
    
42.         fl=n;
    
43.         memset (_TEXT+start,0,100-start);
    
44.         Locate (row,col);
    
45.         printf("%s",object);
    
46.         //利用printf自动在屏幕上排版
    
47.         bk=0;
    
48.         i=row;
    
49.         while (i*20+18<start+fl)
    
50.         {
    
51.             if (*(_TEXT+i*20+19)==0)
    
52.             {
    
53.                 fl++;
    
54.             }
    
55.             if (*(_TEXT+i*20+19)==32)
    
56.             {
    
57.                 if (*(object+i*20+19-start-fl+n)!=32)
    
58.                 {
    
59.                     fl++;
    
60.                 }
    
61.             }
    
62.             i++;
    
63.         }
    
64.         cr=(start+fl)/20;
    
65.         cc=(start+fl)%20;
    
66.         if ((cc==0)&&(n==lenth))
    
67.         {
    
68.             word[0]=start+fl-1;
    
69.             if (word[0]>start)
    
70.             {
    
71.                 if (*(_TEXT+word[0])==0)
    
72.                 {
    
73.                     fl--;
    
74.                 }
    
75.                 if (*(_TEXT+word[0])==32)
    
76.                 {
    
77.                     if (*(object+strlen(object)-1)!=32)
    
78.                     {
    
79.                         fl--;
    
80.                     }
    
81.                 }
    
82.             }
    
83.             cr=(start+fl)/20;
    
84.             cc=(start+fl)%20;
    
85.         }
    
86.         if (*(object+n)&128)
    
87.         {
    
88.             ch=2;
    
89.         } else {
    
90.             ch=1;
    
91.         }
    
92.         if (insmd==1)
    
93.         {
    
94.             Box(8*cc,16*cr,8*(cc+ch)-1,16*(cr+1)-1,1,2);
    
95.         } else {
    
96.             Line(8*cc,16*cr+15,8*(cc+ch),16*cr+15,2);
    
97.         }
    
98.         word[0]=GetWord(inpmd);
    
99.         inpmd=3;
    
100.         ch=word[0]&255;
     
101.         if (ch&96)
     
102.         {
     
103.             if (ch&128)
     
104.             {
     
105.                 bk=2;
     
106.             } else {
     
107.                 bk=1;
     
108.             }
     
109.             if ((insmd==0)||(n==lenth))
     
110.             {
     
111.                 i=0;
     
112.             } else {
     
113.                 if (*(object+n)&128)
     
114.                 {
     
115.                     i=2;
     
116.                 } else {
     
117.                     i=1;
     
118.                 }
     
119.             }
     
120.             if (lenth+bk-i>=maxlenth)
     
121.             {
     
122.                 Beep();
     
123.                 continue;
     
124.             }
     
125.             if (bk-i)
     
126.             {
     
127.                 memmove (object+n,object+n-bk+i,strlen(object+n)+1+bk-i);
     
128.             }
     
129.             memcpy (object+n,word,bk);
     
130.             if (n==lenth)
     
131.             {
     
132.                 n=strlen(object);
     
133.                 continue;
     
134.             }
     
135.             n++;
     
136.             if (word[0]&128)
     
137.             {
     
138.                 n++;
     
139.             }
     
140.             continue;
     
141.         } else if (ch==LT_KEY)
     
142.         {
     
143.             n--;
     
144.             if (*(object+n)&128)
     
145.             {
     
146.                 n--;
     
147.             }
     
148.             if (n<0)
     
149.             {
     
150.                 n=lenth;
     
151.             }
     
152.             continue;
     
153.         } else if (ch==RT_KEY)
     
154.         {
     
155.             n++;
     
156.             if (*(object+n-1)&128)
     
157.             {
     
158.                 n++;
     
159.             }
     
160.             if (n>lenth)
     
161.             {
     
162.                 n=0;
     
163.             }
     
164.             continue;
     
165.         } else if (ch==UP_KEY)
     
166.         //对于上下键要特别注意移行后的中文
     
167.         {
     
168.             if (n<21)
     
169.             {
     
170.                 n=0;
     
171.                 continue;
     
172.             }
     
173.             if (*(object+n-21)&128==0)
     
174.             {
     
175.                 n=n-21;
     
176.                 continue;
     
177.             }
     
178.             bk=0;
     
179.             for (i=n-1;i>n-21;i--)
     
180.             {
     
181.                 bk=bk^*(object+i);
     
182.             }
     
183.             //逐一检查之间的字节中最高位为1的字节个数
     
184.             //通过奇偶判断
     
185.             if (bk&128)
     
186.             {
     
187.                 n=n-21;
     
188.             } else {
     
189.                 n=n-20;
     
190.             }
     
191.             if (n<0)
     
192.             {
     
193.                 n=0;
     
194.             }
     
195.             continue;
     
196.         } else if (ch==DN_KEY)
     
197.         {
     
198.             if (n+21>lenth)
     
199.             {
     
200.                 n=lenth;
     
201.                 continue;
     
202.             }
     
203.             if (*(object+n+21)&128==0)
     
204.             {
     
205.                 n=n+21;
     
206.                 continue;
     
207.             }
     
208.             bk=0;
     
209.             for (i=n;i<n+20;i++)
     
210.             {
     
211.                 bk=bk^*(object+i);
     
212.             }
     
213.             if (bk&128)
     
214.             {
     
215.                 n=n+21;
     
216.             } else {
     
217.                 n=n+20;
     
218.             }
     
219.             if (n>lenth)
     
220.             {
     
221.                 n=lenth;
     
222.             }
     
223.             continue;
     
224.         } else if (ch==F2_KEY&&lenth)
     
225.         {
     
226.             bk=0;
     
227.             if (n^lenth)
     
228.             {
     
229.                 if (*(object+n)&128)
     
230.                 {
     
231.                     i=2;
     
232.                 } else {
     
233.                     i=1;
     
234.                 }
     
235.                 memmove (object+n,object+n+i,strlen(object+n)+1-i);
     
236.             } else {
     
237.                 n--;
     
238.                 if (*(object+n)&128)
     
239.                 {
     
240.                     n--;
     
241.                     memset(object+n,0,2);
     
242.                 } else {
     
243.                     *(object+n)=0;
     
244.                 }
     
245.             }
     
246.             continue;
     
247.         } else if (ch==F3_KEY)
     
248.         {
     
249.             n=0;
     
250.             continue;
     
251.         } else if (ch==F4_KEY)
     
252.         {
     
253.             n=lenth;
     
254.             continue;
     
255.         } else if (ch==ENTER_KEY)
     
256.         {
     
257. GtRt:
     
258.             lenth=strlen(object);
     
259.             memset (object+lenth,0,maxlenth-lenth);
     
260.             SetScreen (1);
     
261.             if ((lenth==0)&&(type&16==0))
     
262.             {
     
263.                 return -1;
     
264.             } else {
     
265.                 return lenth;
     
266.             }
     
267.         } else if (ch==ESC_KEY)
     
268.         {
     
269.             if (type&8)
     
270.             {
     
271.                 goto GtRt;
     
272.             } else {
     
273.                 memset (object,0,maxlenth);
     
274.                 SetScreen (1);
     
275.                 return -1;
     
276.             }
     
277.         } else if (ch==F1_KEY)
     
278.         {
     
279.             insmd=1-insmd;
     
280.         } else if (ch==PU_KEY)
     
281.         {
     
282.             memset (object,0,maxlenth);
     
283.             n=0;
     
284.         }
     
285.     }
     
286. }
     

复制代码

随缘

如题...有的发个上来

先谢啦