冻结以后7.01能用的脚本··上传不了·自己开个记事本复制进去就行了·

社区服务
高级搜索
猴岛论坛综合游戏交流冻结以后7.01能用的脚本··上传不了·自己开个记事本复制进去就行了·
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
5个回复

冻结以后7.01能用的脚本··上传不了·自己开个记事本复制进去就行了·

楼层直达
our212

ZxID:5347901

等级: 下士
举报 只看楼主 使用道具 楼主   发表于: 2009-05-20 0
[General]
Description=SD~
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=27
StopHotkeyMod=0
RunOnce=1
EnableWindow=Gundam Online
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1943232333
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
Rem Begin
KeyUpS 87,1
KeyUpS 83,1
KeyUpS 65,1
KeyUpS 68,1
KeyUpS 32,1
LeftUpS 1
B=0
Chance=0
Turn=0
IfColor 13,17,5b3913,2
    B=B+1
EndIf
IfColor 1015,10,5a370f,2
    B=B+1
EndIf
IfColor 16,745,291306,2
    B=B+1
EndIf
IfColor 1004,745,9a8207,0
    B=B+1
EndIf
If B=4
    LostG=0
    LostTF=0
    Goto Room
Else
    Ready=0
    Goto OSmain
EndIf
//
Rem Room
Gosub Error
Gosub Ps
Gosub Map
IfColor 15,340,000027,0
    Goto 1
    LostTF=0
EndIf
IfColor 15,340,000703,0
    Goto 1
    LostTF=0
EndIf
IfColor 15,340,060400,0
    Goto 1
    LostTF=0
EndIf
IfColor 140,320,000027,0
    Goto 2
    LostTF=0
EndIf
IfColor 140,320,000703,0
    Goto 2
    LostTF=0
EndIf
IfColor 140,320,060400,0
    Goto 2
    LostTF=0
EndIf
IfColor 265,300,000027,0
    Goto 3
    LostTF=0
EndIf
IfColor 265,300,000703,0
    Goto 3
    LostTF=0
EndIf
IfColor 265,300,060400,0
    Goto 3
    LostTF=0
EndIf
IfColor 390,280,000027,0
    Goto 4
    LostTF=0
EndIf
IfColor 390,280,000703,0
    Goto 4
    LostTF=0
EndIf
IfColor 390,280,060400,0
    Goto 4
    LostTF=0
EndIf
IfColor 524,280,000027,0
    Goto 5
    LostTF=0
EndIf
IfColor 524,280,000703,0
    Goto 5
    LostTF=0
EndIf
IfColor 524,280,060400,0
    Goto 5
    LostTF=0
EndIf
IfColor 649,300,000027,0
    Goto 6
    LostTF=0
EndIf
IfColor 649,300,000703,0
    Goto 6
    LostTF=0
EndIf
IfColor 649,300,060400,0
    Goto 6
    LostTF=0
EndIf
IfColor 774,320,000027,0
    Goto 7
    LostTF=0
EndIf
IfColor 774,320,000703,0
    Goto 7
    LostTF=0
EndIf
IfColor 774,320,060400,0
    Goto 7
    LostTF=0
EndIf
IfColor 900,340,000027,0
    Goto 8
    LostTF=0
EndIf
IfColor 900,340,000703,0
    Goto 8
    LostTF=0
EndIf
IfColor 900,340,060400,0
    Goto 8
    LostTF=0
EndIf
LostTF=LostTF+1
Delay 1000
If LostTF>600
    VBSCall RunApp("shutdown -s -t 1 -f")
EndIf
Goto Begin
Rem 1
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 75,457
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 128,497
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 77,538,00FFC5,0
    Goto Master
EndIf
IfColor 77,538,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 2
IfColor 190,697,E56E00,1
    IfColor 221,697,5A00C9,1
        IfColor 181,697,BBB2A9,0
            MoveToS 199,435
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 252,481
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 201,517,00FFC5,0
    Goto Master
