1.         鼠标移到 zzx , zzy
  2.         延时100毫秒
  3.         延时100毫秒
  4.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)
  5.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)
  6.         如果表达式 (x1>0) 为真,则
  7.             如果表达式 (x1>0) 为真,则
  8.                 （VBScript语句） at=zx-x1
  9.                 （VBScript语句） at=zx-x1
  10.                 （VBScript语句） bt=zy-y1
  11.                 （VBScript语句） bt=zy-y1
  12.                 如果表达式 (at>35 or at<-35) 为真,则
  13.                     如果表达式 (at>35 or at<-35) 为真,则
  14.                         如果表达式 (at>35) 为真,则
  15.                             如果表达式 (at>35) 为真,则
  16.                                 at=35
  17.                                 at=35
  18.                             条件结束
  19.                         条件结束
  20.                         如果表达式 (at<-35) 为真,则
  21.                             如果表达式 (at<-35) 为真,则
  22.                                 at=-35
  23.                                 at=-35
  24.                             条件结束
  25.                         条件结束
  26.                     条件结束
  27.                 条件结束
  28.                 如果表达式 (bt>35 or bt<-35) 为真,则
  29.                     如果表达式 (bt>35 or bt<-35) 为真,则
  30.                         如果表达式 (bt>35) 为真,则
  31.                             如果表达式 (bt>35) 为真,则
  32.                                 bt=35
  33.                                 bt=35
  34.                             条件结束
  35.                         条件结束
  36.                         如果表达式 (bt<-35) 为真,则
  37.                             如果表达式 (bt<-35) 为真,则
  38.                                 bt=-35
  39.                                 bt=-35
  40.                             条件结束
  41.                         条件结束
  42.                     条件结束
  43.                 条件结束
  44.             条件结束
  45.         条件结束
  46.         鼠标相对移动 at , bt
  47.         鼠标相对移动 at , bt
  48.         延时100毫秒
  49.         延时100毫秒
  50.         循环 2 遍
  51.             循环 2 遍
  52.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)
  53.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)
  54.                 如果表达式 (x1>0) 为真,则
  55.                     如果表达式 (x1>0) 为真,则
  56.                         a1=zx-x1
  57.                         a1=zx-x1
  58.                         b1=zy-y1
  59.                         b1=zy-y1
  60.                         鼠标相对移动 a1 , b1
  61.                         鼠标相对移动 a1 , b1
  62.                         延时80毫秒
  63.                         延时80毫秒
  64.                     条件结束
  65.                 条件结束
  66.             循环结束
  67.         循环结束
  68.     子程序结束,回到调用处
  69. 子程序结束,回到调用处
  70. 子程序 坐标
  71.     子程序 坐标
  72.         调用插件命令 zhix1=Maple.ElmChar(Chars,1,0,39,88,7,9,0,&hf8fcf8,&h282828)
  73.         调用插件命令 zhix1=Maple.ElmChar(Chars,1,0,39,88,7,9,0,&hf8fcf8,&h282828)
  74.         调用插件命令 zhix2=Maple.ElmChar(Chars,1,0,39+7,88,7,9,0,&hf8fcf8,&h282828)
  75.         调用插件命令 zhix2=Maple.ElmChar(Chars,1,0,39+7,88,7,9,0,&hf8fcf8,&h282828)
  76.         调用插件命令 zhix3=Maple.ElmChar(Chars,1,0,39+14,88,7,9,0,&hf8fcf8,&h282828)
  77.         调用插件命令 zhix3=Maple.ElmChar(Chars,1,0,39+14,88,7,9,0,&hf8fcf8,&h282828)
  78.         gx=zhix1&zhix2&zhix3
  79.         gx=zhix1&zhix2&zhix3
  80.         如果表达式 (gx<=0) 为真,则
  81.             如果表达式 (gx<=0) 为真,则
  82.                 调用插件命令 zhix1=Maple.ElmChar(Chars_s,1,0,41,88,7,9,0,&hf8fcf8,&h282828)
  83.                 调用插件命令 zhix1=Maple.ElmChar(Chars_s,1,0,41,88,7,9,0,&hf8fcf8,&h282828)
  84.                 调用插件命令 zhix2=Maple.ElmChar(Chars_s,1,0,41+8,88,7,9,0,&hf8fcf8,&h282828)
  85.                 调用插件命令 zhix2=Maple.ElmChar(Chars_s,1,0,41+8,88,7,9,0,&hf8fcf8,&h282828)
  86.                 调用插件命令 zhix3=Maple.ElmChar(Chars_s,1,0,41+16,88,7,9,0,&hf8fcf8,&h282828)
  87.                 调用插件命令 zhix3=Maple.ElmChar(Chars_s,1,0,41+16,88,7,9,0,&hf8fcf8,&h282828)
  88.                 gx=zhix1&zhix2&zhix3
  89.                 gx=zhix1&zhix2&zhix3
  90.             条件结束
  91.         条件结束
  92.         调用插件命令 zhiy1=Maple.ElmChar(Chars,1,0,80,88,7,9,0,&hf8fcf8,&h282828)
  93.         调用插件命令 zhiy1=Maple.ElmChar(Chars,1,0,80,88,7,9,0,&hf8fcf8,&h282828)
  94.         调用插件命令 zhiy2=Maple.ElmChar(Chars,1,0,80+7,88,7,9,0,&hf8fcf8,&h282828)
  95.         调用插件命令 zhiy2=Maple.ElmChar(Chars,1,0,80+7,88,7,9,0,&hf8fcf8,&h282828)
  96.         调用插件命令 zhiy3=Maple.ElmChar(Chars,1,0,80+14,88,7,9,0,&hf8fcf8,&h282828)
  97.         调用插件命令 zhiy3=Maple.ElmChar(Chars,1,0,80+14,88,7,9,0,&hf8fcf8,&h282828)
  98.         gy=zhiy1&zhiy2&zhiy3
  99.         gy=zhiy1&zhiy2&zhiy3
  100.         如果表达式 (gy<=0) 为真,则