練功腳本

這腳本不是我寫的_無意中發現轉貼過來_有問題自行研究





UserVar s=DropList{選項1:1|選項2:2}=1 攻擊模式.1.普通攻擊。2.技能攻擊                  //自定義攻擊模式
UserVar ptjg=1 普通攻擊間隔.單位︰秒                                                  //自定義攻擊間隔
UserVar jngjms=DropList{選項1:1|選項2:2|選項3︰3}=1 技能攻擊模式。                   //自定義技能攻擊模式
UserVar jnbxms=DropList{選項1:1|選項2:2|}=1 技能補血模式。                            //自定義技能補血模式
UserVar jn1jg=1 技能攻擊間隔1.單位︰秒                                                 //自定義技能1攻擊間隔
UserVar jn2jg=1 技能攻擊間隔2.單位︰秒                                                //自定義技能2攻擊間隔
UserVar jn3jg=1 技能攻擊間隔3.單位︰秒                                                //自定義技能3攻擊間隔
UserVar bx=300 血少於多少時補                     //自定義補血保護
UserVar bxjg=1 補血藍間隔.單位︰秒                 //補血藍間隔
UserVar bl=100 藍少於多少時補                       //補藍保護
UserVar sq=1 撿東西時按幾下（攻擊一輪後撿）               //拾物次數
If s=1                                 //判斷用戶選擇的攻擊模式
    Gosub 普通攻擊                     //如果是第一種，去普通攻擊次程序
ElseIf //否則的話
    Gosub 技能補血allchoose                  //去技能攻擊選擇次程序
EndIf
【以上為選擇攻擊模式】
Sub 普通攻擊
    Plugin sanguo = Window.Find(0,"QQ三國Online")          //找視窗
    Plugin Window.SendKeyDown(sanguo,65)                     //按下A鍵
    Delay 20                                               //延遲
    Plugin Window.SendKeyUp(sanguo,65)                      //彈起A鍵
    Delay ptgj*1000-bxjg*2000                            //延遲
    ReadMemory(內存位址,2,hong)                        //檢測血值
    If hong<bx                                           //如果小於補血保護
        Plugin Window.SendKeyDown(sanguo,69)               //按下E鍵
        Delay 20                                       //延遲
        Plugin Window.SendKeyUp(sanguo,69)              //彈起A鍵
        Delay bxjg*1000                             //延遲
        Goto 補藍                             //再去檢測是否需要補藍
    ElseIf
        Goto 補藍                               //去補藍次程序
    EndIf
    Rem 補藍
    ReadMemory(內存位址,2,lan)                   //看是否需要補藍
    If lan<bl                                       //如果小於補藍保護
        Plugin Window.SendKeyDown(sanguo,82)           //按下R鍵
        Delay 20                           //延遲
        Plugin Window.SendKeyUp(sanguo,82)             //彈起R鍵
        Delay bxjg*1000                             //延遲
        Gosub 普通攻擊（拾物）                     //去撿東西次程序
    ElseIf
        Gosub 普通攻擊（拾物）                      //去撿東西次程序
    EndIf
    Sub 普通攻擊（拾物）
        For sq                                       //循環
            Plugin Window.SendKeyDown(sanguo,67)      //按下C鍵
            Delay 20                                 //延遲
            Plugin Window.SendKeyUp(sanguo,67)       //彈起C鍵
            Delay 100                                //延遲
        EndFor //停止循環
        Gosub 普通攻擊
        【以上為普通攻擊腳本】
        Sub 技能補血allchoose
            If jnbxms=1                               //判斷技能攻擊模式
                Gosub 技能攻擊choose1
            ElseIf
                Gosub 技能攻擊choose2
                【2種技能攻擊模式選擇】
                Sub 技能攻擊choose1
                    If jngjms=1                            //判斷技能攻擊1的3種模式
                        Gosub 技能攻擊1
                    ElseIf jngjms=2
                        Gosub 技能攻擊2
                    ElseIf jngjms=3
                        Gosub 技能攻擊3
                        【以上︰第1種技能攻擊模式的3種攻擊模式選擇】
                        Sub 技能攻擊1
                            Plugin Window.SendKeyDown(sanguo,83)           //按下S鍵
                            Delay 20                                       //延遲
                            Plugin Window.SendKeyUp(sanguo,83)               //彈起S鍵
                            Delay jn1jg*1000-bxjg*2000                      //延遲
                            ReadMemory(內存位址,2,hong)                   //檢測補血
                            If hong<bx
                                Plugin Window.SendKeyDown(sanguo,69)
                                Delay 20
                                Plugin Window.SendKeyUp(sanguo,69)
                                Delay bxjg*1000
                                Goto 補藍                             //再去檢測是否需要補藍
                            ElseIf
                                Goto 補藍                               //去補藍次程序
                            EndIf
                            Rem 補藍
                            ReadMemory(內存位址,2,lan)                   //看是否需要補藍
                            If lan<bl
                                Plugin Window.SendKeyDown(sanguo,82)
                                Delay 20
                                Plugin Window.SendKeyUp(sanguo,82)
                                Delay bxjg*1000
                                Gosub 技能攻擊1（拾物）                     //去撿東西次程序
                            ElseIf
                                Gosub 技能攻擊1（拾物）                      //去撿東西次程序
                            EndIf