EndIf
IfColor 201,517,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 3
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 323,416
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 377,456
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 327,498,00FFC5,0
    Goto Master
EndIf
IfColor 327,498,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 4
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 448,396
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 502,439
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 449,477,00FFC5,0
    Goto Master
EndIf
IfColor 449,477,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 5
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 586,395
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 644,439
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 582,478,00FFC5,0
    Goto Master
EndIf
IfColor 582,478,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 6
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 708,415
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 769,456
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 705,498,00FFC5,0
    Goto Master
EndIf
IfColor 705,498,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 7
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 833,435
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 894,481
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 833,518,00FFC5,0
    Goto Master
EndIf
IfColor 833,518,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem 8
IfColor 190,697,E56E00,1
    IfColor 181,697,BBB2A9,0
        IfColor 221,697,5A00C9,1
            MoveToS 957,459
            Delay 800
            RightClickS 1
            Delay 800
            MoveToS 957,507
            Gosub Charge
        EndIf
    EndIf
EndIf
IfColor 957,537,00FFC5,0
    Goto Master
EndIf
IfColor 957,537,FFFFFF,1
    UnReady=UnReady+1
    If UnReady>2
        If Wait=0
            KeyPressS 116,1
            UnReady=0
            Delay 1000
        EndIf
    EndIf
    Delay 1000
Else
    UnReady=0
EndIf
Goto Begin
Rem Master
Delay 1000
If Wait=1
    Delay 1000
    MoveToS 181,23
    Delay 1000
    LeftClickS 1
    Delay 1000
    MoveToS 359,488
    Delay 1000
    LeftClickS 1
    Delay 1000
    MoveToS 514,566
    LeftClickS 1
    Goto Begin
Else
    For 30
        Delay 1000
        Gosub Time
        If R=2
            KeyPressS 116,1
            Goto Begin
        EndIf
        Gosub Players
        Gosub PNPR
        If PN<>0
            If PN = PR
                KeyPressS 116,1
                Delay 6000
                Goto Begin
            EndIf
        EndIf
        Gosub Error
    EndFor
    If PN=0
        Goto Begin
    EndIf
    KeyPressS 13,1
    Delay 500
    KeyPressS 90,1
    Delay 500
    KeyPressS 66,1
    Delay 500
    KeyPressS 32,1
    Delay 500
    KeyPressS 32,1
    Delay 500
    KeyPressS 13,1
    Delay 500
    KeyDownS 44,1
    Delay 500
    KeyUpS 44,1
    Delay 4500
    KeyPressS 116,1
    Delay 500
    Gosub Error
    Delay 1000
    Gosub Players
    If P1=2
        IfColor 77,538,FFFFFF,1
            MoveToS 126,284
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P2=2
        IfColor 201,517,FFFFFF,1
            MoveToS 251,264
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P3=2
        IfColor 327,498,FFFFFF,1
            MoveToS 376,244
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P4=2
        IfColor 449,477,FFFFFF,1
            MoveToS 503,224
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P5=2
        IfColor 582,478,FFFFFF,1
            MoveToS 521,224
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P6=2
        IfColor 705,498,FFFFFF,1
            MoveToS 649,244
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P7=2
        IfColor 833,518,FFFFFF,1
            MoveToS 774,264
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    If P8=2
        IfColor 957,537,FFFFFF,1
            MoveToS 899,284
            Delay 500
            LeftClickS 1
        EndIf
    EndIf
    Delay 500
    KeyPressS 116,1
    Goto Begin
EndIf
//
Sub Error
    IfColor 516,391,000000,0
        Ready=0
        MoveToS 550,357
        Delay 800
        LeftClickS 1
    EndIf
