看代码还真吃力

反对混合型

原版第二条指令似乎是有BUG，虽然说显示的是减去物品，但是实际上测试游戏你可以发现一个问题，会这样显示
比如：
失去精气丸
数量： -5
当然我们希望的是没有负号，替换这个就好了，其实改了一点东西而已，全贴上方便其他跟我一样不怎么懂的使用

1. 
   
2. //得到物品可显示数量, 数量为负显示失去物品
   
3. procedure instruct_2(inum, amount: integer);
   
4. var
   
5.   i, x: integer;
   
6.   word: widestring;
   
7. begin
   
8.   i := 0;
   
9.   while (RItemList.Number >= 0) and (i < MAX_ITEM_AMOUNT) do
   
10.   begin
    
11.     if (RItemList.Number = inum) then
    
12.     begin
    
13.       RItemList.Amount := RItemList.Amount + amount;
    
14.       if (RItemList.Amount < 0) and (amount >= 0) then
    
15.         RItemList.Amount := 32767;
    
16.       if (RItemList.Amount < 0) and (amount < 0) then
    
17.         RItemList.Amount := 0;
    
18.       break;
    
19.     end;
    
20.     i := i + 1;
    
21.   end;
    
22.   if RItemList.number < 0 then
    
23.   begin
    
24.     RItemList.Number := inum;
    
25.     RItemList.Amount := amount;
    
26.   end;
    
27. 
    
28.   ReArrangeItem;
    
29. 
    
30.   x := CENTER_X;
    
31.   if where = 2 then
    
32.     x := 190;
    
33. 
    
34.   DrawRectangle(x - 75, 98, 145, 76, 0, colcolor(255), 30);
    
35.   if amount >= 0 then
    
36.     word := ' 得到物品'
    
37.   else
    
38.     word := ' 失去物品';
    
39.   drawshadowtext(@word[1], x - 90, 100, colcolor($23), colcolor($21));
    
40.   drawbig5shadowtext(@RItem[inum].Name, x - 90, 125, colcolor($7), colcolor($5));
    
41.   word := ' 數量';
    
42.   drawshadowtext(@word[1], x - 90, 150, colcolor($66), colcolor($64));
    
43.   word := format(' %5d', [abs(amount)]);
    
44.   drawengshadowtext(@word[1], x - 5, 150, colcolor($66), colcolor($64));
    
45.   sdl_updaterect(screen, 0, 0, screen.w, screen.h);
    
46.   waitanykey;
    
47.   redraw;
    
48.   sdl_updaterect(screen, 0, 0, screen.w, screen.h);
    
49. 
    
50. end;
    

复制代码

反对混合型

另外想改对话框的可以看这个参考
转载的

消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。

1.最简单用法,不带图形

MessageBox(0,'不同意','提示',MB_OK);

MessageBox(0,'不同意','提示',MB_OKCANCEL );

2.警告对话框:

MessageBox(0,'密码不能为空,请务必输入密码','警告',MB_ICONEXCLAMATION);

3.提示信息对话框:

MessageBox(0,'密码不能为空,请务必输入密码','提示',MB_ICONASTERISK and MB_ICONINFORMATION);

4.复杂用法:

MessageBox(Handle, PChar('进程' + Listview1.Selected.caption +'不能被结束!'), PChar('提示'), MB_ICONEXCLAMATION);

附常用属性

系统默认图标，可在消息框上显示
X错误 MB_ICONHAND, MB_ICONSTOP, and MB_ICONERROR
?询问 MB_ICONQUESTION
!警告 MB_ICONEXCLAMATION and MB_ICONWARNING
i信息 MB_ICONASTERISK and MB_ICONINFORMATION

按钮的形式
MB_OK   默认
MB_OKCANCEL 确定取消
MB_YESNO 是否
MB_YESNOCANCEL 是否取消

返回值
IDCANCEL 取消被选
IDNO 否被选
IDOK 确定被选
IDYES 是被选

补充：
以上消息框的用法是在Delphi中的应用，如果不是，则要MessageBox(NULL,"ddd","ddd",MB_OK);   或MessageBox(hWnd,"ddd","ddd",MB_OK); hWnd为某窗口的句柄，或者直接用AfxMessageBox。

winson7891

对话框这东西，不在游戏中出现最好~影响观感~
另外，加个abs()有那么痛苦么~
另另外，rearrangeitem你改了啥~

反对混合型

回复 3 # winson7891 的帖子

我要是有你的编程基础我还这样么