本帖最后由 陸青緣 于 2010-12-1 17:45 编辑
版本: 金庸群侠传Pascal复刻版(好像是...)
使用工具: Delphi7
修改: kys_main
其內容:- begin
- if (p2[i] = 1) then
- begin
- str := format('%6d', [ritem[item].Data[45 + i]]);
- if i = 4 then
- case ritem[item].ChangeMPType of
- 0: str := ' ?';
- 1: str := ' ?';
- 2: str := ' 調和';
- end;
- drawshadowtext(@words2[i][1], 97 + i1 mod 3 * 130, i1 div 3 * 20 + 346, colcolor($7), colcolor($5));
- drawshadowtext(@str[1], 147 + i1 mod 3 * 130, i1 div 3 * 20 + 346, colcolor($66), colcolor($64));
- i1 := i1 + 1;
- end;
- 問題:
- 0: str := ' ?';
- 1: str := ' ?';
复制代码 這是什麼?
另外一題:- //顯示狀態
- 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] := ' 升?'
這些是什麼??
最三題:
- //使用物品的效果
- //練成秘笈的效果
- procedure EatOneItem(rnum, inum: integer);
- var
- i, p, l, x, y: integer;
- word: array[0..26] of widestring;
- addvalue, rolelist: array[0..26] of integer;
- str: widestring;
- begin
- word[0] := ' 增加生命';
- word[1] := ' 增加生命最大值';
- word[2] := ' 中毒程度';
- word[3] := ' 增加體力';
- word[4] := ' 內力門路??合一';
- word[5] := ' 增加內力';
- word[6] := ' 增加內力最大值';
- word[7] := ' 增加攻擊力';
- word[8] := ' 增加輕功';
- word[9] := ' 增加防禦力';
- word[10] := ' 增加醫療能力';
- word[11] := ' 增加用毒能力';
- word[12] := ' 增加解毒能力';
- word[13] := ' 增加抗毒能力';
- word[14] := ' 增加拳掌能力';
复制代码
內力門路 什麼??
最後一題:
- ShowSimpleStatus(rnum, 350, 50);
- DrawRectangle(100, 70, 200, 25, 0, colcolor(255), 25);
- str := ' 服用';
- if Ritem[inum].ItemType = 2 then
- str := ' ?成';
- Drawshadowtext(@str[1], 83, 72, colcolor($23), colcolor($21)); Drawbig5shadowtext(@Ritem[inum].Name, 143, 72, colcolor($66), colcolor($64));
- //如果增加的項超過13個, 分兩列顯示
复制代码
str := ' ?成';
什麼來的?
感謝回答 |