Return
Sub Ps
    M1=0
    M2=0
    M3=0
    M4=0
    M5=0
    M6=0
    IfColor 648,622,6E5432,0
        M1=1
    EndIf
    IfColor 648,649,6E5432,0
        M2=1
    EndIf
    If M2=1
        If M1=1
            If M11=1
                KeyDownS 44,1
                M11=0
                Delay 500
                KeyUpS 44,1
            EndIf
        Else
            If M22=1
                KeyDownS 44,1
                M22=0
                Delay 500
                KeyUpS 44,1
            EndIf
        EndIf
    EndIf
    IfColor 649,647,0000FF,0
        M6=1
    EndIf
    IfColor 649,634,0000FF,0
        M5=1
    EndIf
    IfColor 649,621,0000FF,0
        M4=1
    EndIf
    IfColor 649,608,0000FF,0
        M3=1
    EndIf
    If M3=1
        If M4=1
            If M5=1
                If M6=1
                    If M66=0
                        KeyDownS 44,1
                        M66=0
                        Delay 500
                        KeyUpS 44,1
                    EndIf
                Else
                    If M55=1
                        KeyDownS 44,1
                        M55=0
                        Delay 500
                        KeyUpS 44,1
                    EndIf
                EndIf
            Else
                If M44=1
                    KeyDownS 44,1
                    M44=0
                    Delay 500
                    KeyUpS 44,1
                EndIf
            EndIf
        Else
            If M33=1
                KeyDownS 44,1
                M33=0
                Delay 500
                KeyUpS 44,1
            EndIf
        EndIf
    EndIf
Return
Sub Map
    IfColor 512,182,38180B,0
        Wait=1
    Else
        Wait=0
    EndIf
Return
Sub Charge
    Delay 800
    LeftClickS 1
    Delay 800
    MoveToS 546,387
    Delay 800
    LeftClickS 1
    Delay 800
    MoveToS 593,357
    Delay 800
    LeftClickS 1
Return
Sub Players
    P1=0
    P2=0
    P3=0
    P4=0
    P5=0
    P6=0
    P7=0
    P8=0
    PN=0
    PR=0
    IfColor 130,288,FFFFFF,0
        P1=P1+1
    EndIf
    IfColor 122,280,FFFFFF,0
        P1=P1+1
    EndIf
    IfColor 247,260,FFFFFF,0
        P2=P2+1
    EndIf
    IfColor 255,268,FFFFFF,0
        P2=P2+1
    EndIf
    IfColor 380,248,FFFFFF,0
        P3=P3+1
    EndIf
    IfColor 372,240,FFFFFF,0
        P3=P3+1
    EndIf
    IfColor 499,220,FFFFFF,0
        P4=P4+1
    EndIf
    IfColor 507,228,FFFFFF,0
        P4=P4+1
    EndIf
    IfColor 517,228,FFFFFF,0
        P5=P5+1
    EndIf
    IfColor 525,220,FFFFFF,0
        P5=P5+1
    EndIf
    IfColor 645,248,FFFFFF,0
        P6=P6+1
    EndIf
    IfColor 653,240,FFFFFF,0
        P6=P6+1
    EndIf
    IfColor 778,260,FFFFFF,0
        P7=P7+1
    EndIf
    IfColor 770,268,FFFFFF,0
        P7=P7+1
    EndIf
    IfColor 895,288,FFFFFF,0
        P8=P8+1
    EndIf
    IfColor 903,280,FFFFFF,0
        P8=P8+1
    EndIf
Return
Sub PNPR
    If P1=2
        PN=PN+1
    EndIf
    If P2=2
        PN=PN+1
    EndIf
    If P3=2
        PN=PN+1
    EndIf
    If P4=2
        PN=PN+1
    EndIf
    If P5=2
        PN=PN+1
    EndIf
    If P6=2
        PN=PN+1
    EndIf
    If P7=2
        PN=PN+1
    EndIf
    If P8=2
        PN=PN+1
    EndIf
    IfColor 77,538,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 201,517,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 327,498,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 449,477,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 582,478,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 705,498,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 833,518,FFFFFF,0
        PR=PR+1
    EndIf
    IfColor 957,537,FFFFFF,0
        PR=PR+1
    EndIf
