Skocz do zawartości
CSH External VIP Project - Legit Premium CS2 Hack

[AutoIT] Palladium Bot DarkOrbit

Daxter

Daxter
  w Gotowe kody źródłowe
 2596   0

# CSH External VIP Project

Masz dosyć problemów z czynnikiem zaufania w CS2 lub notorycznymi banami?

Sprawdź CSH External VIP Project.


Więcej informacji  

Rekomendowane odpowiedzi

Daxter Początkujący

Daxter Rok służby Dwa lata służby Trzy lata służby Cztery lata służby Pięć lat służby

Opublikowano
Opublikowano

Łapcie kodzik :)

 

 

#include <Misc.au3>
#include <windowsconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

HotKeySet("{TAB}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{P}","Pausa")
HotKeySet("{p}","Pausa")

Global $Rett12_x1,$Rett12_y1,$Rett12_x2,$Rett12_y2
global $Rett11_x1,$Rett11_y1,$Rett11_x2,$Rett11_y2
Global $Rett10_x1,$Rett10_y1,$Rett10_x2,$Rett10_y2
Global $Rett9_x1,$Rett9_y1,$Rett9_x2,$Rett9_y2
Global $Rett8_x1,$Rett8_y1,$Rett8_x2,$Rett8_y2
Global $Rett7_x1,$Rett7_y1,$Rett7_x2,$Rett7_y2
Global $Rett6_x1,$Rett6_y1,$Rett6_x2,$Rett6_y2
Global $Rett5_x1,$Rett5_y1,$Rett5_x2,$Rett5_y2
Global $Rett4_x1,$Rett4_y1,$Rett4_x2,$Rett4_y2
Global $Rett3_x1,$Rett3_y1,$Rett3_x2,$Rett3_y2
Global $Rett2_x1,$Rett2_y1,$Rett2_x2,$Rett2_y2
Global $Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2
Global $pallacolor=0xECFBF7
$Rett1_x1 = 0
$Rett1_y1 = 0
$Rett1_x2 = 0
$Rett1_y2 = 0
$Mini_x1=0
$Mini_y1=0
$Mini_y2=0
$Mini_x2=0

Func Avvia()
		
$a=$Rett1_x2-$Rett1_x1 
$b=$Rett1_y2-$Rett1_y1



$Rett2_x1=$Rett1_x1+$a/24
$Rett2_y1=$Rett1_y1+$b/24

$Rett2_x2=$Rett2_x1+$a*11/12
$Rett2_y2=$Rett2_y1+$b*11/12

$Rett3_x1=$Rett2_x1+$a/24
$Rett3_y1=$Rett2_y1+$b/24

$Rett3_x2=$Rett3_x1+$a*5/6
$Rett3_y2=$Rett3_y1+$b*5/6


$Rett4_x1=$Rett3_x1+$a/24  
$Rett4_y1=$Rett3_y1+$b/24

$Rett4_x2=$Rett4_x1+$a*3/4
$Rett4_y2=$Rett4_y1+$b*3/4


$Rett5_x1=$Rett4_x1+$a/24  
$Rett5_y1=$Rett4_y1+$b/24  

$Rett5_x2=$Rett5_x1+$a*2/3
$Rett5_y2=$Rett5_y1+$b*2/3


$Rett6_x1=$Rett5_x1+$a/24    
$Rett6_y1=$Rett5_y1+$b/24  

$Rett6_x2=$Rett6_x1+$a*7/12
$Rett6_y2=$Rett6_y1+$b*7/12


$Rett7_x1=$Rett6_x1+$a/24   
$Rett7_y1=$Rett6_y1+$b/24  

$Rett7_x2=$Rett7_x1+$a/2  
$Rett7_y2=$Rett7_y1+$b/2  


$Rett8_x1=$Rett7_x1+$a/24  
$Rett8_y1=$Rett7_y1+$b/24  

$Rett8_x2=$Rett8_x1+$a*5/12
$Rett8_y2=$Rett8_y1+$b*5/12 


$Rett9_x1=$Rett8_x1+$a/24   
$Rett9_y1=$Rett3_y1+$b/24  

$Rett9_x2=$Rett9_x1+$a/3  
$Rett9_y2=$Rett9_y1+$b/3

$Rett10_x1=$Rett9_x1+$a/24   
$Rett10_y1=$Rett9_y1+$b/24  

$Rett10_x2=$Rett10_x1+$a/4  
$Rett10_y2=$Rett10_y1+$b/4  

$Rett11_x1=$Rett10_x1+$a/24  
$Rett11_y1=$Rett10_y1+$b/24  

$Rett11_x2=$Rett11_x1+$a/6  
$Rett11_y2=$Rett11_y1+$b/6  

$Rett12_x1=$Rett11_x1+$a/24   
$Rett12_y1=$Rett11_y1+$b/24  

