1.     (语句无法识别，可能有错误): ss(2)="84C6C6" //狂乱
  2.     (语句无法识别，可能有错误): ss(3)="6B6B63" //灵魂
  3.     (语句无法识别，可能有错误): ss(4)="528429" //灾难
  4.     (语句无法识别，可能有错误): ss(5)="4A4A5B" //眼睛
  5.     (语句无法识别，可能有错误): ss(6)="D69473" //小篮
  6.     (语句无法识别，可能有错误): ss(7)="848484" //无色
  7.     (语句无法识别，可能有错误): ss(8)="AD73D6" //碳 175,191
  8.     (语句无法识别，可能有错误): ss(9)="BDB5C6" // 蓝冰
  9.     (语句无法识别，可能有错误): ss(10)="73194A" //小黑
  10.     (语句无法识别，可能有错误): ss(11)="7B7BEF" //小红
  11.     (语句无法识别，可能有错误): ss(12)="B5B5B5" //小白
  12.     注释：这里使用查找颜色来获取物品 不知道在别的电脑上是否能使用 反正在我自己的电脑上是可以用的 请教一下
  13.     用户定义变量 sss0= 23000 "强韧恶魔的邀请函"
  14.     用户定义变量 sss1= 23000 "威严"
  15.     用户定义变量 sss2= 23000 "狂乱"
  16.     用户定义变量 sss3= 3800 "灵魂"
  17.     用户定义变量 sss4= 3200 "灾难"
  18.     用户定义变量 sss5= 25000 "眼睛"
  19.     用户定义变量 sss6= 100 "小篮"
  20.     用户定义变量 sss7= 50 "无色"
  21.     用户定义变量 sss8= 50 "碳"
  22.     用户定义变量 sss9= 9000 "蓝冰"
  23.     用户定义变量 sss11= 250 "小红"
  24.     用户定义变量 sss12= 80 "小白"
  25.     用户定义变量 sss10= 120 "小黑"
  26.     定义变量 n, m, i, j, qian
  27.     令 qian = 0
  28.     令 n = 0
  29.     令 geshu = 1
  30.     定义变量 kx
  31.     (语句无法识别，可能有错误): kx=85 //第一格物品x取色点
  32.     令 ux = kx
  33.     定义变量 ky
  34.     (语句无法识别，可能有错误): ky=191 //第一个物品y取色点
  35.     注释：扫描第一行物品，共8个物品格
  36.     循环 8 次
  37.         注释： 单格物品扫描
  38.         循环 13 次
  39.             如果点 (ux,ky) 的颜色等于 ss(n) 则
  40.                 令 sss = 0
  41.                 如果 n = 0 则
  42.                     令 sss = sss0
  43.                 否则如果 n = 1 则
  44.                     令 sss = sss1
  45.                 否则如果 n = 2 则
  46.                     令 sss = sss2
  47.                 否则如果 n = 3 则
  48.                     令 sss = sss3
  49.                 否则如果 n = 4 则
  50.                     令 sss = sss4
  51.                 否则如果 n = 5 则
  52.                     令 sss = sss5
  53.                 否则如果 n = 6 则
  54.                     令 sss = sss6
  55.                 否则如果 n = 7 则
  56.                     令 sss = sss7
  57.                 否则如果 n = 8 则
  58.                     令 sss = sss8
  59.                 否则如果 n = 9 则
  60.                     令 sss = sss9
  61.                 否则如果 n = 10 则
  62.                     令 sss = sss10
  63.                 否则如果 n = 11 则
  64.                     令 sss = sss11
  65.                 否则如果 n = 12 则
  66.                     令 sss = sss12
  67.                 条件结束
  68.                 (语句无法识别，可能有错误): jiag=wupin(geshu,sss) //获取物品价钱
  69.                 注释：Call xiejiage(geshu,jiag,sss)
  70.                 注释：BeginThread 输出信息
  71.                 跳出循环
  72.             条件结束
  73.             令 n = n + 1
  74.         循环结束
  75.         (语句无法识别，可能有错误): qian=qian+jiag //计算总价格
  76.         (语句无法识别，可能有错误): jiag=0 //价格清零
  77.         (语句无法识别，可能有错误): ux=ux+30 //x坐标加30，扫描下一个框内物品
  78.         (语句无法识别，可能有错误): geshu=geshu+1 //个数循环
  79.         令 n = 0
  80.     循环结束
  81.     (语句无法识别，可能有错误): jiage=qian //参数传递
  82. 函数结束
  83. (语句无法识别，可能有错误): Function wupin(GS,JQ) //计算物品总价格 LX 查找类型
  84. 注释：代码太他妈有才了
  85. 注释：此代码论坛中有，个人觉得很好。
  86. 定义变量 a(100)
  87. 定义变量 b(100)
  88. 定义变量 q(100)
  89. 令 number0 = "Attachment:\0.bmp"
  90. 令 number1 = "Attachment:\1.bmp"
  91. 令 number2 = "Attachment:\2.bmp"
  92. 令 number3 = "Attachment:\3.bmp"
  93. 令 number4 = "Attachment:\4.bmp"
  94. 令 number5 = "Attachment:\5.bmp"
  95. 令 number6 = "Attachment:\6.bmp"
  96. 令 number7 = "Attachment:\7.bmp"
  97. 令 number8 = "Attachment:\8.bmp"
  98. 令 number9 = "Attachment:\9.bmp"
  99. 令 cishu = 1
  100. (语句无法识别，可能有错误): leftx=72+(GS-1)*30 //132