UserVar sctime=100"传送延时"
UserVar runtime=1300"跑路延时"
UserVar tphotkey=droplist{"F1":"F1"|"F2":"F2"|"F3":"F3"|"F4":"F4"|"F5":"F5"|"F6":"F6"|"F7":"F7"}=3"传送热键"
UserVar akhotkey=droplist{"F1":"F1"|"F2":"F2"|"F3":"F3"|"F4":"F4"|"F5":"F5"|"F6":"F6"|"F7":"F7"}=2"攻击热键"
UserVar amhotkey=droplist{"F1":"F1"|"F2":"F2"|"F3":"F3"|"F4":"F4"|"F5":"F5"|"F6":"F6"|"F7":"F7"}=4"护盾热键"
dim d2_sysinfo,d2_winTip,d2_hwnd,rect,d2_rect,d2_uix,d2_uiy,d2_uix1,d2_uiy1
Hwnd=Plugin.window.Foreground()
d2_sysinfo=d2_sysinfo & "WinHwnd:" & Hwnd & " "
d2_winTip=Plugin.window.GetText(Hwnd)
d2_sysinfo=d2_sysinfo & "WinTip:" & d2_winTip & " "
d2_hwnd=Plugin.Window.MousePoint()
d2_sysinfo=d2_sysinfo & "ClientHwnd:" & d2_hwnd
TracePrint d2_sysinfo
//Plugin window.Max(d2_hwnd)
rect=Plugin.Window.GetClientRect(d2_hwnd)
TracePrint "RECT:" & rect
d2_rect=split(rect,"|")
d2_uix=d2_rect(0)*1:d2_uiy=d2_rect(1)*1
d2_uiw=d2_rect(2)*1:d2_uih=d2_rect(3)*1
d2_ux=d2_uix:d2_uy=d2_uiy
//MoveTo d2_ux,d2_uy
//EndScript
randomize
//这里判断偏移
d2_pyx=d2_ux+0:d2_pyy=d2_uy+0
TracePrint "d2_pyx,d2_pyy: " & d2_pyx & "," & d2_pyy
maxdelay = 15
xx = 1
isdanger = 0
isfull=0
main 
 Sub main
     stateinfo="开启脚本，检测......."
  显示信息
  Do
          //【检测角色状态】
        d2state = getD2State()     
        Delay 1000+int(rnd*100)
        Select Case d2state
       
         Case 1
             //大厅
                          
            creatgame
         Case 2
             //哈勒加斯
          Delay int(rnd * 2000)
                
          isdanger = 0
          isdanger = dangerBack()
          If isdanger = 1 Then 
          	 stateinfo = "佣兵死亡，复活佣兵"
          	 显示信息
          	 fuhuopet
           exitGame
           End If
          if isfull=1 then
            cunfangwupin 
            isfull=0
            exitGame
            End If
            
           RuntoAA 
          inTPdoor
         Case 3
             //尼拉塞克
           Runtolaopi  
           ATTACK 
           If isdanger = 0 and isfull=0 Then 
           pickup 
           End if
           exitGame
         Case 4
     Plugin.Window.Top Hwnd, 0
     Plugin.Window.Active Hwnd
     Delay 1000
//超时
         End Select
         
         显示信息
         Loop
  End sub
Sub RuntoAA
stateinfo="跑向红门"
     显示信息
    Dim zz
    dim tt(2)
    tt(0)="21 ,232 |  72 ,350 |  182, 520  |115 ,490 | 111, 500 | 482 ,600 "
	tt(1)="265, 517	| 737 ,452  |116, 479 |30, 402	|32 ,469 |136, 369"
  	tt(2) = "205,484|215,420|300,535|300,535|40,500|227,236"
  	xj = int(rnd * 10)
  	If xj < 8 Then 
  		zz = tt(2)
  	Elseif xj <9 then
  	   zz = tt(1)
  	Else 
  	zz=tt(0)
  	End If	
    Dim zouwei
    zouwei = Split(zz, "|", - 1 , 0)