$Rett12_x2=$Rett12_x1+$a/12  
$Rett12_y2=$Rett3_y1+$b/12

   global $c=1
   while 1
	  Select 
	  case $c=1		 
		 Avvia1()
	  case $c=2		
		 Avvia2()
	  case $c=3		
		 Avvia3()
	  case $c=4	
		 Avvia4()
	  case $c=5		
		 Avvia5()
	  case $c=6		
		 Avvia6()
	  case $c=7		
		 Avvia7()
	  case $c=8		
		 Avvia8()
	  case $c=9		
		 Avvia9()
	  case $c=10		
		 Avvia10()
	  case $c=11		
		 Avvia11()
	  case $c=12	
		 Avvia12()
	  case $c=13		
		 Ricerca()
	  EndSelect
	WEnd
EndFunc


Func Avvia1()	
   while 1 
	$Avvia1 = PixelSearch($Rett12_x1,$Rett12_y1,$Rett12_x2,$Rett12_y2,$pallacolor,1) 
 		If not @error Then
			mouseCLick("left",$Avvia1[0],$Avvia1[1],1,0)
			sleep(2000)
			$c=1
		 Else; 		
			$c=2
			exitloop
		 EndIf
   wend
EndFunc

Func Avvia2()	
	$Avvia2 = PixelSearch($Rett11_x1,$Rett11_y1,$Rett11_x2,$Rett11_y2,$pallacolor,1)
		If not @error Then
			mouseCLick("left",$Avvia2[0],$Avvia2[1],1,0)
			sleep(2000)
			$c=1
		 Else			
			$c=3
		EndIf
EndFunc

