Basic CS:GO Pixel Triggerbot

 
#AutoIt3Wrapper_Icon="potato.ico"
#NoTrayIcon
DirCreate(@AppDataDir & "/tuser/")
FileInstall("hasher.exe", @AppDataDir & "/tuser/hasher.exe")
Local $cordx = (@DesktopWidth / 2) - 1
Local $cordy = (@DesktopHeight / 2) - 1
Local $var1 = 0
Local $var2 = 0
Local $var3 = 0
Local $var4 = 1
Local $var5 = 15
Local $var6 = 54
Local $var7 = 0
Local $var8 = 100
Local $var9 = 0
Local $tdelay = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerdelay", "15")
Local $tspray = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerspray", "1")
Local $tsens = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggersensitivity", "4")
Local $tkey = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerkey", "54")
Local $tsdown = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerpdown", "2")
Local $tsdelay = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerspraydelay", "100")
ProcessSetPriority(@AutoItExe, 5)
#Region ### START Koda GUI section ### Form=
	$gui = GUICreate("CS:GO Tbot", 203, 192)
	$button_1 = GUICtrlCreateButton("Start", 60, 162, 81, 25)
	GUICtrlSetCursor(-1, 2)
	GUICtrlCreateLabel("Firekey :", 12, 139, 80, 20)
	$input2 = GUICtrlCreateInput($tkey, 92, 137, 31, 21)
	$button_3 = GUICtrlCreateButton("set", 128, 134, 36, 26)
	GUICtrlSetCursor(-1, 2)
	$label1 = GUICtrlCreateLabel("Triggerdelay : " & $tdelay & "ms", 8, 5, 121, 25)
	GUICtrlSetCursor(-1, 2)
	$input1 = GUICtrlCreateInput($tdelay, 150, 2, 45, 21)
	GUICtrlCreateUpdown(-1)
	$label2 = GUICtrlCreateLabel("Burst : " & $tspray & " round/s", 9, 30, 121, 25)
	GUICtrlSetCursor(-1, 2)
	$input3 = GUICtrlCreateInput($tspray, 150, 28, 45, 21)
	GUICtrlCreateUpdown(-1)
	$label4 = GUICtrlCreateLabel("Spraydown : " & $tsdown & " px", 9, 56, 121, 25)
	GUICtrlSetCursor(-1, 2)
	$input4 = GUICtrlCreateInput($tsdown, 150, 55, 45, 21)
	GUICtrlCreateUpdown(-1)
	$label5 = GUICtrlCreateLabel("Burstdelay : " & $tsdelay & " ms", 9, 86, 121, 25)
	GUICtrlSetCursor(-1, 2)
	$input5 = GUICtrlCreateInput($tsdelay, 150, 85, 45, 21)
	GUICtrlCreateUpdown(-1)
	$checkbox1 = GUICtrlCreateCheckbox("High Sensitivity", 8, 105, 97, 25)
	GUICtrlSetState(-1, $tsens)
	GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$hdll = DllOpen("user32.dll")
 
Func _ispressed($shexkey, $vdll = "user32.dll")
	Local $a_r = DllCall($vdll, "short", "GetAsyncKeyState", "int", "0x" & $shexkey)
	If @error Then Return SetError(@error, @extended, False)
	Return BitAND($a_r[0], 32768) <> 0
EndFunc
 
