1. //请看脚本注释查看详细设置,以保证脚本稳定运行
2. （VBScript语句） dim time
3. 调用外部VBScript子程序 GetScreenResolution(X,Y)
4. （VBScript语句） ScreenWidth=X
5. （VBScript语句） ScreenHeight=Y
6. //玩家设置区域
7. （VBScript语句） X0=10
8. （VBScript语句） Y0=80
9. （VBScript语句） X1=300
10. （VBScript语句） Y1=420
11. （VBScript语句） time=200
12. （VBScript语句） DoubleP=0
13. （VBScript语句） n=15
14. 标记 丢弃
15. （VBScript语句） dim color(22)
16. //紫砂石
17. （VBScript语句） color(0)="E766A1"
18. //黄砂石
19. （VBScript语句） color(1)="48AED3"
20. //褐砂石
21. （VBScript语句） color(2)="0000B1"
22. //赤砂石
23. （VBScript语句） color(3)="5F80FA"
24. //蓝砂石
25. （VBScript语句） color(4)="FF9C39"
26. //白砂石
27. （VBScript语句） color(5)="E1E1E1"
28. //晶石
29. （VBScript语句） color(6)="6053B2"
30. //菱石
31. （VBScript语句） color(7)="7564A5"
32. //矩石
33. （VBScript语句） color(8)="7F71BB"
34. //御石
35. （VBScript语句） color(9)="849187"
36. //跃石
37. （VBScript语句） color(10)="70697D"
38. //锭石
39. （VBScript语句） color(11)="977068"
40. //鳞石
41. （VBScript语句） color(12)="738D9C"
42. //铁石
43. （VBScript语句） color(13)="3288B1"
44. //土石
45. （VBScript语句） color(14)="6594AC"
46. //田石
47. （VBScript语句） color(15)="A0B0BA"
48. //滑石
49. （VBScript语句） color(16)="98A2A8"
50. //碎石
51. （VBScript语句） color(17)="989D9D"
52. //石英
53. （VBScript语句） color(18)="B5BABF"
54. //山石
55. （VBScript语句） color(19)="5E5C54"
56. //铂金石
57. （VBScript语句） color(20)="D9F6FA"
58. //金石
59. （VBScript语句） color(21)="00E1F9"
60. //银石
61. （VBScript语句） color(22)="AFAFAF"
62. （VBScript语句） i=0
63. 循环 n 遍
64.     （VBScript语句） m=0
65.     标记 peck
66.     如果表达式 (m<4) 为真,则
67.         调用外部VBScript子程序 GetScreenResolution(X,Y)
68.         如果表达式 (x>0 and y>0) 为真,则
69.             鼠标移到 x , y
70.             延时time毫秒
71.             左键单击
72.             延时4*time毫秒
73.             鼠标移到 ScreenWidth/2 , ScreenHeight/2
74.             延时2*time毫秒
75.             左键单击
76.             延时4*time毫秒
77.             （VBScript语句） m=m+1
78.             跳转到标记 peck
79.         条件结束
80.     条件结束
81.     （VBScript语句） i=i+1
82. 循环结束
83. //换角色
84. 如果表达式 (DoubleP=1) 为真,则
85.     按住<Alt>
86.     按键<Tab>
87.     弹起<Alt>
88.     延时25*time毫秒
89. 条件结束
90. 跳转到标记 丢弃
91. 脚本停止运行