1.                                 子程序 BUG死亡复活
  2.                                     如果表达式 ((ColorCompare(GetPixelColor(534,444),"ffffff",15) and ColorCompare(GetPixelColor(563,448),"08a2ff",25))) 为真,则
  3.                                         鼠标移到 563 , 448
  4.                                         左键单击
  5.                                         延时500毫秒
  6.                                     条件结束
  7.                                 子程序结束,回到调用处
  8.                                 子程序 游戏特殊BUG消除Fr
  9.                                     //Framework程序Flash播放器有效
  10.                                     按键<C>
  11.                                 子程序结束,回到调用处
  12.                                 子程序 宠物忠诚减10
  13.                                     //宠物每死亡一次执行一次
  14.                                     PetFidelity=PetFidelity-10
  15.                                 子程序结束,回到调用处
  16.                                 子程序 宠物忠诚回复
  17.                                     //简单回复宠物忠诚,可能不完全回复!
  18.                                     如果表达式 (PetFidelity<75) 为真,则
  19.                                         rePF=0
  20.                                         如果表达式 (rePF<11) 为真,则循环执行
  21.                                             鼠标移到 210 , 210
  22.                                             左键单击
  23.                                             延时1500毫秒
  24.                                             SetWaitColor=Array("C6CBFF",10000,767,231,0)
  25.                                             调用子程序 等待设定之类似颜色出现
  26.                                             如果表达式 (SetWaitColor(4)>0) 为真,则
  27.                                                 鼠标移到 588 , 289
  28.                                                 左键单击
  29.                                                 延时1000毫秒
  30.                                             条件结束
  31.                                             PetFidelity=100
  32.                                             rePF=rePF+1
  33.                                         循环结束
  34.                                     条件结束
  35.                                 子程序结束,回到调用处
  36.                                 子程序 检查宠物生命值是否为0
  37.                                     PetHpIsZero=0
  38.                                     如果表达式 (CharacherAtFont>0) 为真,则
  39.                                         如果表达式 (HpPosUnknow(1)<=0) 为真,则
  40.                                             如果表达式 (ColorCompare(GetPixelColor(PetHpPositionX+2,PetHpPositionY+3),"313031",20)) 为真,则
  41.                                                 PetHpIsZero=1
  42.                                             条件结束
  43.                                         条件结束
  44.                                     否则
  45.                                         如果表达式 (HpPosUnknow(0)<=0) 为真,则
  46.                                             如果表达式 (ColorCompare(GetPixelColor(CharacherHpPositionX+2,CharacherHpPositionY+3),"313031",20)) 为真,则
  47.                                                 PetHpIsZero=1
  48.                                             条件结束
  49.                                         条件结束
  50.                                     条件结束
  51.                                 子程序结束,回到调用处
  52.                                 //--------------------------------------------------------------
  53.                                 子程序 打开地图特征文件
  54.                                     //
  55.                                     //Dictionary结构: Key:地图名称 Item:地图颜色特征数组
  56.                                     //地图颜色特征数组: 自编号, 颜色1, 颜色2, 颜色3, 颜色4, 地图名称
  57.                                     //文件存储(行): 自编号|颜色1|颜色2|颜色3|颜色4|地图名称
  58.                                     //
  59.                                     开始VBScript块
  60.                                         Dim TmpStr, FileLineNO
  61.                                         Set MapDataDy = CreateObject("Scripting.Dictionary")
  62.                                         MapColorArray = Array("NO", "Color1", "Color2", "Color3", "Color4", "MapName")
  63.                                         Set MapFOS = CreateObject("Scripting.FileSystemObject")
  64.                                         如果表达式 (MapFOS.FileExists(".\..\MLXTMapColor.txt") Then) 为真,则
  65.                                             '//读取文件内容到 MapDataDy
  66.                                             Set RTxStream = MapFOS.OpenTextFile(".\..\MLXTMapColor.txt", 1, True)
  67.                                             FileLineNO = 0
  68.                                             Do while RTxStream.AtEndOfStream<>True
  69.                                             TmpStr = RTxStream.ReadLine
  70.                                             MapColorArray = Split(TmpStr, "|")
  71.                                             MapColorArray(0) = FileLineNO '重新编号
  72.                                             如果表达式 (UBound(MapColorArray)=5 Then) 为真,则
  73.                                                 如果表达式 (Not(MapDataDy.Exists(MapColorArray(5))) Then) 为真,则
  74.                                                     MapDataDy.Add MapColorArray(5), MapColorArray
  75.                                                     CurLineNO = FileLineNO '最后一行的编号
  76.                                                     End If
  77.                                                     End If
  78.                                                     FileLineNO = FileLineNO+1
  79.                                                     Loop
  80.                                                     RTxStream.Close
  81.                                                 否则
  82.                                                     Set RTxStream = MapFOS.OpenTextFile(".\..\MLXTMapColor.txt", 2, True)
  83.                                                     RTxStream.Close
  84.                                                     End If
  85.                                                     '
  86.                                                     '//设置用于添加数据函数
  87.                                                     Function AddMapColorLineToDy(ByVal Color1, ByVal Color2, ByVal Color3, ByVal Color4, ByVal MapName)
  88.                                                     Dim ColorArrayAdd
  89.                                                     如果表达式 (Not(MapDataDy.Exists(MapName)) Then) 为真,则
  90.                                                         CurLineNO = CurLineNO+1
  91.                                                         ColorArrayAdd = Array(CurLineNO, Color1, Color2, Color3, Color4, MapName)
  92.                                                         MapDataDy.Add MapName, ColorArrayAdd
  93.                                                         AddMapColorLineToDy = 1
  94.                                                     否则
  95.                                                         AddMapColorLineToDy = 0
  96.                                                         End If
  97.                                                         End Function
  98.                                                         '
  99.                                                         Function ColorStrFindPlace(ByVal Color1, ByVal Color2, ByVal Color3, ByVal Color4, ByVal ColorSimilar)
  100.                                                         Dim RowColorStr, intLoop, FoundBool, FoundBoolA, FoundBoolB, FoundBoolC, FoundBoolD, PlaceFound