1. //学了一个星期,下面是总结,大侠别笑话.
2. //看看有麻该修改的地方,比如主程序~~~
3. dim color(2)
4. dim s,x,y,dim
5. // 声明 鼠标特征码
6. Shape1=1415218675
7. //颜色变量
8. color(0)="4a30d6":color(1)="deaead":color(2)="946173"
9. //开始找色
10. 标记 多色找怪
11. s=0
12. 循环 3 遍
13.     延时10毫秒
14.     调用外部VBScript子程序 在区域里从中间开始找颜色(150,100,930,600,color(s),x,y)
15.     如果表达式 (x>0 and y>0) 为真,则
16.         延时60毫秒
17.         鼠标移到 x , y
18.         //摘到了,把鼠标放到上面,然后跳到 打怪
19.         跳转到标记 打怪
20.     否则
21.         延时60毫秒
22.         //没找到就移动下当前位置(还没弄)
23.         跳转到标记 移动位置
24.     条件结束
25.     //貌似递加循环
26.     s=s+1
27. 循环结束
28. //打怪开始
29. 标记 打怪
30. //得到当前鼠标特征
31. 调用外部VBScript子程序 在区域里从中间开始找颜色(150,100,930,600,color(s),x,y)
32. //判断（核对）是不是跟上面定义的特征码一样。
33. 如果表达式 (Shape=Shape1) 为真,则
34.     //条件对，就开打(这里应该把核对特征跟打怪分还吧)
35.     延时60毫秒
36.     左键单击
37.     延时300毫秒
38.     左键单击
39.     延时300毫秒
40.     左键单击
41.     延时300毫秒
42.     左键单击
43.     延时300毫秒
44.     按键<F2>
45.     右键单击
46.     延时60毫秒
47.     //打完后判断怪是否死亡
48.     跳转到标记 判断死亡
49. 否则
50.     //死亡,执行再去找怪
51.     跳转到标记 多色找怪
52. 条件结束
53. //判断死亡
54. 标记 判断死亡
55. //判断鼠标 x,y 上的颜色数组是否还存在.
56. 如果 (x,y) 的颜色等于 #"&"color("&s&") 则
57.     //如果存在,则跳转,继续打.
58.     跳转到标记 打怪
59. 否则
60.     //死亡,则跳到 加血加辅助.
61.     调用子程序 血盾
62. 条件结束
63. //加血,加辅助
64. 子程序 血盾
65.     //找内存还没学,下面是找指定区域也没有这种颜色
66.     //我把截了一张血条三分之二时候的样子,如果图片不动
67.     //则没反映,如果发现不了整个图片则~~
68.     调用外部VBScript子程序 在区域里从中间开始找颜色(150,100,930,600,color(s),x,y)
69.     如果表达式 (x>=0 and y>=0) 为真,则
70.         延时50毫秒
71.     否则
72.         //没发现图片,则按F7加血.
73.         按键<F6>
74.         延时200毫秒
75.         右键单击
76.     条件结束
77.     //加辅助,同样的,在指定区域内是否发现图片(辅助技能图片小截图>
78.     调用外部VBScript子程序 在区域里从中间开始找颜色(150,100,930,600,color(s),x,y)
79.     如果表达式 (x>=0 and y>=0) 为真,则
80.         延时50毫秒
81.     否则
82.         //没有发现,则按F6,然后点鼠标右键.
83.         按键<F7>
84.         延时50毫秒
85.         右键单击
86.     条件结束
87. 子程序结束,回到调用处
88. //ovry
89. 调用子程序 多色找怪
90. //我现在想问的是:怎样控制人物走动以及怎样判断包裹是否已满(后台)的