1.     标记 [出售完毕]
  2.     调用子程序 [出售取消]
  3.     Sale = Sale +1
  4.     Saled = 1
  5.     Full =0
  6. 子程序结束,回到调用处
  7. 子程序 [出售取消]
  8.     鼠标移到 627 , 292
  9.     延时100毫秒
  10.     左键单击
  11.     延时100毫秒
  12.     如果 (495,30) 的颜色等于 #739aad 则
  13.         调用子程序 [出售取消]
  14.     条件结束
  15. 子程序结束,回到调用处
  16. 子程序 [取消国战]
  17.     如果 (758,430) 的颜色等于 #0 则
  18.         鼠标移到 400 , 400
  19.         延时200毫秒
  20.         左键单击
  21.         延时300毫秒
  22.     条件结束
  23. 子程序结束,回到调用处
  24. 子程序 [说话]
  25.     输入文本 Mystring
  26.     延时50毫秒
  27.     按键<Enter>
  28.     延时50毫秒
  29. 子程序结束,回到调用处
  30. 子程序 [等待按键]
  31.     等待按任意键，保存到变量Key中
  32.     按键<Enter>
  33.     延时50毫秒
  34. 子程序结束,回到调用处
  35. 子程序 [取得数字]
  36.     Numb = ""
  37.     等待按任意键，保存到变量Key中
  38.     如果表达式 (Key <> 13) 为真,则循环执行
  39.         如果表达式 (Key >= 48 and Key <= 57) 为真,则
  40.             Numb = Numb & Chr(Key)
  41.         否则如果(Key = 8)为真,则
  42.             Numb = Left(Numb,Len(Numb)-1)
  43.         条件结束
  44.         等待按任意键，保存到变量Key中
  45.     循环结束
  46.     如果表达式 (Numb = "") 为真,则
  47.         Numb = 0
  48.     否则
  49.         Numb = CLng(Numb)
  50.     条件结束
  51. 子程序结束,回到调用处
  52. 子程序 [选择商店]
  53.     如果表达式 (StoreList = "") 为真,则
  54.         调用子程序 [读取商店列表]
  55.     条件结束
  56.     Mystring = "│[选择商店]" & vblf
  57.     Mystring = Mystring & "├───────" & vblf
  58.     Mystring = Mystring & StoreList
  59.     调用子程序 [说话]
  60.     调用子程序 [等待按键]
  61.     如果表达式 (StoreCount < CInt("&H" & Chr(Key))) 为真,则循环执行
  62.         调用子程序 [等待按键]
  63.     循环结束
  64.     如果表达式 (StoreNum <> Chr(Key)) 为真,则
  65.         调用子程序 [清空材料列表]
  66.         StoreNum = Chr(Key)
  67.         调用插件命令 StoreName =File.ReadINI("商店",StoreNum,IniFile)
  68.         调用子程序 [读取商店材料列表]
  69.     条件结束
  70.     Mystring= "选择["& Chr(Key) & "][" & StoreName & "]..."
  71.     调用子程序 [说话]
  72. 子程序结束,回到调用处
  73. 子程序 [材料列表]
  74.     I = 0
  75.     Mystring = "│[材料列表] -<S>[" & StoreName & "]" & vblf
  76.     Mystring = Mystring & "├───────────" & vblf
  77.     如果表达式 (BuyItemCount >0) 为真,则
  78.         循环 BuyItemCount 遍
  79.             Mystring = Mystring & "│<" & I+1 & ">" & Mid(BuyItem(I),6) & String(12-2*Len(Mid(BuyItem(I),6))," ") &"..[" & BuyItem_Amount(I) & "]个" & vblf
  80.             I = I + 1
  81.         循环结束
  82.     否则
  83.         Mystring = Mystring & "│<空>" & vblf
  84.     条件结束
  85.     Mystring = Mystring & "├───────────" & vblf
  86.     Mystring = Mystring & "│<Y>确定 "
  87.     如果表达式 (BuyItemCount < 4) 为真,则
  88.         Mystring = Mystring & "<T>添加 "
  89.     条件结束
  90.     Mystring = Mystring & "<D>清空" & vblf
  91.     调用子程序 [说话]
  92.     调用子程序 [等待按键]
  93.     如果表达式 ((Key <49 Or Key > Asc(BuyItemCount)) And Key <>68 And Key <>83 And Key <>84 And Key <>89) 为真,则循环执行
  94.         调用子程序 [等待按键]
  95.     循环结束
  96.     如果表达式 (Key >=49 and Key <= Asc(BuyItemCount)) 为真,则
  97.         I= Chr(Key)-1
  98.         Mystring = "选择材料[" & I+1 & "]..."
  99.         调用子程序 [说话]
  100.         调用子程序 [材料操作]