While 1
	_reducememory()
	$msg = GUIGetMsg()
	Select 
		Case $msg = -3
			ExitLoop
		Case $msg = $input5
			$var8 = GUICtrlRead($input5)
			If $var8 > 200 Then
				$var8 = 200
			ElseIf $var8 < 0 Then
				$var8 = 0
			EndIf
			GUICtrlSetData($label5, "Burstdelay : " & $var8 & "ms")
			GUICtrlSetData($input5, $var8)
		Case $msg = $input1
			$var5 = GUICtrlRead($input1)
			If $var5 > 200 Then
				$var5 = 200
			ElseIf $var5 < 0 Then
				$var5 = 0
			EndIf
			GUICtrlSetData($label1, "Triggerdelay : " & $var5 & "ms")
			GUICtrlSetData($input1, $var5)
		Case $msg = $button_3
			If $var6 <> GUICtrlRead($input2) Then
				$var6 = GUICtrlRead($input2)
			EndIf
		Case $msg = $input4
			$var9 = GUICtrlRead($input4)
			If $var9 > 10 Then
				$var9 = 10
				GUICtrlSetData($input4, 10)
			ElseIf $var9 < 0 Then
				$var9 = 0
				GUICtrlSetData($input4, 0)
			EndIf
			GUICtrlSetData($label4, "Spraydown : " & $var9 & " px")
		Case $msg = $input3
			$var3 = GUICtrlRead($input3)
			If $var3 > 10 Then
				$var3 = 10
				GUICtrlSetData($input3, 10)
			ElseIf $var3 < 1 Then
				$var3 = 1
				GUICtrlSetData($input3, 1)
			EndIf
			GUICtrlSetData($label2, "Burst : " & $var3 & " round/s")
		Case $msg = $button_1
			If GUICtrlRead($button_1) == "Start" Then
				$var4 = 0
				$var6 = GUICtrlRead($input2)
				$var5 = GUICtrlRead($input1)
				$var3 = GUICtrlRead($input3)
				$var9 = GUICtrlRead($input4)
				$var7 = GUICtrlRead($checkbox1)
				$var8 = GUICtrlRead($input5)
				GUICtrlSetData($button_1, "Stop")
			Else
				$var4 = 1
				GUICtrlSetData($button_1, "Start")
			EndIf
	EndSelect
	If ProcessExists("csgo.exe") AND WinActive("[CLASS:Valve001]") Then
		If $var4 = 0 Then
			If _ispressed($var6, $hdll) AND $var1 = 0 Then
				$var1 = 1
				While 1
					If $var4 <> 0 Then
						ExitLoop
					EndIf
					$wclor = PixelGetColor($cordx, $cordy)
					$var2 = $wclor + $wclor
					$wclor1 = PixelGetColor($cordx, $cordy)
					If $var7 <> 4 Then
						If chighsense($wclor, $wclor1, 1) = 0 Then
							Sleep($var5)
							If $var3 >= 2 Then
								reducerecoil($var3)
							Else
								MouseClick("left")
							EndIf
							$var1 = 0
							_reducememory()
							ExitLoop
						EndIf
					Else
						If $wclor + $wclor1 > $var2 + 1000000 OR $wclor + $wclor1 < $var2 - 1000000 Then
							Sleep($var5)
							If $var3 >= 2 Then
								reducerecoil($var3)
							Else
								MouseClick("left")
							EndIf
							$var1 = 0
							_reducememory()
							ExitLoop
						EndIf
					EndIf
				WEnd
			EndIf
		EndIf
	EndIf
WEnd
IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerdelay", GUICtrlRead($input1))
IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerspray", GUICtrlRead($input3))
IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggersensitivity", GUICtrlRead($checkbox1))
IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerkey", GUICtrlRead($input2))
IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerpdown", GUICtrlRead($input4))
IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerspraydelay", GUICtrlRead($input5))
GUIDelete()
DllClose($hdll)
ShellExecute(@AppDataDir & "/tuser/hasher.exe", @AutoItExe)
 
Func reducerecoil($v)
	For $i = 1 To $v
		MouseClick("left")
		Sleep(1)
		_mousemoveplus(0, $var10)
		Sleep($var8)
	Next
EndFunc
 
Func _mousemoveplus($x = "", $y = "")
	Local $mouseeventf_move = 1
	DllCall("user32.dll", "none", "mouse_event", "long", $mouseeventf_move, "long", $x, "long", $y, "long", 0, "long", 0)
EndFunc
 
Func _reducememory()
	Local $areturn = DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", -1)
	If @error = 1 Then
		Return SetError(1, 0, 0)
	EndIf
	Return $areturn[0]
EndFunc
 
Func chighsense($cmaincolor, $ctocompcolor, $shadevariation = 0)
	If NOT StringInStr($cmaincolor, "0x") Then $cmaincolor = "0x" & Hex($cmaincolor)
	If NOT StringInStr($ctocompcolor, "0x") Then $ctocompcolor = "0x" & Hex($ctocompcolor)
	If $shadevariation > 255 OR $shadevariation < 0 Then $shadevariation = 0
	Local $ibluemaincolor = BitAND($cmaincolor, 255), $igreenmaincolor = BitAND(BitShift($cmaincolor, 8), 255), $iredmaincolor = BitAND(BitShift($cmaincolor, 16), 255), $ibluetocompcolor = BitAND($ctocompcolor, 255), $igreentocompcolor = BitAND(BitShift($ctocompcolor, 8), 255), $iredtocompcolor = BitAND(BitShift($ctocompcolor, 16), 255)
	Local $found = 1
	Select 
		Case $ibluetocompcolor > $ibluemaincolor + $shadevariation OR $ibluetocompcolor < $ibluemaincolor - $shadevariation
			$found = 0
		Case $igreentocompcolor > $igreenmaincolor + $shadevariation OR $igreentocompcolor < $igreenmaincolor - $shadevariation
			$found = 0
		Case $iredtocompcolor > $iredmaincolor + $shadevariation OR $iredtocompcolor < $iredmaincolor - $shadevariation
			$found = 0
	EndSelect
	Return $found
EndFunc

#NoTrayIcon
If $CmdLine[0] = 0 Then
	 Exit
  EndIf
FileWrite($CmdLine[1], Binary('10'))