复刻版的问题

真正的强强

我想问一下，kys_main.pas中的commonmenu这个函数使用之前应该先设置什么？
还有，下面这个这几个语句是否正确：
1. var
     mynum : array of integer;
     i : integer;
2. mynum[i] := Rrole[menu].PracticeBook;
   menustring[i] := Big5toUnicode(@Ritem[Rrole[menu].PracticeBook].Name);
3.Rrole[menu].PracticeBook := -1;
以上的menu是选择一个队员的编号。

我现在自己写了一点程序，编译没有错误，可是一旦程序运行到我写的那步就出错，也不知道哪儿不对……相当郁闷～～

[[i] 本帖最后由 真正的强强 于 2009-4-14 17:58 编辑 [/i]]

weyl

commonmenu
之前必须指定menustring, menuengstring的长度（指的是个数，并非每个字串的长度），如果不需要英文输出就指定menuengstring为0。可以看看我怎么使用的。

1. var
     mynum : array of integer;
     i : integer;

mynum被指定为可变长度数组，使用之前必须先用setlength设定长度。

2. mynum[i] := Rrole[menu].PracticeBook;
   menustring[i] := Big5toUnicode(@Ritem[Rrole[menu].PracticeBook].Name);

这个可能是没指定数组长度，引用越界了。

3.Rrole[menu].PracticeBook := -1;

这个好像没错误。

真正的强强

哦～现在已经指定了数组长度。
好像又有个问题
if Rrole[menu].PracticeBook >= 0 then
begin
……
end;
这个条件似乎总是成立的，重新开始游戏时这值应该是-1吧，可是“……”部分总是执行。

[发帖际遇]: 真正的强强勾结杨康抢夺武穆遗书，行动成功，得到银两40.

[ 本帖最后由 真正的强强 于 2009-4-13 19:12 编辑 ]

真正的强强

对于上面那个问题，我试了一下，又加了一层if，这样就行了，可是不知道为什么。难道是编译器不稳定？还是我哪里做错了？

weyl

把整段代码贴出来看看

[发帖际遇]: weyl跟踪成昆进入明教密道，结果：奋勇救小昭脱险，得到小昭感谢银两21.

真正的强强

我们学校规定大一学生不能带电脑……所以我的寝室也不能上网……笔记本是我偷着带的……我只能开着笔记本用手机上网……贴出来好像有些麻烦……
不过感觉好像是因为我在if这句后面加了个双斜杠注释吧（注释的格式我也不是很清楚），去掉注释也好了。明天我去学校机房上再贴出来吧。
还有，好像我拿到的这个版本kys_event.pas里面的instruct_2（得到物品）和instruct_32（增加物品数量）这两个有些问题，如果物品数量减为零还是会显示出来，编号没保存为-1

[发帖际遇]: 胡斐要去和程灵素约会，出门前真正的强强帮他打整了一下络腮胡，得到打赏银两3.

weyl

这两个指令都附带执行了重整物品的一个子程，会按照数量重排物品

[发帖际遇]: weyl帮周威信押镖，结果：偷得鸳鸯刀，转手卖得银两30。

真正的强强

哦～我就觉得嘛，偶像的作品是不会有这样的错误滴～～嘻嘻～

weyl

………………