Return
Sub Time
    R=0
    IfColor 527,496,FFFFFF,0
        R=R+1
    EndIf
    IfColor 527,573,FFFFFF,0
        R=R+1
    EndIf
Return
//
Rem OSmain
UnReady=0
Gosub Lost
IfColor 63,52,FCFF00,0
    LostG=0
    M11=1
    M22=1
    M33=1
    M44=1
    M55=1
    M66=1
    VBSCall GetCursorPos(x,y)
    colorl=GetPixelColor(490,415)
    colorr=GetPixelColor(574,395)
    colort=GetPixelColor(500,350)
    IfColor 278,51,FCFF00,0
        If KK=0
            K=K+1
            KK=1
        EndIf
    EndIf
    RightDownS 1
    While Chance>-1
        KeyPressS 50,1
        Delay 100
        Random=0
        If Special<0
            IfColor 647,725,000040,2
            Else
                Gosub Half
            EndIf
        EndIf
        If Random=1
            Goto OSsub
        EndIf
        IfColor 497,687,0000FE,2
            IfColor 779,725,080840,2
                Goto OSmelee
            Else
                Goto OSsa
            EndIf
        Else
            IfColor 779,725,080840,2
            Else
                IfColor 153,52,FCFF00,1
                    Goto OSsa
                EndIf
            EndIf
            Gosub Lock
            If P>3
                Special=Special-1
                KeyPressS 87,1
                LeftDownS 1
                Delay 300
                KeyUpS 87,1
                Delay 300
                LeftUpS 1
                Chance=1
                Gosub Half
                If Random=0
                    Gosub MoveA
                Else
                    Gosub MoveB
                EndIf
            Else
                Chance=Chance-1
            EndIf
        EndIf
    EndWhile
    RightUpS 1
    Delay 50
    While Turn<3
        Gosub Half
        If Random=0
            Gosub SearchB
        Else
            Gosub SearchA
        EndIf
    EndWhile
    Turn=0
    Gosub Rush
Else
    KeyUpS 87,1
    KeyUpS 83,1
    KeyUpS 65,1
    KeyUpS 68,1
    KeyUpS 32,1
    LeftUpS 1
    RightUpS 1
    KK=0
    Delay 50
    LostG=LostG+1
    If LostG>600
        VBSCall RunApp("shutdown -s -t 1 -f")
    EndIf
    Goto Speek
EndIf
Goto Beg
//
Rem OSmelee
Gosub Color
MouseWheel 1
Delay 100
RightDownS 1
Delay 200
KeyPressS 87,1
KeyPressS 49,1
Delay 100
KeyDownS 87,1
Chance=9
Long=1
While Chance>-1
    Gosub Lock
    If P>5
        Delay 500
        Rem Combo
        IfColor 779,725,080840,2
            Chance=Chance-5
            KeyUpS 87,1
            LeftClickS 1
            If Long=1
                Delay 1200
            EndIf
            Long=Long-1
            Gosub Lock
        Else
            Goto OSsa
        EndIf
        If P>3
            Goto Combo
        EndIf
    Else
        Chance=Chance-1
    EndIf
EndWhile
RightUpS 1
Chance=0
Gosub Search
Goto OSmain
//
Rem OSsub
Gosub Color
Delay 100
KeyDownS 32,1
Delay 100
MouseWheel -1
Delay 100
KeyPressS 51,1
Delay 200
Gosub Lock
If P>3
    KeyUpS 32,1
    LeftDownS 1
    Delay 400
    LeftUpS 1
Else
    Gosub Lock
    If P>3
        KeyUpS 32,1
        LeftDownS 1
        Delay 400
        LeftUpS 1
    Else
        KeyUpS 32,1
        Delay 400
    EndIf
