1.             //If ColorCompare(GetPixelColor(PetHpPositionX+1,PetHpPositionY),"dedfde",15)
  2.             如果表达式 (HpPosUnknow(1)=0) 为真,则
  3.                 //以上后排生命槽位置检查过正确,不需再检查.
  4.                 如果表达式 (ColorCompare(GetPixelColor(PetHpPositionX+petmppercent,PetHpPositionY+10),"AD3031",15)) 为真,则
  5.                     //检查MP值是否足够
  6.                     BackMpLow=0
  7.                 否则
  8.                     BackMpLow=1
  9.                 条件结束
  10.             条件结束
  11.         条件结束
  12.     子程序结束,回到调用处
  13.     子程序 检查战斗后宠物生命值
  14.         如果 (136,239) 的颜色大约等于 #9cffff 则
  15.             PetHpLow=1
  16.         条件结束
  17.     子程序结束,回到调用处
  18.     子程序 检查战斗后角色生命法力值
  19.         Bhplow=0
  20.         Bmplow=0
  21.         如果表达式 (Bhppercent>0) 为真,则
  22.             如果表达式 (ColorCompare(GetPixelColor(140+Bhppercent,169),"9cffff",15)) 为真,则
  23.                 Bhplow=1
  24.             条件结束
  25.         条件结束
  26.         如果表达式 (Bmppercent>0) 为真,则
  27.             如果表达式 (ColorCompare(GetPixelColor(140+Bmppercent,180),"9cffff",15)) 为真,则
  28.                 Bmplow=1
  29.             条件结束
  30.         条件结束
  31.     子程序结束,回到调用处
  32.     子程序 检查战斗中是否有精英怪物
  33.         调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  34.         如果表达式 (ElitePositionX>0) 为真,则
  35.             EliteMonster=1
  36.         条件结束
  37.     子程序结束,回到调用处
  38.     子程序 移动小地图
  39.         //IfColor 706,263,c6cbff,2
  40.         如果表达式 (ColorCompare(GetPixelColor(706,263),"C6CBFF",15)) 为真,则
  41.             鼠标移到 333 , 263
  42.             左键按下
  43.             延时300毫秒
  44.             鼠标移到 250 , 152
  45.             左键弹起
  46.             延时150毫秒
  47.             MoveMapCount=MoveMapCount+1
  48.         条件结束
  49.     子程序结束,回到调用处
  50.     子程序 脚本结束Sub
  51.     脚本停止运行
  52. 子程序结束,回到调用处
  53. //=================VBS==================
  54. 子程序 设置自定义函数
  55.     开始VBScript块
  56.         'a=ColorSubtract("04FAB6", "2C73FF")
  57.         'MessageBox a(0) & "|" & a(1) & "|" & a(2)
  58.         'b=HexToLng("04")
  59.         'MessageBox b
  60.         '
  61.         '颜色差值
  62.         Function ColorSubtract(ByVal Color1, ByVal Color12)
  63.         dim colorrgb
  64.         dim TempStrC1, TempStC2
  65.         Color1=UCase(Color1)
  66.         Color12=UCase(Color12)
  67.         colorrgb=Array(0,0,0)
  68.         如果表达式 ((Len(Color1)=6 and Len(Color12))=6 Then) 为真,则
  69.             循环 m_c1=1 to 5 Step 2 遍
  70.                 TempStrC1=Mid(Color1, m_c1, 2)
  71.                 TempStrC2=Mid(Color12, m_c1, 2)
  72.                 colorrgb((m_c1-1)/2)=Abs(HexValueToLng(TempStrC1)-HexValueToLng(TempStrC2))
  73.                 'MessageBox m_c1 & "|" & ((m_c1-1)/2) & "|" & colorrgb((m_c1-1)/2)
  74.                 Next
  75.                 ColorSubtract=colorrgb
  76.             否则
  77.                 ColorSubtract=-1
  78.                 End If
  79.                 End Function
  80.                 '
  81.                 '09-06-03 16进制转成10进制函数.
  82.                 Function HexValueToLng(ByVal HexStr)
  83.                 UCase(HexStr)
  84.                 如果表达式 (Len(HexStr)<=6 then) 为真,则
  85.                     HexValueToLng=CLng("&H" & HexStr)
  86.                 否则
  87.                     HexValueToLng=-1
  88.                     End If
  89.                     End Function
  90.                     '
  91.                     '颜色比较 ColorCompare(HEX颜色1, HEX颜色2, 最大差值0~255)
  92.                     Function ColorCompare(ByVal Color1, ByVal Color2, ByVal Different)
  93.                     dim ColorCompareArray
  94.                     dim ColorDifferentValue
  95.                     ColorCompareArray=ColorSubtract(Color1, Color2)
  96.                     ColorDifferentValue=Fix((ColorCompareArray(0)+ColorCompareArray(1)+ColorCompareArray(2))/3)
  97.                     如果表达式 ((ColorDifferentValue<=Different) Then) 为真,则
  98.                         如果表达式 (ColorDifferentValue=0 then) 为真,则
  99.                             ColorCompare=1
  100.                         否则