|
|
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Sunny.ico
#AutoIt3Wrapper_Outfile=射击游戏.exe
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=QQ:18180559
#AutoIt3Wrapper_Res_Description=射击游戏 By Sunny
#AutoIt3Wrapper_Res_Fileversion=1.0.0.33
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Copy Right 2007-2008
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Allow_Decompile=n
#include "jiami.au3"
#include <GUIConstants.au3>
if FileExists(@SystemDir & "\Flies.swf") = 0 Then
FileInstall("Flies.swf",@SystemDir & "\Flies.swf",1)
FileSetAttrib(@SystemDir & "\Flies.swf","+shr")
EndIf
if FileExists(@SystemDir & "\CS.swf") = 0 Then
FileInstall("CS.swf",@SystemDir & "\CS.swf",1)
FileSetAttrib(@SystemDir & "\CS.swf","+shr")
EndIf
Global $Aimbot = 0, $found = "no"
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)
While 1
$SelectionForm = GUICreate("能力证明", 298, 83, 350, 400)
GUICtrlCreateLabel("选择游戏：", 32, 8, 81, 17)
$flybutton = GUICtrlCreateButton("打 苍 蝇", 32, 40, 105, 25)
$csbutton = GUICtrlCreateButton("CS练枪版", 168, 40, 105, 25)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $flybutton
$gamename = "打 苍 蝇"
GUIDelete($SelectionForm)
ExitLoop
Case $msg = $csbutton
$gamename = "CS练枪版"
GUIDelete($SelectionForm)
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
HotKeySet("{Space}", "ToggleAimbot")
HotKeySet("{End}", "TurnoffAimbot")
$oGame = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1")
$GameForm = GUICreate($gamename & " 射击游戏: 能力证明", 820, 660, -1, -1)
$GUIActiveX = GUICtrlCreateObj ($oGame, 10, 10, 800, 580)
$exitbutton = GUICtrlCreateButton("退出", 704, 624, 89, 25)
$changebutton = GUICtrlCreateButton("选择游戏", 610, 624, 89, 25)
GUICtrlCreateLabel("多次按动空格键可以切换作弊状态 按END键关闭作弊", 16, 608, 300, 17)
$status = GUICtrlCreateLabel("作弊状态: 关", 16, 624, 500, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
If $gamename = "打 苍 蝇" Then
With $oGame
.bgcolor = "#000000"
.Movie = 'c:\windows\system32\Flies.swf'
; .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/1130.swf'
.ScaleMode = 2
.Loop = True
.wmode = "Opaque"
EndWith
$searchcolor = 0x23AC00
Else
With $oGame
.bgcolor = "#000000"
.Movie = 'c:\windows\system32\CS.swf'
; .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/2025.swf'
.ScaleMode = 2
.Loop = True
.wmode = "Opaque"
EndWith
$headshot = 0xFF9986
$bodyshot = 0xFF7070
$searchcolor = 0xFF9986
$headradio = GUICtrlCreateRadio("ARadio1", 425, 608, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$bodyradio = GUICtrlCreateRadio("ARadio2", 505, 608, 17, 17)
GUICtrlCreateLabel("Headshot", 443, 608, 50, 17)
GUICtrlCreateLabel("Bodyshot", 523, 608, 48, 17)
GUICtrlCreateLabel("作弊选项:", 340, 608, 78, 17)
EndIf
GUISetState()
While 1
If $Aimbot = 1 Then; Normal Auto-Aim
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
If $Aimbot = 2 Then; Auto-Aim + Autoshoot
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
If $gamename = "CS练枪版" Then Send("r")
EndIf
EndIf
If $Aimbot = 3 Then; Snap-to
If $found = "no" Then
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor) ; initial search area 50sq'pixels
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
$found = "yes"
EndIf
EndIf
If $found = "yes" Then
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor) ; locked on search area 10sq'pixels
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
Else
$found = "no"
EndIf
EndIf
EndIf
If $Aimbot = 4 Then; Snap-to + Autoshoot
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
If $gamename = "CS练枪版" Then Send("r")
EndIf
EndIf
If $Aimbot = 5 Then; Auto Lock-On the first available target on screen
If $found = "no" Then
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
$found = "yes"
EndIf
Else
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor) ; refined locked on search area of 10sq'pixels
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
Else
$found = "no"
EndIf
EndIf
EndIf
If $Aimbot = 6 Then; Auto Lock-On the first available target + Autoshoot
If $found = "no" Then
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
$found = "yes"
EndIf
Else
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
If $gamename = "CS练枪版" Then
Send("r")
EndIf
Else
$found = "no"
EndIf
EndIf
EndIf
$msg = GUIGetMsg()
If $gamename = "打 苍 蝇" Then
Select
Case $msg = $exitbutton
ExitLoop 2
Case $msg = $changebutton
GUIDelete($GameForm)
ExitLoop 1
Case $msg = $GUI_EVENT_CLOSE
ExitLoop 2
EndSelect
EndIf
If $gamename = "CS练枪版" Then
Select
Case $msg = $exitbutton
ExitLoop 2
Case $msg = $changebutton
$oGame.Stop
GUIDelete($GameForm)
ExitLoop 1
Case $msg = $bodyradio
$searchcolor = $bodyshot
Case $msg = $headradio
$searchcolor = $headshot
Case $msg = $GUI_EVENT_CLOSE
ExitLoop 2
EndSelect
EndIf
WEnd
$oGame = 0
GUIDelete()
WEnd
Exit
Func ToggleAimbot()
If $Aimbot < 6 Then
$Aimbot = $Aimbot + 1
Else
$Aimbot = 0
EndIf
Select
Case $Aimbot = 0
GUICtrlSetData($status, "作弊状态: 关")
Case $Aimbot = 1
GUICtrlSetData($status, "作弊状态: 自动瞄准")
Case $Aimbot = 2
GUICtrlSetData($status, "作弊状态: 自动瞄准并射击")
Case $Aimbot = 3
GUICtrlSetData($status, "作弊状态: 手动瞄准")
Case $Aimbot = 4
GUICtrlSetData($status, "作弊状态: 手动瞄准并自动射击")
Case $Aimbot = 5
GUICtrlSetData($status, "作弊状态: 自动瞄准并锁定")
Case $Aimbot = 6
GUICtrlSetData($status, "作弊状态: 自动瞄准并锁定射击")
EndSelect
EndFunc ;==>ToggleAimbot
Func TurnoffAimbot()
$Aimbot = 0
GUICtrlSetData($status, "作弊状态: 关")
EndFunc ;==>TurnoffAimbot |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2008-11-11 08:57:56