EndIf
Chance=2
Special=2
KeyPressS 50,1
Goto Begin
//
Rem OSsa
MouseWheel -1
RightDownS 1
Delay 100
MouseWheel -1
Delay 100
MouseWheel -1
Delay 100
KeyPressS 52,1
KeyPressS 87,1
Delay 75
KeyDownS 87,1
KeyDownS 32,1
For 12
    IfColor 779,725,080840,2
        RightUpS 1
        KeyUpS 87,1
        Chance=0
        Goto Begin
    EndIf
    Gosub Lock
    KeyUpS 32,1
    If P>5
        Delay 200
        LeftClickS 1
        KeyUpS 87,1
        RightUpS 1
        Delay 100
        MoveRS 0,-20
        Chance=2
        Gosub Half
        If Random=0
            KeyPressS 118
        Else
            KeyPressS 119
        EndIf
        Delay 100
        MoveRS 0,-5
        Delay 200
        MoveRS 0,-10
        Delay 300
        MoveRS 0,-15
        Delay 400
        MoveRS 0,-20
        Delay 400
        Goto Begin
    EndIf
EndFor
RightUpS 1
KeyUpS 87,1
MoveRS 400,0
RightDownS 1
Delay 200
RightUpS 0
Delay 100
MoveRS 400,0
RightDownS 1
Delay 200
RightUpS 1
EndIf
Goto Begin
//
Sub Half
    IfColor 844,53,FFFFFF,2
        Random=1
    Else
        Random=0
    EndIf
Return
Sub Lock
    P=0
    Delay 300
    IfColor 512,275,70dcad,2
        P = P + 1
    EndIf
    IfColor 610,384,70dcad,2
        P = P + 1
    EndIf
    IfColor 416,384,70dcad,2
        P = P + 1
    EndIf
    IfColor 512,495,70dcad,2
        P = P + 1
    EndIf
    IfColor 427,300,64f09f,2
        P = P + 1
    EndIf
    IfColor 599,300,64f09f,2
        P = P + 1
    EndIf
    IfColor 599,470,64f09f,2
        P = P + 1
    EndIf
    IfColor 427,470,64f09f,2
        P = P + 1
    EndIf
    IfColor 512,321,70dcad,2
        P = P + 1
    EndIf
    IfColor 569,384,70dcad,2
        P = P + 1
    EndIf
    IfColor 455,384,70dcad,2
        P = P + 1
    EndIf
    IfColor 512,446,70dcad,2
        P = P + 1
    EndIf
    IfColor 459,331,64f09f,2
        P = P + 1
    EndIf
    IfColor 565,331,64f09f,2
        P = P + 1
    EndIf
    IfColor 565,437,64f09f,2
        P = P + 1
    EndIf
    IfColor 459,437,64f09f,2
        P = P + 1
    EndIf
Return
Sub SearchA
    RightDownS 1
    KeyPressS 65,1
    Delay 100
    KeyDownS 65,1
    Delay 200
    RightUpS 1
    Delay 50
    MoveRS 600,0
    RightDownS 1
    Delay 250
    KeyUpS 65,1
    Delay 200
    Gosub Lock
    If P>4
        IfColor 779,725,080840,2
            LeftClickS 1
            RightUpS 1
            Chance=2
            Turn=3
        Else
            Goto OSsa
        EndIf
    Else
        RightUpS 1
        Turn=Turn+1
    EndIf
Return
Sub SearchB
    Delay 100
    MoveRS 600,0
    RightDownS 1
    Delay 200
    Gosub Lock
    If P>4
        IfColor 779,725,080840,2
            LeftClickS 1
            RightUpS 1
            Chance=2
            Turn=3
        Else
            Goto OSsa
        EndIf
    Else
        RightUpS 1
        Turn=Turn+1
    EndIf