Func Avvia3()	
	$Avvia3 = PixelSearch($Rett10_x1,$Rett10_y1,$Rett10_x2,$Rett10_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia3[0],$Avvia3[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=4
		EndIf
EndFunc
	
Func Avvia4()	
	$Avvia4 = PixelSearch($Rett9_x1,$Rett9_y1,$Rett9_x2,$Rett9_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia4[0],$Avvia4[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=5
		EndIf
EndFunc

Func Avvia5()	
	$Avvia5 = PixelSearch($Rett8_x1,$Rett8_y1,$Rett8_x2,$Rett8_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia5[0],$Avvia5[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=6
		EndIf
EndFunc

Func Avvia6()	
	$Avvia6 = PixelSearch($Rett7_x1,$Rett7_y1,$Rett7_x2,$Rett7_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia6[0],$Avvia6[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=7
		EndIf
EndFunc

Func Avvia7()	
	$Avvia7 = PixelSearch($Rett6_x1,$Rett6_y1,$Rett6_x2,$Rett6_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia7[0],$Avvia7[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=8
		EndIf
EndFunc

Func Avvia8()	
	$Avvia8 = PixelSearch($Rett5_x1,$Rett5_y1,$Rett5_x2,$Rett5_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia8[0],$Avvia8[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=9
		EndIf
EndFunc

Func Avvia9()	
	$Avvia9 = PixelSearch($Rett4_x1,$Rett4_y1,$Rett4_x2,$Rett4_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia9[0],$Avvia9[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=10
		EndIf
EndFunc

Func Avvia10()	
	$Avvia10 = PixelSearch($Rett3_x1,$Rett3_y1,$Rett3_x2,$Rett3_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia10[0],$Avvia10[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=11
		EndIf
EndFunc

Func Avvia11()	
	$Avvia11 = PixelSearch($Rett2_x1,$Rett2_y1,$Rett2_x2,$Rett2_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia11[0],$Avvia11[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=12
		EndIf
EndFunc

Func Avvia12()	
	$Avvia12 = PixelSearch($Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia12[0],$Avvia12[1],1,0)
			Sleep (2000)
			$c=1
		 Else
			$c=13
		EndIf
EndFunc


Func Ricerca() 
   Local $randomX, $RandomY

   $RandomX = Random($Mini_x1,$Mini_x2,1) 
   $RandomY = Random($Mini_y1,$Mini_y2,1)
   MouseClick("left",$RandomX,$RandomY,1,0)
   while 1
	   $Avvia12 = PixelSearch($Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2,$pallacolor,1)
 		If not @error Then
			mouseCLick("left",$Avvia12[0],$Avvia12[1],1,0)
			Sleep (2000)
			$c=1
			exitloop
		 EndIf

   WEnd
	
EndFunc

Func Pausa()
while 1
   sleep(9999)
wend
EndFunc



Func Select_rectangle()
Local $Selected=0
Local $Coordinate[4]  
$area = GUICreate("", 1, 1, 1, 1, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0x33FF00, $area)
WinSetTrans($area, "", 80)
GUISetState()
While $Selected = 0
    If _IsPressed("1") Then
        $mp = MouseGetPos()
        WinMove($area, "", $mp[0], $mp[1], 1, 1)

        While _IsPressed('01')
            $pos = MouseGetPos()
            global $lefts = Order($mp[0], $pos[0])
            global $tops = Order($mp[1], $pos[1])
            WinMove($area, "", $lefts[0], $tops[0], $lefts[1], $tops[1])
            ConsoleWrite($lefts[0] & ', ' & $tops[0] & ', ' & $lefts[1] & ', ' & $tops[1] & @CRLF)
        WEnd
		
        $Coordinate[0]=$lefts[0]
        $Coordinate[1]=$tops[0]
        $Coordinate[2]=$lefts[0]+$lefts[1]
        $Coordinate[3]=$tops[0]+ $tops[1]
        $Selected=1
     EndIf
  Wend  
Guidelete($area)
return $coordinate
EndFunc

Func Order($a, $<img src='http://www.cshacked.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />
    Dim $res[2]
    If $a < $b Then
        $res[0] = $a
        $res[1] = $b - $a
    Else
        $res[0] = $b
        $res[1] = $a - $b
    EndIf
    Return $res
EndFunc 

Func ESCI()
	Exit
EndFunc



If FileExists(@ScriptDir &"\Data.ini") Then
	$Rett1_x1=int(IniRead( @ScriptDir &"\Data.ini" , "Alto_sin" , "x" ,0))
	$Rett1_y1=int(IniRead( @ScriptDir &"\Data.ini" , "Alto_sin" , "y" ,0))
	$Rett1_x2=int(IniRead( @ScriptDir &"\Data.ini" , "Basso_dest" , "x",0 ))
	$Rett1_y2=int(IniRead( @ScriptDir &"\Data.ini" , "Basso_dest" , "y" ,0))
	$Mini_x1=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_sin" , "x",0 ))
	$Mini_y1=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_sin" , "y" ,0))
	$Mini_x2=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_dest" , "x" ,0))
	$Mini_y2=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_dest" , "y" ,0))
Else


$Form1_1 = GUICreate("Palladium pixel bot v2.0 ", 473, 234, 307, 150)
$Label1 = GUICtrlCreateLabel("To okno wyświetla się tylko raz ponieważ ustawienia zapisują się w Data.ini", 32, 16, 410, 33, $SS_CENTER)
$Button1 = GUICtrlCreateButton("Zaznacz Okno Gry", 16, 64, 121, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zaznacz Mgłę", 16, 128, 121, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Zaznacz okno klienta gry", 144, 64, 306, 17)
$Label3 = GUICtrlCreateLabel("bez okienek aby nie rzeszkadzały w zbieraniu", 144, 80, 226, 17)
$Label4 = GUICtrlCreateLabel("Zaznaczacz na minimaie mgłę.", 144, 136, 242, 17)
$Button3 = GUICtrlCreateButton("Ok", 168, 184, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1 
		 GUISetState(@SW_HIDE, $Form1_1)
		 Local $cord= Select_rectangle()
		 $Rett1_x1=$cord[0]
		 $Rett1_y1=$cord[1]
		 $Rett1_x2=$cord[2]
		 $Rett1_y2=$cord[3]
		 GUISetState(@SW_show, $Form1_1)
	  Case $Button2 
		 GUISetState(@SW_HIDE, $Form1_1)
		 Local $cord2=Select_rectangle()
		 $Mini_x1=$cord2[0]
		 $Mini_y1=$cord2[1]
		 $Mini_x2=$cord2[2]
		 $Mini_y2=$cord2[3]
		 GUISetState(@SW_SHOW, $Form1_1)
	  Case $Button3
		 Guidelete($Form1_1)
		 IniWrite( @ScriptDir &"\Data.ini" , "Alto_sin" , "x" , $Rett1_x1)
		 IniWrite( @ScriptDir &"\Data.ini" , "Alto_sin" , "y" , $Rett1_y1)
		 IniWrite( @ScriptDir &"\Data.ini" , "Basso_dest" , "x" , $Rett1_x2)
		 IniWrite( @ScriptDir &"\Data.ini" , "Basso_dest" , "y" , $Rett1_y2)
		 IniWrite( @ScriptDir &"\Data.ini" , "Mini_sin" , "x" , $Mini_x1)
		 IniWrite( @ScriptDir &"\Data.ini" , "Mini_sin" , "y" , $Mini_y1)
		 IniWrite( @ScriptDir &"\Data.ini" , "Mini_dest" , "x" , $Mini_x2)
		 IniWrite( @ScriptDir &"\Data.ini" , "Mini_dest" , "y" , $Mini_y2)
	EndSwitch
WEnd
EndIf

While 1 
   sleep(9999)
WEnd

 

0
Odnośnik do komentarza

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

×
Tematy

  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
 Społeczność
Zapoznaj się
 Pomoc
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Umieściliśmy na Twoim urządzeniu pliki cookie, aby pomóc Ci usprawnić przeglądanie strony. Możesz dostosować ustawienia plików cookie, w przeciwnym wypadku zakładamy, że wyrażasz na to zgodę. Regulamin. Polityka prywatności