Seraph脚本之-------乐土Online常用脚本

代码如下

 

  1#[HOTKEY]END
  2# 在此定义全局变量
  3/*
  4此脚本由evan开发，转载请保留作者信息
  5evan脚本源代码及说明:www.jevan.com.cn
  6
  7作者blog:jevan.cnblogs.com
  8版本: 0.2
  9开发时间: 2008-11-29
 10*/
 11# 在此定义全局变量
 12/*
 1312月1日更新：
 141，优化关闭对话框函数      ------------ 优化成功
 1512月2日更新：
 161，优化上下走动，是人物尽量在原地 ----------优化成功
 172，修改找怪超时的bug，             --------------成功
 1812月3日更新：
 191，优化战斗判断算法       ------------待测试
 20*/
 21//基础相关变量
 22dim baseX = 1062  //开发电脑基础坐标X
 23dim baseY = 661  //开发电脑基础坐标Y
 24
 25dim currentX ,currentY  //当前电脑基准坐标x,y
 26dim width1, height1 //窗口大小
 27
 28//基础相关变量配置完
 29
 30//调试输出
 31dim debug = 0 //1为输出
 32dim isBattleMode = "ispet" //是不是战斗判断类型
 33dim isBattleTimer  //是不是在战斗计时器ID
 34dim isclear = 1 //是不是删除log ，1为删除
 35
 36
 37dim checkBattleTime = 3000 //检查战斗间隔时间，修改小心
 38dim battleNum=1   //战斗次数计数
 39
 40dim overTime = 50000 //超时时间
 41
 42//日志文件
 43dim logFile = "letu-log-03.txt"  
 44
 45function main
 46 # 在此添加由向导创建或录制的代码
 47 
 48// ClearLog(logFile )
 49 
 50 testBattleByFindText()
 51
 52
 53end function
 54
 55# 在此添加子函数
 56function testBattleByFindText
 57 
 58 dim front = 0 
 59 dim leftState = 0
 60 dim moveOneFront = 0
 61 dim ttime
 62 dim tempt = 0
 63 
 64 //加载游戏状态函数
 65 GameState()
 66 
 67 //超时控制
 68 StartTime=GetTime()
 69 
 70 //记时器用于判断是不是战斗
 71 isBattleTimer=SetTimer("CloseAll", 60000, true)
 72 do
 73
 74  Wait(500)
 75  
 76  //超时控制
 77  StartTime=GetTime()
 78  
 79  do //循环
 80   
 81   if FindText(Color(255,165,0), 10, 10, ChangeX(327), ChangeY(203), ChangeX(1039), ChangeY(636), 0, 0, true, FoundX, FoundY) then
 82    
 83    MouseLeftClick(FoundX+6, FoundY+4) 
 84    
 85   end if
 86   
 87   //超时检查
 88   if GetTime() - StartTime > overTime then
 89    WriteLog(logFile  ,"FindMonster超时，退出函数。") 
 90    //StartTime=GetTime()
 91    if leftState = 0 then
 92     leftState = 1
 93    end if
 94    
 95    //关闭所有打开页面
 96    CloseAll()
 97    
 98    exit do
 99   end if
   
   //加0.2秒延时以控制CPU占用
   Wait(500)
   
  //直到图像"红色的字"出现
  loop until FindText(Color(255,0,0), 20, 12, ChangeX(332), ChangeY(198), ChangeX(1000), ChangeY(610), 0, 0, true, FoundX, FoundY)
  //此时FoundX和FoundY的值分别为找到的图像的左上角X,Y坐标
  
  //循环，等待战斗结束
  do 
   if debug = 1 then 
    Print("等待战斗结束！")
   end if
   //加0.5秒延时以控制CPU占用
   Wait(1000)
   //直到图像"带宝宝版战斗图标.sel"不出现
  loop while  FindText(Color(255,0,0), 20, 12,  ChangeX(332), ChangeY(198), ChangeX(1000), ChangeY(610), 0, 0, true, FoundX, FoundY)
  
  
  //次
  if moveOneFront = 1 then
   ttime = (overTime/10) *2
  else
   ttime = overTime/10
  end if
  
  //判断要不要走
  if leftState = 1 then
   
   //走的方向
   if tempt = 0 then
    findTime = GetTime()
    do
     KeyPress("w")
     Wait(300)
    loop until  GetTime() - findTime > ttime
    
    //方向改变
    tempt = 1
    
    //走的状态改变，走过了，则leftState = 0  极为不走
    leftState = 0
    
    //是不是第一次走,不是的话，则复制
    if moveOneFront = 0 then
     moveOneFront = 1
    end if
   else
    findTime = GetTime()
    do
     KeyPress("s")
     Wait(300)
    loop until  GetTime() - findTime > ttime 
    
    //方向改变
    tempt = 0
    
    //走的状态改变，走过了，则leftState = 0  极为不走
    leftState = 0
    
    //走的方向的时间判断
    //如果第一次州的话，则把moveOneFront = 1
    if moveOneFront = 0 then
     moveOneFront = 1
    end if
    
   end if

  end if
  

  
  Wait(500)
  
  
  //调用宝宝加血函数
  PetAddFood("5",0.5,"hp")
  
  //日志记录
  WriteLog(logFile ,"第"&battleNum&"次战斗结束！") 
  battleNum = battleNum +1
  
  //Print("第"&battleNum&"次战斗结束！")
  
  
 loop