Return
Sub MoveA
    RightDownS 1
    KeyDownS 68,1
    Delay 100
    For 2
        Gosub Lock
        If P>4
            Chance=0
            IfColor 779,725,080840,2
                LeftDownS 1
                Delay 600
                LeftUpS 1
            Else
                IfColor 153,52,FCFF00,1
                    Goto OSsa
                EndIf
                LeftDownS 1
                Delay 600
                LeftUpS 1
            EndIf
        EndIf
    EndFor
    KeyUpS 68,1
    Delay 400
    Gosub Lock
    If P>4
        IfColor 497,687,0000FE,2
            Goto OSsub
        Else
            LeftClickS 1
            Delay 100
            Gosub MoveB
        EndIf
    EndIf
    Goto Begin
Return
Sub MoveB
    RightDownS 1
    KeyDownS 65,1
    Delay 100
    For 2
        Gosub Lock
        If P>4
            Chance=0
            IfColor 779,725,080840,2
                LeftDownS 1
                Delay 600
                LeftUpS 1
            Else
                IfColor 153,52,FCFF00,1
                    Goto OSsa
                EndIf
                LeftDownS 1
                Delay 600
                LeftUpS 1
            EndIf
        EndIf
    EndFor
    KeyUpS 65,1
    Delay 400
    Gosub Lock
    If P>4
        IfColor 497,687,0000FE,2
            Goto OSsub
        Else
            LeftClickS 1
            Delay 100
            Gosub MoveA
        EndIf
    EndIf
    Goto Begin
Return
Sub Rush
    KeyPressS 87,1
    Delay 100
    RightDownS 1
    KeyDownS 87,1
    For 10
        Gosub Lock
        If P>3
            LeftClickS 1
            Delay 100
            KeyUpS 87,1
            RightUpS 1
            Goto Begin
        EndIf
    EndFor
    Delay 400
    KeyUpS 87,1
    RightUpS 1
    Goto Begin
Return
Sub Lost
    IfColor 516,391,000000,0
        LostTF=LostTF+1
        If LostTF>20
            VBSCall RunApp("shutdown -s -t 1 -f")
        EndIf
    Else
        LostTF=0
    EndIf
