1.         否则
  2.             跳转到标记 杂货店
  3.         条件结束
  4.     条件结束
  5. 子程序结束,回到调用处
  6. 子程序 初始化
  7.     标记 包裹
  8.     延时1000毫秒
  9.     调用外部VBScript子程序 call 在屏幕区域里查找图形(0,0,1280,1024,"Attachment:\lian.bmp",0.9,lx,ly)
  10.     延时100毫秒
  11.     如果表达式 (Wx>=0 and Wy>=0) 为真,则
  12.         如果表达式 (wx<>600 and wy<>154) 为真,则
  13.             鼠标移到 Wx , Wy
  14.             延时300毫秒
  15.             左键按下
  16.             延时300毫秒
  17.             鼠标移到 600 , 154
  18.             延时500毫秒
  19.             左键单击
  20.             延时100毫秒
  21.             按键<B>
  22.         否则
  23.             按键<B>
  24.         条件结束
  25.     否则
  26.         按键<B>
  27.         跳转到标记 包裹
  28.     条件结束
  29.     延时1000毫秒
  30.     //Gosub 检测
  31.     //有无任务判断
  32.     按键<V>
  33.     延时300毫秒
  34.     如果 (26,160) 的颜色等于 #cef7ff 则
  35.         延时100毫秒
  36.         如果 (207,161) 的颜色不等于 #cef7ff 则
  37.             延时100毫秒
  38.             调用子程序 炼化师
  39.             调用子程序 交任务
  40.             调用子程序 接任务
  41.         条件结束
  42.     否则
  43.         延时100毫秒
  44.         调用子程序 炼化师
  45.         调用子程序 接任务
  46.     条件结束
  47.     按键<V>
  48.     延时100毫秒
  49.     调用子程序 从北到阪
  50. 子程序结束,回到调用处
  51. 子程序 死亡判断
  52.     延时500毫秒
  53.     如果 (394,300) 的颜色等于 #cef7ff 则
  54.         延时100毫秒
  55.         鼠标移到 394 , 300
  56.         延时500毫秒
  57.         左键单击
  58.         延时1500毫秒
  59.         调用子程序 做任务
  60.         跳转到标记 炼化任务
  61.     条件结束
  62. 子程序结束,回到调用处
  63. 子程序 钱
  64.     延时500毫秒
  65.     按键<B>
  66.     延时300毫秒
  67.     调用插件命令 Money=DBsoft.OCR(0,607,456,622,465,0,1,11,1,1,"FFFFFF",0,0,0)
  68.     延时500毫秒
  69.     Money=cint(Money)
  70.     按键<B>
  71.     延时300毫秒
  72.     如果表达式 (money<5) 为真,则
  73.         延时500毫秒
  74.         按键<Tab>
  75.         延时500毫秒
  76.         鼠标移到 570 , 291
  77.         延时300毫秒
  78.         左键单击
  79.         延时100毫秒
  80.         按键<Tab>
  81.         延时500毫秒
  82.         调用子程序 当前坐标
  83.         inputx=214:inputy=226:t1=now:gamex1=cint(gamex1):gamey1=cint(gamey1)
  84.         //移动延时
  85.         延时10000毫秒
  86.         调用子程序 移动
  87.         标记 仓库
  88.         延时100毫秒
  89.         调用外部VBScript子程序 call 在屏幕区域里查找图形(0,0,1280,1024,"Attachment:\lian.bmp",0.9,lx,ly)
  90.         延时100毫秒
  91.         如果表达式 (zgx>=0 and zgy>=0) 为真,则
  92.             鼠标移到 zgx , zgy+60
  93.             延时1000毫秒
  94.             右键单击
  95.             延时500毫秒
  96.             鼠标移到 564 , 230
  97.             延时500毫秒
  98.             左键单击
  99.             延时100毫秒
  100.             鼠标移到 123 , 471