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

[AutoIT] Surowce Darkorbit

daniel11l

daniel11l
  w Gotowe kody źródłowe
 704   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

daniel11l Ciekawski

daniel11l Osiem lat służby Siedem lat służby Początkujący pisarz Uścisk dłoni Sześć lat służby

Opublikowano
Opublikowano (edytowane)

Tu na surowce, troszkę może być pomieszany ten kodzik ale dla ogarniętego chłopczyka to nie będzie problem żeby pod siebie "posprzątać" :)

        margin: 0px;
        padding: 6px;
        border: 1px inset;
        width: 640px;
        height: 498px;
        text-align: left;
        overflow: auto">#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 ;0x4F6D80;
$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 ; larghezza rettangolo grande
$b=$Rett1_y2-$Rett1_y1; altezza rettangolo grande

;Rettangolo 2
; coord alto sin
$Rett2_x1=$Rett1_x1+$a/24
$Rett2_y1=$Rett1_y1+$b/24
;coord basso dex
$Rett2_x2=$Rett2_x1+$a*11/12
$Rett2_y2=$Rett2_y1+$b*11/12

;Rettangolo 3
; coord alto sin
$Rett3_x1=$Rett2_x1+$a/24
$Rett3_y1=$Rett2_y1+$b/24
;coord basso dex
$Rett3_x2=$Rett3_x1+$a*5/6
$Rett3_y2=$Rett3_y1+$b*5/6

;Rettangolo 4
; coord alto sin
$Rett4_x1=$Rett3_x1+$a/24
$Rett4_y1=$Rett3_y1+$b/24
;coord basso dex
$Rett4_x2=$Rett4_x1+$a*3/4
$Rett4_y2=$Rett4_y1+$b*3/4

;Rettangolo 5
; coord alto sin
$Rett5_x1=$Rett4_x1+$a/24
$Rett5_y1=$Rett4_y1+$b/24 
;coord basso dex
$Rett5_x2=$Rett5_x1+$a*2/3
$Rett5_y2=$Rett5_y1+$b*2/3

;Rettangolo 6
; coord alto sin
$Rett6_x1=$Rett5_x1+$a/24
$Rett6_y1=$Rett5_y1+$b/24 
;coord basso dex
$Rett6_x2=$Rett6_x1+$a*7/12
$Rett6_y2=$Rett6_y1+$b*7/12

;Rettangolo 7
; coord alto sin
$Rett7_x1=$Rett6_x1+$a/24
$Rett7_y1=$Rett6_y1+$b/24 
;coord basso dex
$Rett7_x2=$Rett7_x1+$a/2
$Rett7_y2=$Rett7_y1+$b/2 

;Rettangolo 8
; coord alto sin
$Rett8_x1=$Rett7_x1+$a/24
$Rett8_y1=$Rett7_y1+$b/24 
;coord basso dex
$Rett8_x2=$Rett8_x1+$a*5/12
$Rett8_y2=$Rett8_y1+$b*5/12 

;Rettangolo 9
; coord alto sin
$Rett9_x1=$Rett8_x1+$a/24
$Rett9_y1=$Rett3_y1+$b/24 
;coord basso dex
$Rett9_x2=$Rett9_x1+$a/3
$Rett9_y2=$Rett9_y1+$b/3

;Rettangolo 10
; coord alto sin
$Rett10_x1=$Rett9_x1+$a/24
$Rett10_y1=$Rett9_y1+$b/24 
;coord basso dex
$Rett10_x2=$Rett10_x1+$a/4
$Rett10_y2=$Rett10_y1+$b/4 

;Rettangolo 11
; coord alto sin
$Rett11_x1=$Rett10_x1+$a/24
$Rett11_y1=$Rett10_y1+$b/24 
;coord basso dex
$Rett11_x2=$Rett11_x1+$a/6
$Rett11_y2=$Rett11_y1+$b/6 

;Rettangolo 12
; coord alto sin
$Rett12_x1=$Rett11_x1+$a/24
$Rett12_y1=$Rett11_y1+$b/24 
;coord basso dex
$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 ;finché ne trova nell'area uno continua a cliccare
    $Avvia1 = PixelSearch($Rett12_x1,$Rett12_y1,$Rett12_x2,$Rett12_y2,$pallacolor,1) ;0x4D6874
        If not @error Then
            mouseCLick("left",$Avvia1[0],$Avvia1[1],1,0)
            sleep(2000)
            $c=1
         Else; se non lo trova passa al successivo            
            $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() ;Cerca nella minimappa
Local $randomX, $RandomY

$RandomX = Random($Mini_x1,$Mini_x2,1) ;COORDINATE KE PRENDIAMO CON LA SELEZIONE
$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


;~ ------------------------------------------------------------------------------------------------
;Ricerca Rettangolo
;~ ------------------------------------------------------------------------------------------------
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, $
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


;~ ____________________________________________________________________________
;PROGRAMMA PRINCIPALE - MAIN
;~ ____________________________________________________________________________

If FileExists(@ScriptDir &"\Data.ini") Then ; SE ESISTE --> PRENDIAMO I DATI SALVATI (I RETTANGOLI KE SALVIAMO)
    $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 ;Se non esiste

#Region ### START Koda GUI section ### Form=c:\users\roberto\desktop\form1.kxf
$Form1_1 = GUICreate("Form1", 473, 234, 307, 150)
$Label1 = GUICtrlCreateLabel("Ciao, se è la prima volta che usi questo bot ti consigliamo di eseguire tutto il settaggio!", 32, 16, 410, 33, $SS_CENTER)
$Button1 = GUICtrlCreateButton("Select area", 16, 64, 121, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Select Fog", 16, 128, 121, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Seleziona l'area di gioco dove la nave può raccogliere palladium", 144, 64, 306, 17)
$Label3 = GUICtrlCreateLabel("senza incontrare ostacoli (menù di vario genere", 144, 80, 226, 17)
$Label4 = GUICtrlCreateLabel("Seleziona nella Minimappa dove si trova la nebbia!", 144, 136, 242, 17)
$Button3 = GUICtrlCreateButton("Done", 168, 184, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
     Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1 ;deve selezionare l'area di gioco
         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 ;deve selezionare la nebbia
         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; finito lo switch, carico i dati inseriti in memoria, li salvo e aspetto ke lui faccia partire
         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 ;ASPETTO IN ETERNO FINCHE' NON RICHIAMA QUALCHE FUNZIONE CON GLI HOTKEYS
sleep(9999)
WEnd

Autorem jest społeczność z "podziemia" Darkorbit :)


Edytowane przez daniel11l
0

4905ee7fcf3c0.png
Polecam tego cheata.

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

  Tagi

 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