API tools faq
paste
Advertisement
Guest User

menton's hook code

a guest
Mar 1st, 2015
11,062
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PureBasic 17.96 KB | None | 0 0
raw download clone embed print report
  1. InitSprite()
  2.  
  3. Global Window_0
  4.  
  5. Global Text_0, bhopBOX, radarBOX, aimbotBOX, dasd, dasd, dasd, bon3313, fovSPIN, smoothSPIN, rcsSPIN, smoothSPIN_Copy2, visbox
  6. Global wid
  7. Global radarx, radary
  8.  
  9. Enumeration #PB_Compiler_EnumerationValue
  10.   #Font_0
  11.   #Font_1
  12.   #Font_2
  13.   #Font_3
  14. EndEnumeration
  15.  
  16. LoadFont(#Font_0,"Lucida Console", 18, #PB_Font_Bold)
  17. LoadFont(#Font_1,"Lucida Console", 12, #PB_Font_Bold)
  18. LoadFont(#Font_2,"Lucida Console", 13)
  19. LoadFont(#Font_3,"Lucida Console", 14)
  20.  
  21.  
  22. Procedure OpenWindow_0()
  23.   Window_0 = OpenWindow(#PB_Any, 0, 0, 300, 300, Str(Random(3333333,222)), #PB_Window_Tool)
  24.   Text_0 = TextGadget(#PB_Any, 10, 10, 260, 50, "menton's hook 1.0")
  25.   SetGadgetColor(Text_0, #PB_Gadget_FrontColor,RGB(0,128,255))
  26.   SetGadgetFont(Text_0, FontID(#Font_0))
  27.   bhopBOX = CheckBoxGadget(#PB_Any, 10, 60, 120, 40, "Bunny Hop")
  28.   SetGadgetFont(bhopBOX, FontID(#Font_1))
  29.   radarBOX = CheckBoxGadget(#PB_Any, 10, 90, 120, 40, "Radar")
  30.   SetGadgetFont(radarBOX, FontID(#Font_1))
  31.   aimbotBOX = CheckBoxGadget(#PB_Any, 10, 120, 120, 40, "Aimbot")
  32.   SetGadgetFont(aimbotBOX, FontID(#Font_1))
  33.   dasd = TextGadget(#PB_Any, 10, 180, 140, 20, "Aimbot Fov")
  34.   SetGadgetFont(dasd, FontID(#Font_2))
  35.   dasd = TextGadget(#PB_Any, 10, 210, 140, 20, "Aimbot Smooth")
  36.   SetGadgetFont(dasd, FontID(#Font_2))
  37.   dasd = TextGadget(#PB_Any, 10, 240, 140, 20, "Aimbot RCS")
  38.   SetGadgetFont(dasd, FontID(#Font_2))
  39.   bon3313 = TextGadget(#PB_Any, 10, 270, 140, 20, "Aimbot Bone")
  40.   SetGadgetFont(bon3313, FontID(#Font_2))
  41.   fovSPIN = SpinGadget(#PB_Any, 230, 180, 60, 20, 0, 360, #PB_Spin_Numeric)
  42.   SetGadgetFont(fovSPIN, FontID(#Font_3))
  43.   smoothSPIN = SpinGadget(#PB_Any, 230, 210, 60, 20, 0, 100, #PB_Spin_Numeric)
  44.   SetGadgetFont(smoothSPIN, FontID(#Font_3))
  45.   rcsSPIN = SpinGadget(#PB_Any, 230, 240, 60, 20, 0, 1, #PB_Spin_Numeric)
  46.   SetGadgetFont(rcsSPIN, FontID(#Font_3))
  47.   smoothSPIN_Copy2 = SpinGadget(#PB_Any, 230, 270, 60, 20, 0, 1000, #PB_Spin_Numeric)
  48.   SetGadgetFont(smoothSPIN_Copy2, FontID(#Font_3))
  49. EndProcedure
  50.  
  51. Procedure GetModule(ProcName.s, ModuleName.s)
  52. lReturnID.i
  53. hSnapProcess.i
  54. hSnapModule.i
  55. procx.PROCESSENTRY32
  56. Module.MODULEENTRY32
  57.  
  58. OpenLibrary(0, "kernel32.dll")
  59. hSnapProcess=CallFunction(0, "CreateToolhelp32Snapshot", #TH32CS_SNAPPROCESS, 0)
  60. If hSnapProcess <> 0
  61.   procx\dwSize = SizeOf(procx)
  62.   lReturnID = CallFunction(0, "Process32First", hSnapProcess, @procx)
  63.   While lReturnID<>0
  64.     If FindString(Left(PeekS(@procx\szExeFile), Len(ProcName)), ProcName, 1)=1
  65.       hSnapModule = CallFunction(0, "CreateToolhelp32Snapshot", #TH32CS_SNAPMODULE, procx\th32ProcessID)
  66.       If hSnapModule
  67.         Module\dwSize = SizeOf(Module)
  68.         lReturnID = CallFunction(0, "Module32First", hSnapModule, @Module)
  69.        
  70.         While lReturnID<>0
  71.           If FindString(Left(PeekS(@Module\szModule), Len(ModuleName)), ModuleName, 1)=1
  72.             CloseLibrary(0)
  73.             ProcedureReturn Module\modBaseAddr
  74.           EndIf
  75.           lReturnID = CallFunction(0, "Module32Next", hSnapModule, @Module)
  76.         Wend
  77.      
  78.       EndIf
  79.     EndIf
  80.     lReturnID = CallFunction(0, "Process32Next", hSnapProcess, @procx)
  81.   Wend
  82. EndIf
  83. CloseLibrary(0)
  84. ProcedureReturn 0
  85. EndProcedure
  86.  
  87. #ANYSIZE_ARRAY = 1
  88.  
  89. Enumeration
  90.   #SE_UNKNOWN_OBJECT_TYPE       = 0
  91.   #SE_FILE_OBJECT
  92.   #SE_SERVICE
  93.   #SE_PRINTER
  94.   #SE_REGISTRY_KEY
  95.   #SE_LMSHARE
  96.   #SE_KERNEL_OBJECT
  97.   #SE_WINDOW_OBJECT
  98.   #SE_DS_OBJECT
  99.   #SE_DS_OBJECT_ALL
  100.   #SE_PROVIDER_DEFINED_OBJECT
  101.   #SE_WMIGUID_OBJECT
  102.   #SE_REGISTRY_WOW64_32KEY
  103. EndEnumeration
  104.  
  105. Enumeration
  106.   #NOT_USED_ACCESS = 0
  107.   #GRANT_ACCESS
  108.   #SET_ACCESS
  109.   #DENY_ACCESS
  110.   #REVOKE_ACCESS
  111.   #SET_AUDIT_SUCCESS
  112.   #SET_AUDIT_FAILURE
  113. EndEnumeration
  114.  
  115. Enumeration
  116.   #NO_MULTIPLE_TRUSTEE = 0
  117.   #TRUSTEE_IS_IMPERSONATE
  118. EndEnumeration
  119.  
  120. Enumeration
  121.   #TRUSTEE_IS_SID = 0
  122.   #TRUSTEE_IS_NAME
  123.   #TRUSTEE_BAD_FORM
  124.   #TRUSTEE_IS_OBJECTS_AND_SID
  125.   #TRUSTEE_IS_OBJECTS_AND_NAME
  126. EndEnumeration
  127.  
  128. Enumeration
  129.   #TRUSTEE_IS_UNKNOWN = 0
  130.   #TRUSTEE_IS_USER
  131.   #TRUSTEE_IS_GROUP
  132.   #TRUSTEE_IS_DOMAIN
  133.   #TRUSTEE_IS_ALIAS
  134.   #TRUSTEE_IS_WELL_KNOWN_GROUP
  135.   #TRUSTEE_IS_DELETED
  136.   #TRUSTEE_IS_INVALID
  137.   #TRUSTEE_IS_COMPUTER
  138. EndEnumeration
  139.  
  140. Structure TRUSTEE
  141.   *pMultipleTrustee.TRUSTEE
  142.   MultipleTrusteeOperation.l
  143.   TrusteeForm.l
  144.   TrusteeType.l
  145.   *ptstrName
  146. EndStructure
  147.  
  148. Structure EXPLICIT_ACCESS
  149.   grfAccessPermissions.l
  150.   grfAccessMode.l
  151.   grfInheritance.l
  152.   Trustee.TRUSTEE
  153. EndStructure
  154.  
  155. Structure SID
  156.   Revision.a
  157.   SubAuthorityCount.a
  158.   IdentifierAuthority.SID_IDENTIFIER_AUTHORITY
  159.   SubAuthority.l[#ANYSIZE_ARRAY]
  160. EndStructure
  161.  
  162. Macro SECURITY_WORLD_SID_AUTHORITY(_id)
  163.   _id\Value[0] = 0
  164.   _id\Value[1] = 0
  165.   _id\Value[2] = 0
  166.   _id\Value[3] = 0
  167.   _id\Value[4] = 0
  168.   _id\Value[5] = 1
  169. EndMacro
  170.  
  171. #DACL_SECURITY_INFORMATION  = 4
  172. #NO_INHERITANCE = 0
  173.  
  174. #PROTECTED_DACL_SECURITY_INFORMATION   = $80000000
  175. #UNPROTECTED_DACL_SECURITY_INFORMATION = $20000000
  176. #PROCESS_SUSPEND_RESUME = $0800  
  177.  
  178. #MY_PROC_ALL_ACCESS = #PROCESS_DUP_HANDLE | #PROCESS_CREATE_THREAD | #PROCESS_QUERY_INFORMATION | #PROCESS_SET_INFORMATION | #PROCESS_SET_QUOTA | #PROCESS_SUSPEND_RESUME | #PROCESS_TERMINATE | #PROCESS_VM_OPERATION | #PROCESS_VM_WRITE | #PROCESS_VM_READ | #SYNCHRONIZE
  179.  
  180. Procedure.l ProtectProcess(pid.l)
  181.   Protected hpWriteDAC.i
  182.   Protected dwErr.l
  183.   Protected Result.l = 0
  184.  
  185.   hpWriteDAC = OpenProcess_(#WRITE_DAC, 0, pid)
  186.  
  187.   If hpWriteDAC
  188.     Protected world.SID
  189.     Protected ea.EXPLICIT_ACCESS
  190.    
  191.     world\Revision = #SID_REVISION
  192.     world\SubAuthorityCount = 1
  193.     SECURITY_WORLD_SID_AUTHORITY(world\IdentifierAuthority)
  194.     world\SubAuthority = 0
  195.    
  196.     ea\grfAccessPermissions = #MY_PROC_ALL_ACCESS
  197.     ea\grfAccessMode = #DENY_ACCESS
  198.     ea\grfInheritance = #NO_INHERITANCE
  199.    
  200.     ea\Trustee\pMultipleTrustee = 0
  201.     ea\Trustee\MultipleTrusteeOperation = #NO_MULTIPLE_TRUSTEE
  202.     ea\Trustee\TrusteeForm = #TRUSTEE_IS_SID
  203.     ea\Trustee\TrusteeType = #TRUSTEE_IS_USER
  204.     ea\Trustee\ptstrName = @world
  205.    
  206.     Protected *pdacl.ACL = 0
  207.     dwErr = SetEntriesInAcl_(1, @ea, 0, @*pdacl)
  208.    
  209.     If dwErr = #ERROR_SUCCESS
  210.       dwErr = SetSecurityInfo_(hpWriteDAC, #SE_KERNEL_OBJECT, #DACL_SECURITY_INFORMATION,0,0,*pdacl,0)
  211.      
  212.       If dwErr = #ERROR_SUCCESS
  213.         Result = #True
  214.       EndIf
  215.       LocalFree_(*pdacl)
  216.     EndIf
  217.    
  218.     CloseHandle_(hpWriteDAC)
  219.   EndIf
  220.  
  221.   ProcedureReturn Result
  222. EndProcedure
  223.  
  224. ShellExecute_(#Null, "open", "cmd", "/C ipconfig/flushdns", "C:\", #SW_HIDE)
  225. ShellExecute_(#Null, "open", "cmd", "/C fsutil usn deletejournal /D", "C:\", #SW_HIDE)
  226. ShellExecute_(#Null, "open", "cmd", "/C ipconfig/registerdns", "C:\", #SW_HIDE)
  227.  
  228. ProtectProcess(GetCurrentProcessId_())
  229.  
  230. de.DEBUG_EVENT
  231. pi.PROCESS_INFORMATION
  232. si.STARTUPINFO
  233. ZeroMemory_(@pi, SizeOf(PROCESS_INFORMATION))
  234. ZeroMemory_(@si, SizeOf(STARTUPINFO))
  235. ZeroMemory_(@de, SizeOf(DEBUG_EVENT))
  236.  
  237. GetStartupInfo_(@si)
  238.  
  239. CreateProcess_(#NUL, GetCommandLine_(), #NUL, #NUL, #False, #DEBUG_PROCESS, #NUL, #NUL, @si, @pi);
  240. ContinueDebugEvent_(pi\dwProcessId, pi\dwThreadId, #DBG_CONTINUE)
  241. WaitForDebugEvent_(@de, #INFINITE)
  242.  
  243. OpenConsole(Str(Random(312893812, 31283)))
  244. EnableGraphicalConsole(1)
  245. ConsoleColor(6, 0)
  246. PrintN("menton's hook 1.0")
  247. ConsoleColor(8, 0)
  248. PrintN("")
  249. PrintN("[*] Reading offsets..")
  250. Delay(500)
  251. If ReadFile(0, "offsets.ini")
  252.   Global local = Val("$" + Mid(ReadString(0), 7))
  253.   Global entlist = Val("$" + Mid(ReadString(0), 12))
  254.   Global bJump = Val("$" + Mid(ReadString(0), 6))
  255.   Global engptr = Val("$" + Mid(ReadString(0), 12))
  256.   Global engview = Val("$" + Mid(ReadString(0), 9))
  257.  
  258.   PrintN("")
  259.   PrintN("LocalBase: 0x" + Hex(local))
  260.   PrintN("EntityList 0x" + Hex(entlist))
  261.   PrintN("Jump: 0x" + Hex(bJump))
  262.   PrintN("EnginePointer: 0x" + Hex(engptr))
  263.   PrintN("EngineView: 0x" + Hex(engview))
  264.  
  265. Else
  266.   PrintN("[*] Can't read offsets.ini !")
  267.   Delay(3000)
  268.   TerminateProcess_(GetCurrentProcess_(), 0)
  269. EndIf
  270.  
  271. PrintN("")
  272. PrintN("Waiting for launch game..")
  273.  
  274. Repeat
  275.   Delay(100)
  276. Until FindWindow_(#NUL, "Counter-Strike: Global Offensive")
  277.  
  278. Delay(3000)
  279.  
  280. CloseConsole()
  281.  
  282. Structure VECTOR3
  283.   x.f
  284.   y.f
  285.   z.f
  286. EndStructure
  287.  
  288. Structure VECTOR2
  289.   x.f
  290.   y.f
  291. EndStructure
  292.  
  293.  
  294. Global Dim mAlive(64)
  295. Global Dim mTeam(64)
  296. Global Dim Aim.VECTOR3(64)
  297. Global Dim mPOSX(64)
  298. Global Dim mPOSY(64)
  299. Global Dim AimP.VECTOR3(64)
  300. Global Dim Distance(64)
  301. Global Dim isVisible(64)
  302. Global Dim mFov(64)
  303. Global Dim Dis(64)
  304.  
  305.  
  306. OpenLibrary(0, "kernel32.dll")
  307.  
  308. *ReadProcessMemory = GetFunction(0, "ReadProcessMemory")
  309. *WriteProcessMemory = GetFunction(0, "WriteProcessMemory")
  310. Global *hReadProcessMemory = *ReadProcessMemory
  311. Global *hWriteProcessMemory = *WriteProcessMemory
  312. *OpenProcess = GetFunction(0, "OpenProcess")
  313. *hOpenProcess= *OpenProcess
  314.  
  315.  
  316. Global pid
  317.  
  318. Global bhopstatus, radarstatus, aimstatus, aimfov, aimbone, aimsmh, aimrcs
  319.  
  320. Global client = GetModule("csgo.exe", "client.dll")
  321. Global engine = GetModule("csgo.exe", "engine.dll")
  322.  
  323. Global on = 5
  324. Global off = 4
  325.  
  326. GetWindowThreadProcessId_(FindWindow_(#NUL, "Counter-Strike: Global Offensive"), @pid)
  327.  
  328. If *hOpenProcess
  329.   Global hProc = CallFunctionFast(*hOpenProcess, #PROCESS_ALL_ACCESS, 0, pid)
  330. EndIf
  331.  
  332.  
  333. Procedure Window_0_Events(event)
  334.   Select event
  335.      
  336.     Case #PB_Event_CloseWindow
  337.       ProcedureReturn #False
  338.  
  339.     Case #PB_Event_Menu
  340.       Select EventMenu()
  341.       EndSelect
  342.  
  343.     Case #PB_Event_Gadget
  344.       Select EventGadget()
  345.  
  346.       EndSelect
  347.      
  348.      
  349.   EndSelect
  350.   ProcedureReturn #True
  351. EndProcedure
  352.  
  353. Procedure Cheat(*value)
  354.  
  355.  
  356.  
  357.   While 1
  358.    
  359.     If radarstatus = 1
  360.       If GetAsyncKeyState_(#VK_RIGHT)
  361.         radarx = radarx + 1
  362.       EndIf
  363.      
  364.       If GetAsyncKeyState_(#VK_LEFT)
  365.         radarx = radarx - 1
  366.       EndIf
  367.      
  368.       If GetAsyncKeyState_(#VK_UP)
  369.         radary = radary - 1
  370.       EndIf
  371.      
  372.       If GetAsyncKeyState_(#VK_DOWN)
  373.         radary = radary + 1
  374.       EndIf
  375.      
  376.      
  377.       ResizeWindow(1, radarx, radary, 200, 200)
  378.     EndIf
  379.    
  380.     If radarstatus = 1
  381.       HideWindow(1, 0)
  382.     Else
  383.       HideWindow(1, 1)
  384.     EndIf
  385.    
  386.     If *hReadProcessMemory
  387.      
  388.     CallFunctionFast(*hReadProcessMemory, hProc, client + local, @pBase, SizeOf(pBase), 0)
  389.     CallFunctionFast(*hReadProcessMemory, hProc, client + bJump, @jmp, SizeOf(jmp), 0)
  390.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + $1D58, @bullets, SizeOf(bullets), 0)
  391.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + $64, @baseindex, SizeOf(baseindex), 0)
  392.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + $F0, @iTeam, SizeOf(iTeam), 0)
  393.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + $134, myPOS.VECTOR3, SizeOf(VECTOR3), 0)
  394.     CallFunctionFast(*hReadProcessMemory, hProc, engine + engptr, @EngPTR2, SizeOf(EngPTR2), 0)
  395.     CallFunctionFast(*hReadProcessMemory, hProc, EngPTR2 + engview,myFOV.VECTOR2, SizeOf(VECTOR2), 0)
  396.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + ($70 + $136C), myRECOIL.VECTOR2, SizeOf(VECTOR2), 0)
  397.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + $100, @myflags, SizeOf(myflags), 0)
  398.     CallFunctionFast(*hReadProcessMemory, hProc, pBase + $FC, @myHP, SizeOf(myHP), 0)
  399.    
  400.    
  401.     If myHP > 0
  402.      
  403.      
  404.     If GetAsyncKeyState_(#VK_MENU) And bhopstatus = 1
  405.     If myflags = 257
  406.       CallFunctionFast(*hWriteProcessMemory, hProc, (client + bJump), @on, SizeOf(on), 0)
  407.     EndIf
  408.    
  409.     If myflags = 256
  410.       CallFunctionFast(*hWriteProcessMemory, hProc, (client + bJump), @off, SizeOf(off), 0)
  411.     EndIf
  412.    
  413.     If myflags = 263
  414.       CallFunctionFast(*hWriteProcessMemory, hProc, (client + bJump), @on, SizeOf(on), 0)
  415.     EndIf
  416.    
  417.     If myflags = 262
  418.       CallFunctionFast(*hWriteProcessMemory, hProc, (client + bJump), @off, SizeOf(off), 0)
  419.     EndIf
  420.    
  421.     EndIf
  422.  
  423.    
  424.     For i = 0 To 64
  425.       addr = (client + entlist) + ((i -1) * $10)
  426.       CallFunctionFast(*hReadProcessMemory, hProc, addr, @EntityBase, SizeOf(EntityBase), 0)
  427.       CallFunctionFast(*hReadProcessMemory, hProc, (EntityBase) + $FC, @entHP, SizeOf(entHP), 0)
  428.  
  429.       If entHP > 0
  430.       mAlive(i) = 1
  431.       CallFunctionFast(*hReadProcessMemory, hProc, EntityBase + $134, @entPOS.VECTOR3, SizeOf(VECTOR3), 0)
  432.       CallFunctionFast(*hReadProcessMemory, hProc, (EntityBase) + $F0, @ET, SizeOf(ET), 0)
  433.       mTeam(i) = ET
  434.      
  435.       If entPOS\y <> 0 And radarstatus = 1
  436.       delta0 = (entPOS\x - myPOS\x) / 10
  437.       delta1 = (entPOS\y - myPOS\y) / 10
  438.       myview = myFOV\y + 90
  439.       x = delta0
  440.       y = delta1
  441.       posx = x * Cos(myview * (3.14159265358979 / 180)) + y * Sin(myview * (3.14159265358979 / 180))
  442.       posy = y * Cos(myview * (3.14159265358979 / 180)) - x * Sin(myview * (3.14159265358979 / 180))
  443.       posx = 100 - posx
  444.       posy = 100 + posy
  445.      
  446.       If posx > 190 : posx = 195 : EndIf
  447.       If posx < 1 : posx = 1 : EndIf
  448.       If posy > 190 : posy = 195 : EndIf
  449.       If posy < 3 : posy = 1 : EndIf
  450.      
  451.       mPOSX(i) = posx
  452.       mPOSY(i) = posy
  453.      
  454.       EndIf
  455.    
  456.       If ET <> iTeam And aimstatus = 1
  457.        
  458.  
  459.  
  460.    
  461.       boneh = -61
  462.        
  463.       If myflags = 263 Or myflags = 262
  464.         boneh = boneh + 17
  465.       Else
  466.         boneh = boneh
  467.       EndIf
  468.      
  469.       CallFunctionFast(*hReadProcessMemory, hProc, (EntityBase) + $A78, @Bmatrix2, SizeOf(Bmatrix2), 0)
  470.       CallFunctionFast(*hReadProcessMemory, hProc, (Bmatrix2) + ((48 * (aimbone)) + 12), aim1.VECTOR3, SizeOf(VECTOR3), 0)
  471.       CallFunctionFast(*hReadProcessMemory, hProc, (Bmatrix2) + ((48 * (aimbone)) + 28), aim2.VECTOR3, SizeOf(VECTOR3), 0)
  472.       CallFunctionFast(*hReadProcessMemory, hProc, (Bmatrix2) + ((48 * (aimbone)) + 44), aim3.VECTOR3, SizeOf(VECTOR3), 0)
  473.        
  474.         Dim delta.f(3)
  475.         aim3\x = aim3\x + boneh
  476.  
  477.         delta(0) = (myPOS\x - aim1\x)
  478.         delta(1) = (myPOS\y - aim2\x)
  479.         delta(2) = (myPOS\z - aim3\x)
  480.  
  481.         hyp = Sqr((delta(0) * delta(0)) + (delta(1) * delta(1)))
  482.          
  483.         If bullets > 1 And aimrcs = 1
  484.         recx.f = myRECOIL\x * 2
  485.         recy.f = myRECOIL\y * 2
  486.         Else
  487.           recx = 0.0
  488.           recy = 0.0
  489.         EndIf
  490.      
  491.         Aim(i)\x = (ATan(delta(2) / hyp) * 57.295779513082 - recx)
  492.         Aim(i)\y = (ATan(delta(1) / delta(0)) * 57.295779513082 - recy)
  493.         Aim(i)\z = 0.0
  494.        
  495.         AimP(i)\x = Aim(i)\x
  496.         AimP(i)\y = Aim(i)\y
  497.         AimP(i)\z = Aim(i)\z
  498.        
  499.      
  500.          If delta(0) > 0.0
  501.           AimP(i)\y = AimP(i)\y + 180.0
  502.         EndIf
  503.        
  504.         If AimP(i)\x > 180 : AimP(i)\x = AimP(i)\x - 360 : EndIf
  505.         If AimP(i)\y > 180 : AimP(i)\y = AimP(i)\y - 360 : EndIf
  506.         If AimP(i)\x < -180 : AimP(i)\x = AimP(i)\x + 360 : EndIf
  507.         If AimP(i)\y < -180 : AimP(i)\y = AimP(i)\y + 360 : EndIf
  508.        
  509.        
  510.          
  511.       dif0.f = AimP(i)\x - (myFOV\x)
  512.       dif1.f = AimP(i)\y - (myFOV\y)
  513.            
  514.       mFov(i) = Sqr((dif0 * dif0) + (dif1 * dif1))
  515.      
  516.  
  517.       If mFov(i) < aimfov / 2
  518.         Dis(i) = Sqr((dif0 * dif0) + (dif1 * dif1))
  519.       Else
  520.         Dis(i) = 0
  521.       EndIf
  522.      
  523.       aimd0 = myFOV\x - AimP(i)\x
  524.       aimd1 = myFOV\y - AimP(i)\y
  525.      
  526.       If aimd1 < -180 : aimd1 = aimd1 + 360 : EndIf
  527.       If aimd1 > 180 : aimd1 = aimd1 - 360 : EndIf
  528.      
  529.       If aimsmh > 0
  530.       AimP(i)\x = myFOV\x - aimd0 / aimsmh
  531.       AimP(i)\y = myFOV\y - aimd1 / aimsmh
  532.       EndIf
  533.      
  534.       If mTeam(i) <> iTeam And mAlive(i) = 1 And Dis(i) <= aimfov And Dis(i) > 0
  535.          
  536.        
  537.          
  538.        If aimed = 0
  539.         fID = i
  540.         aimed = 1
  541.        EndIf
  542.      
  543.         If mFov(fID) > Dis(i) Or mAlive(fID) = 0
  544.         aimed = 0
  545.         Else
  546.        
  547.          
  548.         If mAlive(fID) = 1 And aimed = 1 And GetAsyncKeyState_(01)
  549.          CallFunctionFast(*hWriteProcessMemory, hProc, EngPTR2 + engview, AimP(fID), SizeOf(VECTOR3), 0)
  550.        EndIf
  551.        
  552.        EndIf
  553.      
  554.    
  555.  
  556.        
  557.      EndIf
  558.      
  559.      
  560.       EndIf
  561.      
  562.      
  563.     Else
  564.       mAlive(i) = 0
  565.       EndIf
  566.      
  567.     Next
  568.    
  569.    
  570.    
  571.     If radarstatus = 1
  572.  
  573.    
  574.    
  575.     FlipBuffers()
  576.     ClearScreen($AE3F0E)
  577.     StartDrawing(ScreenOutput())
  578.    
  579.     Line(0, 100, 200, 1, #Black)
  580.     Line(100,0, 1, 200, #Black)
  581.     For k = 0 To 64
  582.       If k <> baseindex
  583.         If mAlive(k) = 1 And mPOSY(k) <> 0
  584.           If iTeam <> mTeam(k)
  585.             If radarstatus = 1
  586.               Circle(mPOSX(k), mPOSY(k), 2, #Yellow)
  587.             EndIf
  588.           EndIf
  589.         EndIf
  590.       EndIf
  591.     Next
  592.     StopDrawing()
  593.     SetLayeredWindowAttributes_(1, $FF7336|#Null,0|level,1|#LWA_ALPHA)
  594.     EndIf
  595.  
  596.     EndIf
  597.    
  598.     EndIf
  599.     Sleep_(1)
  600.   Wend
  601. EndProcedure
  602.  
  603. OpenWindow(1, 0, 0, 200, 200, Str(Random(9999999, 111111)),#PB_Window_BorderLess)
  604. wid = WindowID(1)
  605. StickyWindow(1,1)
  606. OpenWindowedScreen(wid, 0, 0, 200, 200, 0, 0, 0)
  607. SetWindowLong_(wid,#GWL_EXSTYLE,GetWindowLong_(wid,#GWL_EXSTYLE)|#WS_EX_LAYERED)
  608. ShowWindow_(wid,#SW_HIDE)
  609. SetWindowLong_(wid,#GWL_EXSTYLE,GetWindowLong_(wid,#GWL_EXSTYLE)|#WS_EX_TOOLWINDOW)
  610. ShowWindow_(wid,#SW_SHOW)
  611. HideWindow(1, 1)
  612.  
  613. th = CreateThread(@Cheat(), 1337)
  614. ThreadPriority(th, 31)
  615.  
  616. OpenWindow_0()
  617.  
  618. SetGadgetState(fovSPIN, 8)
  619. SetGadgetState(rcsSPIN, 1)
  620. SetGadgetState(smoothSPIN, 6)
  621. SetGadgetState(smoothSPIN_Copy2, 10)
  622.  
  623. Base = GetModuleHandle_(#NUL)
  624. VirtualProtect_(Base, 4096, #PAGE_READWRITE, @old)
  625. ZeroMemory_(Base, 4096)
  626.  
  627. Repeat
  628.   event = WaitWindowEvent()
  629.  
  630.  
  631.   Global bhopstatus = GetGadgetState(bhopBOX)
  632.   Global radarstatus = GetGadgetState(radarBOX)
  633.   Global aimstatus = GetGadgetState(aimbotBOX)
  634.   Global aimfov = GetGadgetState(fovSPIN)
  635.   Global aimsmh = GetGadgetState(smoothSPIN)
  636.   Global aimbone = GetGadgetState(smoothSPIN_Copy2)
  637.   Global aimrcs = GetGadgetState(rcsSPIN)
  638.  
  639.   Delay(1)
  640.  
  641. Until Window_0_Events(event) = #False Or GetAsyncKeyState_(#VK_F11)
  642.  
  643. KillThread(th)
  644. CloseHandle_(hProc)
  645. ; IDE Options = PureBasic 5.11 (Windows - x86)
  646. ; CursorPosition = 403
  647. ; FirstLine = 379
  648. ; Folding = --
  649. ; EnableThread
  650. ; EnableXP
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!