1.                     令 sss = sss6
  2.                 否则如果 n = 7 则
  3.                     令 sss = sss7
  4.                 否则如果 n = 8 则
  5.                     令 sss = sss8
  6.                 否则如果 n = 9 则
  7.                     令 sss = sss9
  8.                 否则如果 n = 10 则
  9.                     令 sss = sss10
  10.                 否则如果 n = 11 则
  11.                     令 sss = sss11
  12.                 否则如果 n = 12 则
  13.                     令 sss = sss12
  14.                 条件结束
  15.                 (语句无法识别,可能有错误): jiag=wupin(geshu,sss) //获取物品价钱
  16.                 注释:Call xiejiage(geshu,jiag,sss)
  17.                 注释:BeginThread 输出信息
  18.                 跳出循环
  19.             条件结束
  20.             令 n = n + 1
  21.         循环结束
  22.         (语句无法识别,可能有错误): qian=qian+jiag //计算总价格
  23.         (语句无法识别,可能有错误): jiag=0 //价格清零
  24.         (语句无法识别,可能有错误): ux=ux+30 //x坐标加30,扫描下一个框内物品
  25.         (语句无法识别,可能有错误): geshu=geshu+1 //个数循环
  26.         令 n = 0
  27.     循环结束
  28.     (语句无法识别,可能有错误): jiage=qian //参数传递
  29. 函数结束
  30. (语句无法识别,可能有错误): Function wupin(GS,JQ) //计算物品总价格 LX 查找类型
  31. 注释:代码太他妈有才了
  32. 注释:此代码论坛中有,个人觉得很好。
  33. 定义变量 a(100)
  34. 定义变量 b(100)
  35. 定义变量 q(100)
  36. 令 number0 = "Attachment:\0.bmp"
  37. 令 number1 = "Attachment:\1.bmp"
  38. 令 number2 = "Attachment:\2.bmp"
  39. 令 number3 = "Attachment:\3.bmp"
  40. 令 number4 = "Attachment:\4.bmp"
  41. 令 number5 = "Attachment:\5.bmp"
  42. 令 number6 = "Attachment:\6.bmp"
  43. 令 number7 = "Attachment:\7.bmp"
  44. 令 number8 = "Attachment:\8.bmp"
  45. 令 number9 = "Attachment:\9.bmp"
  46. 令 cishu = 1
  47. (语句无法识别,可能有错误): leftx=72+(GS-1)*30 //132
  48. (语句无法识别,可能有错误): upy=174 //155
  49. (语句无法识别,可能有错误): rightx=99+(GS-1)*30 //162
  50. (语句无法识别,可能有错误): downy=185 //235
  51. 令 Similar = 1
  52. 令 lx = leftx
  53. 定义变量 n, m, p, i, j
  54. 令 n = 0
  55. 令 m = 1
  56. 令 p = 1
  57. 循环当 n <> m 时
  58.     令 m = n
  59.     从左上到右下查找图片 number0,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
  60.     如果 fx >= 0 并且 fy >= 0 则
  61.         令 n = n + 1
  62.         令 leftx = fx + 1
  63.         令 a(n) = fx
  64.         令 b(n) = 0
  65.     条件结束
  66. 循环结束
  67. 令 leftx = lx
  68. 令 m = m - 1
  69. 循环当 n <> m 时
  70.     令 m = n
  71.     从左上到右下查找图片 number1,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
  72.     如果 fx >= 0 并且 fy >= 0 则
  73.         令 n = n + 1
  74.         令 leftx = fx + 1
  75.         令 a(n) = fx
  76.         令 b(n) = 1
  77.     条件结束
  78. 循环结束
  79. 令 leftx = lx
  80. 令 m = m - 1
  81. 循环当 n <> m 时
  82.     令 m = n
  83.     从左上到右下查找图片 number2,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
  84.     如果 fx >= 0 并且 fy >= 0 则
  85.         令 n = n + 1
  86.         令 leftx = fx + 1
  87.         令 a(n) = fx
  88.         令 b(n) = 2
  89.     条件结束
  90. 循环结束
  91. 令 leftx = lx
  92. 令 m = m - 1
  93. 循环当 n <> m 时
  94.     令 m = n
  95.     从左上到右下查找图片 number3,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
  96.     如果 fx >= 0 并且 fy >= 0 则
  97.         令 n = n + 1
  98.         令 leftx = fx + 1
  99.         令 a(n) = fx
  100.         令 b(n) = 3