追殺痲痺龍訓練用腳本(陸地後台)

不能學行軍






//設置文件路徑
PutAttachment .\plugin
//得到當前窗口句柄
Plugin dhhlz01=Window.Foreground()
VBS dim xxx1,yyy1,n,x0,y0,x2,y2,x00,y00,t,dhhlz01,eatno,buji01,buji02,buji03
VBS dim x21,x22,x23,x24,x25,x26,y21,y22,y23,y24,y25,y26,power1
VBS dim Addr_Person_X,Addr_Person_Y,Addr_Person_angle1,Addr_Person_angle2
VBS dim mem_hp, men_hpmax,tireaddr, autosail,targetA,targetB,targetC,weather,wins,PI
VBS dim life,lifemax,difflife,shui,liang,mucai
VBS mem_hp=&h00b35700  --(不知道從那裡找npc的數據就使用抓點抓色)把這數
VBS mem_hpmax=&h00b35704                 字改成你抓到的數字
VBS tireaddr=&h00b35710
VBS war=&h00b3564C
VBS object=&h00b326a0
VBS selfmark = &h00b373e4
VBS NPChp01addr = &h00b36744
VBS NPChp02addr = &h00b367b0
VBS NPChp03addr = &h00b3681c
VBS myhpinwar = &h00b36528
VBS mympinwar = &h00b36560
For 999999
    Gosub 作戰畫面
    EndFor
Sub 作戰畫面
    For 2             ----懂的抓數據的人以下抓點抓色把它刪除_使用抓npc數據
        KeyPress 9 1
        Delay 500
        IfColor 642 372 ffffff 0
            Delay 250
            IfColor 706 364 ffffff 0
                Delay 500
                KeyPress 13 1
                Delay 3000
                KeyPress 13 1
                Delay 1500
                MoveTo 651 389
                Delay 200
                LeftClick 1
                Delay 1000
                Goto 戰鬥已經開始
            Else
            EndIf
        Else
        EndIf
    EndFor
    Rem 戰鬥已經開始
    Plugin NPChp01=LazyGod.ReadMemory(dhhlz01,NPChp01addr,1)
    Plugin NPChp02=LazyGod.ReadMemory(dhhlz01,NPChp02addr,1)
    Plugin NPChp03=LazyGod.ReadMemory(dhhlz01,NPChp03addr,1)
    While NPChp01 > 0 or NPChp02 > 0 or NPChp03 > 0
      Plugin BGKM5.LClick(dhhlz01,649,535) -這邊是抓npc數據後才會有自動攻擊
        Delay 1500
    Else
    EndIf
EndWhile
Return 作戰畫面