1. zdxl(78,0)=X3+431:zdxl(78,1)=Y3+547:zdxl(78,2)="大观楼一层"
  2. zdxl(79,0)=X3+660:zdxl(79,1)=Y3+530:zdxl(79,2)="大观园北"
  3. //------------数组--------------
  4. dim rw(13,3)
  5. rw(0,0)=X3+590:rw(0,1)=Y3+522:rw(0,2)=1
  6. rw(1,0)=X3+345:rw(1,1)=Y3+426:rw(1,2)=2
  7. rw(2,0)=X3+538:rw(2,1)=Y3+359:rw(2,2)=3
  8. rw(3,0)=X3+448:rw(3,1)=Y3+429:rw(3,2)=4
  9. rw(4,0)=X3+747:rw(4,1)=Y3+446:rw(4,2)=5
  10. rw(5,0)=X3+743:rw(5,1)=Y3+491:rw(5,2)=6
  11. rw(6,0)=X3+622:rw(6,1)=Y3+410:rw(6,2)=7
  12. rw(7,0)=X3+433:rw(7,1)=Y3+373:rw(7,2)=8
  13. rw(8,0)=X3+735:rw(8,1)=Y3+518:rw(8,2)=9
  14. rw(9,0)=X3+436:rw(9,1)=Y3+442:rw(9,2)=10
  15. rw(10,0)=X3+466:rw(10,1)=Y3+594:rw(10,2)=11
  16. rw(11,0)=X3+518:rw(11,1)=Y3+488:rw(11,2)=12
  17. rw(12,0)=X3+723:rw(12,1)=Y3+463:rw(12,2)=13
  18. //====================定义数组结束==============================
  19. //★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
  20. //★★★★★★★★★★★★★★★游戏代码主干★★★★★★★★★★★★★★★
  21. 调用子程序 角色是否移动
  22. 如果表达式 (sfdl=1) 为真,则
  23.     调用子程序 登录游戏
  24.     调用子程序 选择角色
  25. 条件结束
  26. 调用子程序 村长任务汇总
  27. //★★★★★★★★★★★★★★★游戏代码主干结束★★★★★★★★★★★★★★★
  28. //★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
  29. //====================用户自定义变量结束==============================
  30. //====================获得窗口句柄及四角、大小==============================
  31. 子程序 获得窗口句柄
  32.     弹出窗口 “现在请确定鼠标指针所在位置处于游戏窗口中。“ & vbcrlf & ”确定后再按下回车键，切不可用鼠标点击确定。”
  33.     //获取鼠标指向的窗口句柄
  34.     调用插件命令 yxck=Window.MousePoint()
  35.     //定义一个数组，存放四个角的坐标
  36.     Dim XY(4)
  37.     //获得窗口四个角的坐标
  38.     调用插件命令 WRect=Window.GetWindowRect(yxck)
  39.     i=1
  40.     如果表达式 (i<=4) 为真,则循环执行
  41.         WL=Len(WRect)
  42.         LL=InStr(WRect,"|")
  43.         如果表达式 (LL<>0) 为真,则
  44.             XY(i)=left(WRect,LL-1)
  45.             WRect=right(WRect,WL-LL)
  46.         否则
  47.             XY(i)=WRect
  48.         条件结束
  49.         i=i+1
  50.     循环结束
  51.     //MessageBox "窗口左上角坐标为：" & XY(1) & "," & XY(2) & vbcrlf & "窗口右下角坐标为：" & XY(3) & "," & XY(4)
  52.     X1=XY(1)
  53.     Y1=XY(2)
  54.     X2=XY(3)
  55.     Y2=XY(4)
  56.     //----
  57.     X=85
  58.     Y=160
  59.     X3=X1-85
  60.     Y3=Y1-160
  61.     //MessageBox “如果需要，可以最小化游戏窗口后再关闭本 ” & vbcrlf & “对话框。挂机仍将正常进行”
  62. 子程序结束,回到调用处
  63. //====================登录游戏==============================
  64. 子程序 登录游戏
  65.     鼠标移到 1 , 1
  66.     标记 登录游戏
  67.     i=0
  68.     如果表达式 (i<5) 为真,则循环执行
  69.         延时1000毫秒
  70.         调用子程序 清空屏幕对话框
  71.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  72.         如果表达式 (intX>0 and intY>0) 为真,则
  73.             鼠标移到 intX-X1+463 , intY-Y1+471
  74.             左键单击
  75.             延时50毫秒
  76.             按住 <Ctrl>
  77.             按键 <A>
  78.             弹起 <Ctrl>
  79.             延时50毫秒
  80.             按键 <Delete>
  81.             延时50毫秒
  82.             输入文本 admin
  83.             延时50毫秒
  84.             鼠标移到 intX-X1+463 , intY-Y1+491
  85.             左键单击
  86.             延时50毫秒
  87.             按住 <Ctrl>
  88.             按键 <A>
  89.             弹起 <Ctrl>
  90.             延时50毫秒
  91.             按键 <Delete>
  92.             延时50毫秒
  93.             输入文本 password
  94.             延时50毫秒
  95.             按键 <Enter>
  96.         条件结束
  97.         延时1500毫秒
  98.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  99.         如果表达式 (intX>0 and intY>0) 为真,则
  100.             鼠标移到 intX+50 , intY+61