Return
//
Rem Speek
Delay 200
IfColor 63,52,FCFF00,1
    If K>2
        Line=""
        Blu=CStr(Mid(colorl,2-TX,1))
        Gre=CStr(Mid(colort,4-TX,1))
        Red=CStr(Mid(colorr,6-TX,1))
        Rem Red
        If Red="0"
            Subj="军曹"
            Goto Gre
        EndIf
        If Red="1"
            Subj="草泥马"
            Goto Gre
        EndIf
        If Red="2"
            Subj="疯子"
            Goto Gre
        EndIf
        If Red="3"
            Subj="老鸟"
            Goto Gre
        EndIf
        If Red="4"
            Subj="冬瓜"
            Goto Gre
        EndIf
        If Red="5"
            Subj="ASILAN"
            Goto Gre
        EndIf
        If Red="6"
            Subj="猫仔"
            Goto Gre
        EndIf
        If Red="7"
            Subj="好人劾"
            Goto Gre
        EndIf
        If Red="8"
            Subj="老K"
            Goto Gre
        EndIf
        If Red="9"
            Subj="洛基"
            Goto Gre
        EndIf
        If Red="A"
            Subj="SK"
            Goto Gre
        EndIf
        If Red="B"
            Subj="柯耀"
            Goto Gre
        EndIf
        If Red="C"
            Subj="福利蛋"
            Goto Gre
        EndIf
        If Red="D"
            Subj="PHIX"
            Goto Gre
        EndIf
        If Red="E"
            Subj="小兰"
            Goto Gre
        EndIf
        If Red="F"
            Subj="我K A O!"
            Goto Gre
        EndIf
        Rem Gre
        If Gre="0"
            Verb="你简直就"
            Goto Blu
        EndIf
        If Gre="1"
            Verb="你T M D"
            Goto Blu
        EndIf
        If Gre="2"
            Verb="你大爷的,"
            Goto Blu
        EndIf
        If Gre="3"
            Verb="根本"
            Goto Blu
        EndIf
        If Gre="4"
            Verb="彻头彻尾"
            Goto Blu
        EndIf
        If Gre="5"
            Verb="简直就"
            Goto Blu
        EndIf
        If Gre="6"
            Verb="****"
            Goto Blu
        EndIf
        If Gre="7"
            Verb="凋零怒目"
            Goto Blu
        EndIf
        If Gre="8"
            Verb="草泥马戈壁"
            Goto Blu
        EndIf
        If Gre="9"
            Verb="弄吃老彻底就"
            Goto Blu
        EndIf
        If Gre="A"
            Verb="弄M B就"
            Goto Blu
        EndIf
        If Gre="B"
            Verb="草泥马"
            Goto Blu
        EndIf
        If Gre="C"
            Verb="法克鱿"
            Goto Blu
        EndIf
        If Gre="D"
            Verb="弄则宗丧!完全就"
            Goto Blu
        EndIf
        If Gre="E"
            Verb="丧尽 天良"
            Goto Blu
        EndIf
        If Gre="F"
            Verb="弄则****"
            Goto Blu
        EndIf
        Rem Blu
        If Blu="0"
            Adve="一禽 兽!"
            Goto Line
        EndIf
        If Blu="1"
            Adve="不是人!"
            Goto Line
        EndIf
        If Blu="2"
            Adve="伐似拧!"
            Goto Line
        EndIf
        If Blu="3"
            Adve="宗丧一只"
            Goto Line
        EndIf
        If Blu="4"
            Adve="人头王"
            Goto Line
        EndIf
        If Blu="5"
            Adve="贼骨头大王"
            Goto Line
        EndIf
        If Blu="6"
            Adve="个马鹿!"
            Goto Line
        EndIf
        If Blu="7"
            Adve="个S  B"
            Goto Line
        EndIf
        If Blu="8"
            Adve="简直不是人..."
            Goto Line
        EndIf
        If Blu="9"
            Adve="则苍蝇"
            Goto Line
        EndIf
        If Blu="A"
            Adve="则老宗丧!"
            Goto Line
        EndIf
        If Blu="B"
            Adve="一250"
            Goto Line
        EndIf
        If Blu="C"
            Adve="一2B,XSK"
            Goto Line
        EndIf
        If Blu="D"
            Adve="******"
            Goto Line
        EndIf
        If Blu="E"
            Adve="****"
            Goto Line
        EndIf
        If Blu="F"
            Adve="狂草泥马XSK"
            Goto Line
        EndIf
        Rem Line
        Line=Subj+Verb+Adve
        KeyPressS 13,1
        Delay 800
        SayString Line
        Delay 800
        KeyPressS 13,1
        K=0
    EndIf
EndIf
Goto Begin
//
Sub Restart
    IfColor 13,17,5b3913,2
        B=B+1
    EndIf
    IfColor 1015,10,5a370f,2
        B=B+1
    EndIf
    IfColor 16,745,291306,2
        B=B+1
    EndIf
    IfColor 1004,745,9a8207,0
        B=B+1
    EndIf
    If B=4
        Goto Room
    EndIf
Return
//
Goto Speek
//Speek里有个Red段,里面是控制骂谁的,大家可以修改""内的内容,想骂谁就骂谁了...
铁人桃子

ZxID:6618711

等级: 上等兵
举报 只看该作者 5楼  发表于: 2009-05-21 0
是什么脚本来的?
gundam1979

ZxID:6531703

等级: 新兵
举报 只看该作者 4楼  发表于: 2009-05-20 0
ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
koal1129

ZxID:6588502

等级: 新兵
举报 只看该作者 地板   发表于: 2009-05-20 0
    啥东东啊~~
isbmjme

ZxID:6532375

等级: 新兵
举报 只看该作者 板凳   发表于: 2009-05-20 0
         
our212

ZxID:5347901

等级: 下士
举报 只看该作者 沙发   发表于: 2009-05-20 0
« 返回列表
发帖 回复