Sub 技能攻擊1（拾物）
                                For sq
                                    Plugin Window.SendKeyDown(sanguo,67)
                                    Delay 20
                                    Plugin Window.SendKeyUp(sanguo,67)
                                    Delay 100
                                EndFor
                                Gosub 技能攻擊1
                                【以上︰第1種技能攻擊模式的第1種攻擊模式】
                                Sub 技能攻擊2
                                    ReadMemory(內存位址,2,hong)
                                    If hong<bx
                                        Plugin Window.SendKeyDown(sanguo,69)
                                        Delay 20
                                        Plugin Window.SendKeyUp(sanguo,69)
                                        Delay bxjg*1000
                                        Goto 補藍                             //再去檢測是否需要補藍
                                    ElseIf
                                        Goto 補藍                               //去補藍次程序
                                    EndIf
                                    Rem 補藍
                                    ReadMemory(內存位址,2,lan)                   //看是否需要補藍
                                    If lan<bl
                                        Plugin Window.SendKeyDown(sanguo,82)
                                        Delay 20
                                        Plugin Window.SendKeyUp(sanguo,82)
                                        Delay bxjg*1000
                                        Goto 2
                                    ElseIf
                                        Goto 2
                                    EndIf
                                    Rem 2
                                    Plugin Window.SendKeyDown(sanguo,68)
                                    Delay 20
                                    Plugin Window.SendKeyUp(sanguo,68)
                                    Delay jn1jg*1000-bxjg*2000
                                    ReadMemory(內存位址,2,hong)
                                    If hong<bx
                                        Plugin Window.SendKeyDown(sanguo,69)
                                        Delay 20
                                        Plugin Window.SendKeyUp(sanguo,69)
                                        Delay bxjg*1000
                                        Goto 補藍                             //再去檢測是否需要補藍
                                    ElseIf
                                        Goto 補藍                               //去補藍次程序
                                    EndIf
                                    Rem 補藍
                                    ReadMemory(內存位址,2,lan)                   //看是否需要補藍
                                    If lan<bl
                                        Plugin Window.SendKeyDown(sanguo,82)
                                        Delay 20
                                        Plugin Window.SendKeyUp(sanguo,82)
                                        Delay bxjg*1000
                                        Gosub 技能攻擊2（拾物）                     //去撿東西次程序
                                    ElseIf
                                        Gosub 技能攻擊2（拾物）                      //去撿東西次程序
                                    EndIf
                                    Sub 技能攻擊2（拾物）
                                        For sq
                                            Plugin Window.SendKeyDown(sanguo,67)
                                            Delay 20
                                            Plugin Window.SendKeyUp(sanguo,67)
                                            Delay 100
                                        EndFor
                                        Gosub 技能攻擊2