复刻版mod代碼一問

陸青緣

版本: 金庸群侠传Pascal复刻版(好像是...)
使用工具: Delphi7
修改: kys_main
其內容:

1. begin
   
2.       if (p2[i] = 1) then
   
3.       begin
   
4.         str := format('%6d', [ritem[item].Data[45 + i]]);
   
5.         if i = 4 then
   
6.           case ritem[item].ChangeMPType of
   
7.             0: str := '    ?';
   
8.             1: str := '    ?';
   
9.             2: str := '  調和';
   
10.           end;
    
11. 
    
12.         drawshadowtext(@words2[i][1], 97 + i1 mod 3 * 130, i1 div 3 * 20 + 346, colcolor($7), colcolor($5));
    
13.         drawshadowtext(@str[1], 147 + i1 mod 3 * 130, i1 div 3 * 20 + 346, colcolor($66), colcolor($64));
    
14.         i1 := i1 + 1;
    
15.       end;
    
16. 
    
17. 問題:
    
18. 0: str := '    ?';
    
19. 1: str := '    ?';

复制代码

這是什麼?
另外一題:

1. //顯示狀態
   
2. procedure ShowStatus(rnum: integer);var  i, magicnum, mlevel, needexp, x, y: integer;  addatk, adddef, addspeed: integer;  str: widestring;  strs: array[0..31] of widestring;  color1, color2: uint32;  name: widestring;begin  strs[0] := ' 等?';  strs[1] := ' 生命';  strs[2] := ' 內力';  strs[3] := ' 體力';  strs[4] := ' ??';  strs[5] := ' 升?';  strs[6] := ' 攻擊';  strs[7] := ' 防禦';  strs[8] := ' 輕功';  strs[9] := ' 醫療能力';  strs[10] := ' 用毒能力';  strs[11] := ' 解毒能力';  strs[12] := ' 拳掌功夫';  strs[13] := ' 禦劍能力';  strs[14] := ' 耍刀技巧';  strs[15] := ' 特殊兵器';  strs[16] := ' 暗器技巧';  strs[17] := ' 裝備物品';  strs[18] := ' 修練物品';  strs[19] := ' 所會武功';  strs[20] := ' 受傷';  strs[21] := ' 中毒';  strs[22] := ' 扇子技巧';  strs[23] := ' 槍棍技巧';  strs[24] := ' 法術技巧';  strs[25] := ' 資質';  strs[26] := ' 體質';  strs[27] := ' 武學常識';  strs[28] := ' 手持';  strs[29] := ' 身披';  strs[30] := ' 頭戴';  strs[31] := ' 腳踏';  Redraw;  x := 0;  y := 0;
   

复制代码

strs[0] := ' 等?'
strs[4] := ' ??'
strs[5] := ' 升?'


這些是什麼??


最三題:

1. //使用物品的效果
   
2. //練成秘笈的效果
   
3. 
   
4. procedure EatOneItem(rnum, inum: integer);
   
5. var
   
6.   i, p, l, x, y: integer;
   
7.   word: array[0..26] of widestring;
   
8.   addvalue, rolelist: array[0..26] of integer;
   
9.   str: widestring;
   
10. begin
    
11. 
    
12.   word[0] := ' 增加生命';
    
13.   word[1] := ' 增加生命最大值';
    
14.   word[2] := ' 中毒程度';
    
15.   word[3] := ' 增加體力';
    
16.   word[4] := ' 內力門路??合一';
    
17.   word[5] := ' 增加內力';
    
18.   word[6] := ' 增加內力最大值';
    
19.   word[7] := ' 增加攻擊力';
    
20.   word[8] := ' 增加輕功';
    
21.   word[9] := ' 增加防禦力';
    
22.   word[10] := ' 增加醫療能力';
    
23.   word[11] := ' 增加用毒能力';
    
24.   word[12] := ' 增加解毒能力';
    
25.   word[13] := ' 增加抗毒能力';
    
26.   word[14] := ' 增加拳掌能力';

复制代码

內力門路 什麼??

最後一題:

1. ShowSimpleStatus(rnum, 350, 50);
   
2. DrawRectangle(100, 70, 200, 25, 0, colcolor(255), 25);
   
3. str := ' 服用';
   
4. if Ritem[inum].ItemType = 2 then
   
5. str := ' ?成';
   
6. Drawshadowtext(@str[1], 83, 72, colcolor($23), colcolor($21)); Drawbig5shadowtext(@Ritem[inum].Name, 143, 72, colcolor($66), colcolor($64));
   
7. 
   
8. //如果增加的項超過13個, 分兩列顯示

复制代码

str := ' ?成';
什麼來的?

感謝回答

jy02785317

不是什么,猜测是编码不同造成的
导致文字在你的编辑器上显示不完全

陸青緣

回复 2# jy02785317

本是亂碼來的,我會了好久的時候才改回正常,
就只有它們有問題==

box1621

1.阴内 阳内
2.或许是经验 升级，2的代码太少，看不出来。

陸青緣

回复 4# box1621


不好意思啊...其實昨天我還找到兩個錯了的地方,
等等我會更新1L的內容。

KA

编码显示不全

[发帖际遇]: KA在海边沙滩上捡到一支圣火令，当废铜卖了，获得银两6。

陸青緣

编码显示不全
KA 发表于 2010-12-1 19:52

我不知道那個是開頭那個是結尾--

winson7891

陆巨的存在就是一个杯具~

与其研究这个，不如……

1，找个繁体版的delphi

2，安装个简体版的Pascal

[发帖际遇]: winson7891帮助胡桂南偷到雪蛤蟆，胡桂南酬谢银两19。

陸青緣

陆巨的存在就是一个杯具~

与其研究这个，不如……

1，找个繁体版的delphi

2，安装个简体版的Pasca ...
winson7891 发表于 2010-12-1 20:53

我用英文版的delphi7......