End function

//游戏状态
function GameState
 
 //日志
 if isclear = 1 then
  ClearLog(logFile)
 end if 
 //取得当前窗口的大小
 GetActiveWindowSize(width1, height1)
 
 if FindImageEx("切换.Sel",Color(30,30,30) ,0,0,width1, height1,true,currentX,currentY) then

  //日志记录
  WriteLog(logFile  ,"脚本开始运行！") 
  
 end if
end function 

//关闭对话框
function CloseAll
 
 //关闭悄悄话对话框
 MouseLeftClick(ChangeX(872), ChangeY(227))
 // MouseMove(674, 487)
 //关闭确定，取消对话框。
 MouseLeftClick(ChangeX(674), ChangeY(487))
 //MouseMove()
 MouseLeftClick(ChangeX(593), ChangeY(485))
 
 
 //MouseMove()
 MouseLeftClick(ChangeX(635), ChangeY(484))
 
end function


//宠物加血，key为加血快捷键，sc为百分比,type判断模式，hp或mp
function  PetAddFood(key,sc,type)
 
 dim flag = 0 //控制flag
 dim by  //基准坐标Y
 dim tColor  //零时用参数
 //dim petLong = 100  //血长。
 
 dim hpColor,mpColor //红、蓝的颜色
 
 //超时控制
 StartTime=GetTime()
 
 GetPixel(ChangeX(185) , ChangeY(261) , true, hpColor)
 GetPixel(ChangeX(185) , ChangeY(268) , true, mpColor)
 
 GetPixel(ChangeX(185+100 * sc) , ChangeY(261) , true, mColor)
 
 if debug = 1 then
  Print(hpColor)
  Print(mpColor)
  Print(mColor)
 end if 
 
 //模式判断及相关变量赋值
 if type = "hp" then
  by = 261
  tColor = hpColor
 elseif type = "mp" then
  by = 268
  tColor = mpColor 
  if debug = 1 then 
   Print("tColor = mpColor")
  end if
 end if
 
 //只要屏幕坐标(x, x)的颜色不等于(0, 0, 0)
 //如果屏幕坐标(185, 261)的颜色等于(37, 215, 77) 那么
 if CheckColor(ChangeX(185+100 * sc), ChangeY(by), tColor, 30) then
  //就循环做此操作
  WriteLog(logFile ,"宝宝不用加血！") 
 else 
  if debug = 1 then 
   Print("宝宝加血函数")
  end if
  
  KeyPress(key)
  //加0.3秒延时以控制CPU占用
  Wait(300)
  
  WriteLog(logFile ,"宝宝加完一次红！") 
  //否则

 end if
 
