//这个脚本和"QQ火拼俄罗斯2008外GUA" 配合使瞎槐配用,就可以全天挂JI!!//有疑问可以密我! QQ117380968Rem beginningGosub startDelay 500Gosub tensectishiDelay 500Gosub tenseccoverDelay 500Gosub afterkickedDelay 200Goto beginningSub tensectishi //十秒之内获胜提示 IfColor 315 340 FF0000 2 KeyPress 32,1 Delay 100 EndIf Return Sub kickedby //被T提示 IfColor 375 295 2DCFEA 2 MoveTo 645 294 Delay 300 LeftClick 1 Delay 1600 Goto out EndIf Return Sub pletmnostart //长时间不开始 IfColor 360 353 6D280E 2 MoveTo 512 408 Delay 500 LeftClick 1 Delay 1000 Goto out EndIf Return Sub afterkicked //退出 IfColor 511 159 2DCA8B 2 Gosub kickedby Delay 200 Gosub pletmnostart Delay 200 Rem out MoveTo 853 622 Delay 100 LeftClick 1 Delay 200 EndIf Return Sub start //自动加入 IfColor 24 58 2C9416 2 Rem KI MoveTo 273 144 Delay 100 LeftClick 1 Delay 500 IfColor 409 377 19B61A 2 //找不明滚到位置 KeyPress 32,1 Delay 300 Goto KI EndIf IfColor 344 382 00E8EF 2 //磨指被加入黑名单 KeyPress 32,1 Delay 300 Goto KI EndIf EndIf Return Sub roomfullempty Dim x x=0 //1 IfColor 179 172 898989 2 x=x+1 EndIf //2 IfColor 299 172 898989 2 x=x+1 EndIf //3 IfColor 174 435 898989 2 x=x+1 EndIf //4 IfColor 299 435 898989 2 x=x+1 EndIf //5 IfColor 428 435 898989 2 x=x+1 EndIf //如果没人退出该房间 If x=5 MoveTo 852 623 Delay 200 LeftClick 1 Delay 500 EndIf Return Sub tenseccover //间隔一定时间执行某个过程 Dim xx xx=Second(Time) If xx=0 or xx=20 or xx=40 Gosub roomfullempty EndIf Return
标签:脚本