API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 19th, 2019
102
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 13.66 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_Compression=4
  4. #AutoIt3Wrapper_UseUpx=y
  5. #AutoIt3Wrapper_UPX_Parameters=--best --lzma
  6. #AutoIt3Wrapper_Compile_Both=y
  7. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  8. #EndRegion
  9.  
  10. #include <MsgBoxConstants.au3>
  11.  
  12. #include <NomadMemoryPSsix.au3>
  13. #include <ButtonConstants.au3>
  14. #include <ComboConstants.au3>
  15. #include <EditConstants.au3>
  16. #include <GUIConstantsEx.au3>
  17. #include <SliderConstants.au3>
  18. #include <StaticConstants.au3>
  19. #include <TabConstants.au3>
  20. #include <WindowsConstants.au3>
  21. #include <Color.au3>
  22. #include <GuiEdit.au3>
  23. #include <ReFuse.au3>
  24. #include <offset.au3>
  25.  
  26. Opt("MouseCoordMode", 2)
  27. Opt("PixelCoordMode", 2)
  28. Opt("CaretCoordMode", 2)
  29. HotKeySet("{F5}", "Button1Click")
  30. HotKeySet("{F6}", "KillGateButton")
  31.  
  32.  
  33. Global $PSsix = 0, $GameHD = 0
  34. Global $pPause = False
  35.  
  36. Global $memopen ; open Process
  37. Global $MainAddress ; Final Address For more offset
  38.  
  39.  
  40. Global $BmValue
  41. Global $SpValue
  42. Global $LvValue
  43. Global $JobValue
  44.  
  45. Global $comboHack = 0
  46.  
  47. Global $DashFB
  48. Global $DashFA
  49. Global $DashFS
  50. Global $DashWA
  51. Global $DashWI
  52. Global $DashBL
  53.  
  54. Global $KillGateHack = 0
  55. Global $NoDelayHack = 0
  56. Global $DashNCDHack = 0
  57. Global $BmNCDHack = 0
  58. Global $AoeBm2Hack = 0
  59. Global $DPHack = 0
  60. Global $WallHackHack = 0
  61. Global $ZoomHackHack = 0
  62. Global $DmgHack = 0
  63. Global $AoeHack = 0
  64. Global $MapDefaultValue
  65.  
  66. Global $DashFB
  67. Global $DashFA
  68. Global $DashFS
  69. Global $DashWA
  70. Global $DashWI
  71. Global $DashBL
  72. Global $FindNDL ='yes'
  73.  
  74. Global $PidSpace
  75.  
  76.  
  77.  
  78. Global $ProcessName
  79. Global $TiTle
  80. $ProcessName = InputBox("Step 1 ", "Enter Process", "CabalMain.exe", "",-1, -1, default, default);
  81. If @error Then
  82.     Exit
  83. EndIf
  84. $TiTle = InputBox("Step 2", "Enter TiTle", "CABAL NV", "",-1, -1, default, default);
  85. If @error Then
  86.     Exit
  87. EndIf
  88.  
  89.  
  90. Opt("GUIOnEventMode", 1)
  91. #Region ### START Koda GUI section ### Form=d:\autoit\game\bot online\cabal2\botcabal2.kxf
  92. $Form1_1 = GUICreate("twitch", 194, 250, -1, -1)
  93. GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
  94. GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
  95. GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
  96. GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
  97. $Edit1 = GUICtrlCreateEdit("", 8, 8, 100, 30, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
  98. GUICtrlSetData(-1, "เธซเน‰เธฒเธกเธ‚เธฒเธข")
  99. GUICtrlSetOnEvent(-1, "Edit1Change")
  100. $Button1 = GUICtrlCreateButton("Start BOT", 113, 8, 75, 25)
  101. GUICtrlSetOnEvent(-1, "Button1Click")
  102. $Button2 = GUICtrlCreateButton("DMG BOT", 113, 40, 75, 25)
  103. GUICtrlSetOnEvent(-1, "Button2Click")
  104.  
  105.  
  106.  
  107. $Tab1 = GUICtrlCreateTab(8, 50, 180, 185)
  108. GUICtrlSetOnEvent(-1, "Tab1Change")
  109. $TabSheet1 = GUICtrlCreateTabItem("Page 1")
  110.  
  111. $Button4 = GUICtrlCreateButton("AOE | Range", 20, 80, 75, 25)
  112. GUICtrlSetOnEvent(-1, "AoeButton")
  113.  
  114. $aoeValue = GUICtrlCreateCombo("0", 100, 82, 35, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
  115. GUICtrlSetData(-1, "10|20|50|100")
  116.  
  117. $rangeValue = GUICtrlCreateCombo("0", 140, 82, 35, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
  118. GUICtrlSetData(-1, "10|20|50|100")
  119.  
  120.  
  121. $Tab2 = GUICtrlCreateTab(8, 50, 180, 185)
  122. GUICtrlSetOnEvent(-1, "Tab1Change")
  123. $TabSheet2 = GUICtrlCreateTabItem("Page 2")
  124.  
  125.  
  126. $comboButton = GUICtrlCreateButton("ComboHack",         20, 80, 75, 25)
  127. GUICtrlSetOnEvent(-1, "comboButton")
  128. $KillGateButton = GUICtrlCreateButton("killGate",       20, 110, 75, 25)
  129. GUICtrlSetOnEvent(-1, "killGateButton")
  130. $NoDelayButton = GUICtrlCreateButton("NoDelay",         20, 140, 75, 25)
  131. GUICtrlSetOnEvent(-1, "NoDelayButton")
  132.  
  133. $DashNCDButton = GUICtrlCreateButton("Dash NCD",        20, 170, 75, 25)
  134. GUICtrlSetOnEvent(-1, "DashNCDButton")
  135. ReadDashValue()
  136.  
  137. $BmNCDButton = GUICtrlCreateButton("BM NCD",            20, 200, 75, 25)
  138. GUICtrlSetOnEvent(-1, "BmNCDButton")
  139. $AoeBm2Buttonn = GUICtrlCreateButton("AOE BM2",         100, 80, 75, 25)
  140. GUICtrlSetOnEvent(-1, "AoeBm2Button")
  141. $DPButton = GUICtrlCreateButton("DP",                   100, 110, 75, 25)
  142. GUICtrlSetOnEvent(-1, "DPButton")
  143. $WallHackButton = GUICtrlCreateButton("WallHack",       100, 140, 75, 25)
  144. GUICtrlSetOnEvent(-1, "WallHackButton")
  145. $ZoomHackButton = GUICtrlCreateButton("ZoomHack",       100, 170, 75, 25)
  146. GUICtrlSetOnEvent(-1, "ZoomHackButton")
  147. $DmgHackButton = GUICtrlCreateButton("FB Dmg",          100, 200, 75, 25)
  148. GUICtrlSetOnEvent(-1, "DmgHackButton")
  149.  
  150. GUISetState(@SW_SHOW)
  151. #EndRegion ### END Koda GUI section ###
  152. WinSetOnTop($Form1_1, "", 1)
  153.  
  154.  
  155.  
  156.  
  157. $memopen = OpenProcess($ProcessName)
  158. While 1
  159.     Sleep(100)
  160.     Select
  161.         Case $PSsix = 1
  162.             $PSsix = 1
  163.  
  164.         Case $PSsix = 3
  165.             $PSsix = 0
  166.             ShellExecute("https://www.facebook.com/TheLectures/")
  167.     EndSelect
  168.     start()
  169. WEnd
  170.  
  171.  
  172.  
  173.  
  174. Func start()
  175.     ReadStatus()
  176.     ReadDashValue()
  177.     HackCheck()
  178.  
  179.     Sleep(10)
  180. If _PSsixLoadH($TiTle) and $PSsix = 1 Then
  181.     WinActivate($GameHD)
  182.     selectMoster()
  183.     atk()
  184.  
  185. EndIf
  186. EndFunc
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194. Func ReadDashValue()
  195.  
  196.     If $FindNDL ='yes' Then
  197.         $DashFB = _MemoryPointerRead($MainAddress,$memopen,$DashFBOffset)
  198.         $DashFA = _MemoryPointerRead($MainAddress,$memopen,$DashFAOffset)
  199.         $DashFS = _MemoryPointerRead($MainAddress,$memopen,$DashFSOffset)
  200.         $DashWA = _MemoryPointerRead($MainAddress,$memopen,$DashWAOffset)
  201.         $DashWI = _MemoryPointerRead($MainAddress,$memopen,$DashWIOffset)
  202.         $DashBL = _MemoryPointerRead($MainAddress,$memopen,$DashBLOffset)
  203.  
  204.     EndIf
  205. EndFunc
  206.  
  207.  
  208. Func ReadStatus()
  209.  
  210.     $BmValue = _MemoryPointerRead($MainAddress,$memopen,$BmOffset)
  211.     $SpValue = _MemoryPointerRead($MainAddress,$memopen,$SpOffset)
  212.     $LvValue = _MemoryPointerRead($MainAddress,$memopen,$LvOffset)
  213.     $JobValue = _MemoryPointerRead($MainAddress,$memopen,$AoeBMOffset)
  214.     ;MsgBox(4096, "BM",$BmValue[1])
  215.  
  216.  
  217. EndFunc
  218.  
  219. Func HackCheck()
  220.  
  221.     If $NoDelayHack = 1 Then
  222.         _MemoryPointerWrite($MainAddress,$memopen,$NDLOffset,'1629697')
  223.     EndIf
  224.     If $DashNCDHack = 1 Then
  225.         _MemoryPointerWrite($MainAddress,$memopen,$DashFBOffset,$DashFB[1])
  226.         ;_MemoryPointerWrite($MainAddress,$memopen,$DashFAOffset,$DashFA[1])
  227.         ;_MemoryPointerWrite($MainAddress,$memopen,$DashFSOffset,$DashFS[1])
  228.         ;_MemoryPointerWrite($MainAddress,$memopen,$DashWAOffset,$DashWA[1])
  229.         ;_MemoryPointerWrite($MainAddress,$memopen,$DashWIOffset,$DashWI[1])
  230.         ;z18_MemoryPointerWrite($MainAddress,$memopen,$DashBLOffset,$DashBL[1])
  231.     EndIf
  232.  
  233.     If $BmNCDHack = 1 Then
  234.         _MemoryPointerWrite($MainAddress,$memopen,$AuraOffset,'1')
  235.         _MemoryPointerWrite($MainAddress,$memopen,$Bm1Offset,'1')
  236.         _MemoryPointerWrite($MainAddress,$memopen,$Bm2Offset,'1')
  237.         _MemoryPointerWrite($MainAddress,$memopen,$Bm3Offset,'1')
  238.     EndIf
  239.  
  240.  
  241.     If $AoeBm2Hack = 1 And $BmValue[1] = 34 or $BmValue[1] = 42 Then
  242.         _MemoryPointerWrite($MainAddress,$memopen,$AoeBMOffset,'1')
  243.     ElseIf $AoeBm2Hack = 1 Then
  244.         _MemoryPointerWrite($MainAddress,$memopen,$AoeBMOffset,'4')
  245.     EndIf
  246.  
  247.  
  248.     If $DmgHack = 1 Then
  249.         _MemoryPointerWrite($MainAddress,$memopen,$BmOffset,'0')
  250.     EndIf
  251.  
  252.     If $comboHack = 1 Then
  253.         _MemoryPointerWrite($MainAddress,$memopen,$ComboOffset,'1')
  254.         _MemoryPointerWrite($MainAddress,$memopen,$PComboOffset,'0')
  255.     EndIf
  256.  
  257. EndFunc
  258.  
  259.  
  260.  
  261.  
  262.  
  263. Func AutoSP()
  264.     If PixelGetColor(192,56) <> 0xFFB663 and PixelGetColor(468,862) == 0x9228BA Then
  265.         Send ("2")
  266.         Sleep(3000)
  267.     EndIf
  268. EndFunc
  269.  
  270. Func selectMoster()
  271.     If PixelGetColor(576,23) <> 0xFFC849 Then
  272.         Send ("z")
  273.         Sleep(10)
  274.     EndIf
  275.  
  276. EndFunc
  277. Func atk()
  278.     Send ("1")
  279.     Send ("2")
  280.     Send ("3")
  281.     Sleep(10)
  282. EndFunc
  283.  
  284.  
  285.  
  286. Func auraUse()
  287.     if PixelGetColor(220,94) <> 0x79E6FF and PixelGetColor(192,56) == 0xFFB663 Then
  288.         Send('9')
  289.  
  290.     EndIf
  291.     if PixelGetColor(191,76) <> 0xFFFFFF and PixelGetColor(220,94) == 0x79E6FF Then
  292.         Send('0')
  293.  
  294.     EndIf
  295.     Sleep(100)
  296. EndFunc
  297.  
  298.  
  299.  
  300. Func TogglePause()
  301.     $pPause = Not $pPause
  302.     If $pPause Then
  303.         ControlSetText($Form1_1, "", $Button2, "เธ—เธณเธ‡เธฒเธ™เธ•เนˆเธญ")
  304.         GUICtrlSetData($Edit1, StringFormat("เธซเธขเธธเธ”เธ—เธณเธ‡เธฒเธ™เธŠเธฑเนˆเธงเธ„เธฃเธฒเธง \r\nเธˆเธฐเธเธฅเธฑเธšเธกเธฒเธ—เธณเธ‡เธฒเธ™ เน€เธกเธทเนˆเธญเธ„เธธเธ“เธ„เธฅเธดเธเธซเธฃเธทเธญเธเธ”เธ›เธธเนˆเธกเธ‹เน‰เธณเธญเธตเธเธ„เธฃเธฑเน‰เธ‡ \r\n "))
  305.     Else
  306.         ControlSetText($Form1_1, "", $Button2, "เธซเธขเธธเธ”เธŠเธฑเนˆเธงเธ„เธฃเธฒเธง")
  307.         GUICtrlSetData($Edit1, StringFormat("เธเธฅเธฑเธšเธกเธฒเธ—เธณเธ‡เธฒเธ™เธ•เธฒเธกเธ›เธเธ•เธด \r\n ______________"))
  308.     EndIf
  309. EndFunc   ;==>TogglePause
  310. Func Button1Click()
  311.     if $PSsix = 0 Then
  312.         $PSsix = 1;
  313.         $PidSpace = Run("AutoSpace.exe")
  314.         GUICtrlSetData($Edit1, StringFormat("Bot = ON\r\n"))
  315.     Else
  316.         $PSsix = 0;
  317.         ProcessClose($PidSpace)
  318.         GUICtrlSetData($Edit1, StringFormat("Bot = OFF\r\n"))
  319.  
  320.     EndIf
  321. EndFunc   ;==>Button1Click
  322. Func Button2Click()
  323.     Run("DMGBOT.exe")
  324.     GUICtrlSetData($Edit1, StringFormat(" FB DMG Bot = ON\r\n"))
  325. EndFunc   ;==>Button2Click
  326.  
  327. Func Button3Click()
  328.  
  329.  
  330.     WinActivate($GameHD)
  331.     $color = Hex(PixelGetColor( 1899, 228), 6)
  332.     MsgBox(4096, "BM",$color)
  333. EndFunc   ;==>Button3Click
  334.  
  335. Func AoeButton()
  336.  
  337.     Local $aoeRead
  338.     $aoeRead = GUICtrlRead($aoeValue)
  339.     Local $rangeRead
  340.     $rangeRead = GUICtrlRead($rangeValue)
  341.  
  342.     if $AoeHack = 0 And $aoeRead <> 0 or $rangeRead <> 0 Then
  343.         $AoeHack = 1;
  344.         _MemoryWrite($GmAddress , $memopen, "2")
  345.         _MemoryWrite($AoeAddress , $memopen, $aoeRead)
  346.         _MemoryWrite($AoeAllSkillAddress1 , $memopen, "485163008 ")
  347.         _MemoryWrite($AoeAllSkillAddress2 , $memopen, "485163008 ")
  348.         _MemoryWrite($RangeAddress , $memopen,$rangeRead)
  349.         GUICtrlSetData($Edit1, StringFormat(" Aoe / Range = ON \r\n"))
  350.  
  351.     Else
  352.         $AoeHack = 0;
  353.         _MemoryWrite($GmAddress , $memopen, "0")
  354.         _MemoryWrite($AoeAddress , $memopen, "0")
  355.         _MemoryWrite($RangeAddress , $memopen, "0 ")
  356.         GUICtrlSetData($Edit1, StringFormat(" Aoe / Range = OFF \r\n"))
  357.     EndIf
  358.  
  359.  
  360. EndFunc
  361.  
  362. Func comboButton()
  363.  
  364.     if $comboHack = 0 Then
  365.         $comboHack = 1;
  366.         GUICtrlSetData($Edit1, StringFormat(" ComboHack = On \r\n"))
  367.     Else
  368.         $comboHack = 0;
  369.         GUICtrlSetData($Edit1, StringFormat(" ComboHack = off \r\n"))
  370.     EndIf
  371. EndFunc
  372.  
  373. Func KillGateButton()
  374.  
  375.     if $KillGateHack = 0 Then
  376.         $KillGateHack = 1;
  377.     Else
  378.         $KillGateHack = 0;
  379.     EndIf
  380.  
  381.     If $KillGateHack = 1 Then
  382.         $MapDefaultValue = _MemoryPointerRead($MainAddress,$memopen,$MapOffset)
  383.         _MemoryPointerWrite($MainAddress,$memopen,$MapOffset,'1')
  384.         GUICtrlSetData($Edit1, StringFormat(" KillGate = On \r\n DefaultMap =" & $MapDefaultValue[1] &" \r\n "))
  385.     Else
  386.         _MemoryPointerWrite($MainAddress,$memopen,$MapOffset,$MapDefaultValue[1])
  387.         GUICtrlSetData($Edit1, StringFormat(" KillGate = off \r\n "))
  388.     EndIf
  389.  
  390.  
  391.  
  392.  
  393. EndFunc
  394. Func NoDelayButton()
  395.  
  396.     if $NoDelayHack = 0 Then
  397.         $NoDelayHack = 1;
  398.         GUICtrlSetData($Edit1, StringFormat(" Nodelay = ON \r\n"))
  399.     Else
  400.         $NoDelayHack = 0;
  401.         GUICtrlSetData($Edit1, StringFormat(" Nodelay = OFF \r\n"))
  402.     EndIf
  403. EndFunc
  404. Func DashNCDButton()
  405.  
  406.     if $DashNCDHack = 0 Then
  407.         $DashNCDHack = 1;
  408.         GUICtrlSetData($Edit1, StringFormat(" DashNCD = ON \r\n"))
  409.         $FindNDL ='no'
  410.     Else
  411.         $DashNCDHack = 0;
  412.         $FindNDL ='yes'
  413.         GUICtrlSetData($Edit1, StringFormat(" DashNCD = OFF \r\n"))
  414.     EndIf
  415. EndFunc
  416. Func BmNCDButton()
  417.  
  418.     if $BmNCDHack = 0 Then
  419.         $BmNCDHack = 1;
  420.         GUICtrlSetData($Edit1, StringFormat(" BmNCD = ON \r\n"))
  421.     Else
  422.         $BmNCDHack = 0;
  423.         GUICtrlSetData($Edit1, StringFormat(" BmNCD = OFF \r\n"))
  424.     EndIf
  425. EndFunc
  426. Func AoeBm2Button()
  427.  
  428.     if $AoeBm2Hack = 0 And $JobValue[1] = 4 Then
  429.         $AoeBm2Hack = 1;
  430.         GUICtrlSetData($Edit1, StringFormat(" AoeBm2 FA only = ON \r\n"))
  431.     Else
  432.         $AoeBm2Hack = 0;
  433.         GUICtrlSetData($Edit1, StringFormat(" AoeBm2  FA only = OFF \r\n"))
  434.     EndIf
  435. EndFunc
  436. Func DPButton()
  437.     _MemoryPointerWrite($MainAddress,$memopen,$MapOffset,'57')
  438.     GUICtrlSetData($Edit1, StringFormat(" DP HACK = ON \r\n"))
  439. EndFunc
  440. Func WallHackButton()
  441.     Run("7witch Wallhack v.1.0.exe")
  442.     GUICtrlSetData($Edit1, StringFormat(" WallHackHack  = OPEN \r\n"))
  443.  
  444.  
  445. EndFunc
  446. Func ZoomHackButton()
  447.  
  448.     if $ZoomHackHack = 0 Then
  449.         $ZoomHackHack = 1;
  450.         _MemoryWrite($ZoomAddress , $memopen, "4")
  451.         GUICtrlSetData($Edit1, StringFormat(" ZoomHack  = ON \r\n"))
  452.     Else
  453.         $ZoomHackHack = 0;
  454.         _MemoryWrite($ZoomAddress , $memopen, "2")
  455.         GUICtrlSetData($Edit1, StringFormat(" ZoomHack  = OFF \r\n"))
  456.     EndIf
  457. EndFunc
  458. Func DmgHackButton()
  459.  
  460.     if $DmgHack = 0 Then
  461.         $DmgHack = 1;
  462.         GUICtrlSetData($Edit1, StringFormat(" FB DMG Hack = ON \r\n "))
  463.     Else
  464.         $DmgHack = 0;
  465.         GUICtrlSetData($Edit1, StringFormat(" FB DMG Hack = OFF \r\n "))
  466.     EndIf
  467. EndFunc
  468.  
  469.  
  470.  
  471.  
  472.  
  473.  
  474.  
  475.  
  476.  
  477. Func Checkbox10Click()
  478.  
  479. EndFunc   ;==>Checkbox10Click
  480. Func Checkbox11Click()
  481.  
  482. EndFunc   ;==>Checkbox11Click
  483. Func Checkbox1Click()
  484.  
  485. EndFunc   ;==>Checkbox1Click
  486.  
  487. Func Combo10Change()
  488.  
  489. EndFunc   ;==>Combo10Change
  490. Func Combo1Change()
  491.     MsgBox(4096,'ee','combo')
  492.  
  493. EndFunc   ;==>Combo1Change
  494. Func Combo2Change()
  495.  
  496. EndFunc   ;==>Combo2Change
  497.  
  498. Func Edit1Change()
  499.  
  500. EndFunc   ;==>Edit1Change
  501. Func Form1_1Close()
  502.     Exit
  503. EndFunc   ;==>Form1_1Close
  504. Func Form1_1Maximize()
  505.  
  506. EndFunc   ;==>Form1_1Maximize
  507. Func Form1_1Minimize()
  508.  
  509. EndFunc   ;==>Form1_1Minimize
  510. Func Form1_1Restore()
  511.  
  512. EndFunc   ;==>Form1_1Restore
  513. Func Input10Change()
  514.  
  515. EndFunc   ;==>Input10Change
  516. Func Input11Change()
  517.  
  518.  
  519.  
  520.  
  521. EndFunc   ;==>Label10Click
  522. Func Label11Click()
  523.  
  524. EndFunc   ;==>Label11Click
  525.  
  526. Func Radio1Click()
  527.  
  528. EndFunc   ;==>Radio1Click
  529.  
  530. Func Slider1Change()
  531.  
  532. EndFunc   ;==>Slider1Change
  533. Func Tab1Change()
  534.  
  535. EndFunc   ;==>Tab1Change
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!