end function

//检查有没有对话框
function IsDialog(byref x,byref y)
 
 //1：判断是不是有那个笑的图标
 //如果找到图像"xiao.sel"
 if FindImageEx("xiao.sel", Color(30, 30, 30), ChangeX(356), ChangeY(514), ChangeX(478), ChangeY(588), true, FoundX, FoundY) then
  //此时FoundX和FoundY的值分别为找到的图像的左上角X,Y坐标
  
  //以下为录制代码
  //MouseLeftClick(876, 232)
  x = FoundX + 4 + 852-387
  y = FoundY + 4 + 600-266
  
  IsDialog = true
  Print(1)
  exit function
 else
  IsDialog = false
 end if
 
 //2：判断是不是有那个X的图标
 //如果找到图像"x.sel"
 if FindImageEx("x.sel", Color(30, 30, 30), ChangeX(386), ChangeY(200), ChangeX(999),ChangeY(440), true, FoundX, FoundY) then
  //此时FoundX和FoundY的值分别为找到的图像的左上角X,Y坐标
  
  //MouseLeftClick(FoundX+3, FoundY+3)
  x = FoundX+3
  y = FoundY+3
  
  IsDialog = true
  Print(2)
  exit function
 else
  IsDialog = false
 end if
 
 //3：判断是不是有那个颜色块
 //如果448×20的一块颜色(222, 224, 215)在此时出现
 if FindBlockEx(Color(222, 224, 215), 400, 20, 20, ChangeX(368), ChangeY(180), ChangeX(932), ChangeY(293), 1, 1, true, FoundX, FoundY) then
  //如找到，此时FoundX和FoundY分别为找到色块的左上角坐标
  Print(3)
  Print(FoundX)
  Print(FoundY)
  //在屏幕坐标(FoundX+10, FoundY+10)按下鼠标左键
  MouseLeftDown(ChangeX(FoundX+10), ChangeY(FoundY+10))
  
  Wait(500)
  //移动
  MouseMove(ChangeX(FoundX+10-70), ChangeY(FoundY+10))
  
  Wait(500)
  //在屏幕坐标(FoundX+10-100, FoundY+10)放开鼠标左键
  MouseLeftUp(ChangeX(FoundX+10-70), ChangeY(FoundY+10))
  
  IsDialog = true
  x = FoundX+3
  y = FoundY+3
 else
  IsDialog = false
 end if
 
 //4：判断是不是有黑色的字
 //如果高度为10，颜色为(0, 0, 0)的一串文字在此时出现
 if FindText(Color(0, 0, 0), 20, 10, ChangeX(322), ChangeY(200), ChangeX(978), ChangeY(354), 0, 0, true, FoundX, FoundY) then
  //如找到，此时FoundX和FoundY分别为找到文字的中心点坐标
  Print(4)
  //在屏幕坐标(FoundX+10, FoundY+10)按下鼠标左键
  MouseLeftDown(ChangeX(FoundX+10), ChangeY(FoundY+10))
  
  Wait(500)
  //移动
  MouseMove(ChangeX(FoundX+10-70), ChangeY(FoundY+10))
  
  Wait(500)
  //在屏幕坐标(FoundX+10-100, FoundY+10)放开鼠标左键
  MouseLeftUp(ChangeX(FoundX+10-70), ChangeY(FoundY+10))
  
  IsDialog = true
  x = FoundX+3
  y = FoundY+3
 else
  IsDialog = false
 end if
end function

//x坐标转换函数
Function ChangeX(x)
 ChangeX = x - baseX + currentX
End Function
//y坐标转换函数
Function ChangeY(y)
 ChangeY = y - baseY + currentY
End Function

function OnEnd
 
 WriteLog(logFile ,"evan版乐土脚本结束！") 
 
end function