taultunleashed http://www.taultunleashed.com/phpbb3/ |
|
Guild Wars Bots - uLtra eMt boT v4.9 (by aLasca) http://www.taultunleashed.com/guild-wars-submissions/guild-wars-bots-ultra-emt-bot-v4-9-by-alasca-t70625.html |
Page 1 of 1 |
Author: | curtconan [ February 6th, 2009, 10:12 am ] |
Post subject: | Guild Wars Bots - uLtra eMt boT v4.9 (by aLasca) |
It's done .. I will again make public a bot, which is the signature sales will stop .. He Farmt Byzzr Schwingen flicker in Lutgardis conservatory. UPDATE => ACCOUNTS WITH 4 BOTTE Ini open the window and then change the name (Habs forgotten) # ------------------------------------------------- ------------ EMT ultra bot v4.9 by Itami & Alasca cooRp 09 # ------------------------------------------------- ------------ #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ FEATURES #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ Background GUI MoveTo Identify Sell 100% Human behavior Memory Handling Updates StatistikView Verlauf.log in the display when the bot is started / ended #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ HOW TO #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ Interface Settings => Normal Graphic possible to screw down Lagger be avoided. Group of very small window top right Kaufmann tiny window bottom right (all except backpack pockets hide!) Inventory (All Cases) top left (See screenshot) #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ NEEDED #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ 55HP Nekro Farming ===>>>-55hp, basic functionality (for beginners) - Guild Wars Forum Factions Prophecies Template code: OABDQsRnOvBV4ZAAAAAAAgwA Attributes: Blood Magic 12 +1 +3 Curses 10 +3 Rest does not matter #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ GET STARTED #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ Take all the above settings Start the Bot and press the first on "Update"! Once the update is completed, click "Customize" Now they are after Lutgardis wintergarden and press the "Start" #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ HotKeys #~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~ End / End: Robot Stop Pause: Pause Bot Down arrow / Down: Guild Wars hide (stealth mode) Cursor Up / Down: Guild Wars Show (Stealth mode OFF) (!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))): #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=data\uLtRa.ico #AutoIt3Wrapper_Res_Description=uLtra eMt boT by Itami & aLasca cooRp 09 #AutoIt3Wrapper_Res_Fileversion=4.9.1.7 #AutoIt3Wrapper_Res_LegalCopyright=by Itami & aLasca cooRp 09 #AutoIt3Wrapper_Run_Obfuscator=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- Globals #ce ---------------------------------------------------------------------------- #include <Process> #include <NomadMemory> #include <ButtonConstants> #include <EditConstants> #include <GUIConstantsEx> #include <StaticConstants> #include <WindowsConstants2> #include "tt6.au3" #include-once HotKeySet("{End}", "_End") HotKeySet("{Pause}", "_Pause") HotKeySet("{Up}", "_Show") HotKeySet("{Down}", "_Hide") Global $Paused Global $LogFile = FileOpen(@ScriptDir & "/data/Verlauf.log", 1) Global $inifile = @ScriptDir & "/data/settings.ini" Global $GUI_RUNS = 0, $LBL_ANZAHL_RUNS, $GUI_TODE = 0, $LBL_ANZAHL_TODE ;click postion Const $ident_x = 36 Const $ident_y = 270 Const $Slot1_x = 31 Const $Slot1_y = 70 Opt("SendKeyDelay", 100) Opt("SendKeyDownDelay", 100) Opt("MouseClickDelay", 10) #cs ---------------------------------------------------------------------------- Funcs #ce ---------------------------------------------------------------------------- ;-Beendet Bot und Schreibt in Verlauf.log Datei rein, wann Bot beendet wurde Func _End() FileWrite($LogFile, "---" & @CRLF & "Beendet:" & @CRLF & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & "----------------------------------" & @CRLF & @CRLF) FileClose($LogFile) Exit EndFunc ;==>_End ;-Schreibt in Verlauf.log Datei rein, Wann Bot gestartet wurde Func _Hide() WinSetState($hWnd, "", @SW_HIDE) EndFunc ;==>_Hide Func _Show() WinSetState($hWnd, "", @SW_SHOW) EndFunc ;==>_Show Func _Run() If $LogFile = -1 Then MsgBox(0, "Not Found", "No file called <Verlauf> found") Exit EndIf FileWrite($LogFile, "-----Datum & Uhrzeit-----" & @CRLF & "Gestartet:" & @CRLF & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF) EndFunc ;==>_Run Func RS($min, $max) Sleep(Random($min, $max)) EndFunc ;==>RS ;-Lässt Bot auf AN/AUS Hotkey Pausieren Func _Pause() $Paused = Not $Paused While $Paused Sleep(100) ToolTip('Script is "Paused"', 0, 0) WEnd ToolTip("Script is running") If Not WinActivate("Guild Wars") Then WinActivate("Guild Wars") EndIf Sleep(2000) EndFunc ;==>_Pause Func _VisitUs() _RunDOS("start http://www.elitepvpers.de/forum/guild-wars/") EndFunc ;==>_VisitUs Func _Anpassen() WinMove($hWnd, "", 0, 0, 1024, 768) EndFunc ;==>_Anpassen Func _Update() InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20Dunham/update.ini", @ScriptDir & "/data/update.ini") While @InetGetActive TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16) Sleep(250) WEnd MsgBox(0, "Heruntergeladen:", @InetGetBytesRead & " Bytes") MsgBox(0, "Update", "Update erfolgreich durchgeführt") EndFunc ;==>_Update Func _MakeLong($LoWord, $HiWord) Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF)) EndFunc ;==>_MakeLong Func _MouseClick($hWnd, $button, $x, $y, $times = 1, $delay = 15) ; Use the relative coords to the client area of the active window If $hWnd = 0 Then SetError(-1) Return EndIf Local $ix Local $lParam = _MakeLong($x, $y) Local $user32 = DllOpen("user32.dll") $button = StringLower($button) If $button = "left" Then For $ix = 1 To $times DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", $lParam) ; Move Sleep(100) DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 1, "long", $lParam) ; Down Sleep(100) DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", $lParam) ; Up Sleep(100) If $ix < $times Then Sleep($delay) Next ElseIf $button = "right" Then For $ix = 1 To $times DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", $lParam) ; Move Sleep(100) DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x204, "int", 2, "long", $lParam) ; Down Sleep(100) DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x205, "int", 0, "long", $lParam) ; Up Sleep(100) If $ix < $times Then Sleep($delay) Next Else SetError(-2) If $user32 <> -1 Then DllClose($user32) Return EndIf If $user32 <1>_MouseClick Func _IdentAllItems() ControlSend($hWnd, "", "", "{.}") Sleep(500) For $iy = $Slot1_y To $Slot1_y + 140 Step 45 For $ix = $Slot1_x To $Slot1_x + 165 Step 40 ControlClick($hWnd, "", "", "left", 2, $ident_x, $ident_y) Sleep(100) _MouseClick($hWnd, "left", $ix, $iy, 1, 100) Next Next ControlSend($hWnd, "", "", "{.}") EndFunc ;==>_IdentAllItems Func _DeathCheck() If _memoryread($memdeath, $hprocess) = 1 Then $GUI_TODE = $GUI_TODE + 1 GUICtrlSetData($LBL_ANZAHL_TODE, $GUI_TODE) ;-Disable Deathcheck AdlibDisable() ;-Resign ControlSend($hWnd, "", "", "{-}") Sleep(500) ControlSend($hWnd, "", "", "resign") Sleep(1000) ControlSend($hWnd, "", "", "{enter}") Sleep(5000) ;-Wait until we're Back to Lutardis While _memoryread($memmap, $hprocess) <0>_DeathCheck #cs ---------------------------------------------------------------------------- Main Part / Haupt Teil #ce ---------------------------------------------------------------------------- Func _Starten() For $runs = 1 To 10 $GUI_RUNS = $GUI_RUNS + 1 ;-Hardmode ControlClick($hWnd, "", "", "left", 1, 878, 45) ;-Zum Ausgang PrepMoveTo() ;-Norden If CheckArea(-10384, 2594) Then MoveTo(1, -10066, 2574) MoveTo(1, -9669, 2371) MoveTo(1, -9539, 2117) MoveTo(1, -9533, 1807) MoveTo(1, -9582, 1231) MoveTo(1, -9600, 824) MoveTo(1, -9517, 571) MoveTo(1, -9274, 370) MoveTo(1, -8872, 331) MoveTo(1, -8630, 485) MoveTo(1, -8502, 793) MoveTo(1, -8343, 1071) MoveTo(1, -7994, 1417) ;-Mitte ElseIf CheckArea(-10486, 1494) Or CheckArea(-10521, 1708) Then MoveTo(1, -10338, 1204) MoveTo(1, -10228, 770) MoveTo(1, -9785, 521) MoveTo(1, -9031, 417) MoveTo(1, -8443, 884) MoveTo(1, -7895, 1566) ;-Süden ElseIf CheckArea(-10437, -747) Then MoveTo(1, -9923, -727) MoveTo(1, -9595, -337) MoveTo(1, -9524, 143) MoveTo(1, -9179, 427) MoveTo(1, -8727, 511) MoveTo(1, -8355, 957) MoveTo(1, -7812, 1599) ;-No Valid Spawnpoint => Exit Else ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f", _memoryread($memx, $hprocess, 'float'), _memoryread($memy, $hprocess, 'float'))) Exit EndIf KeepMoveTo() While _memoryread($memmap, $hprocess) <> 1 Sleep(500) WEnd RS(4000, 6000) ;-Zum Boss laufen MoveTo(1, -7617.767578125 + (Random(-6, 6)), 4035.77172851563 + (Random(-6, 6))) MoveTo(1, -7730.6279296875 + (Random(-6, 6)), 4716.1865234375 + (Random(-6, 6))) MoveTo(1, -8598.0859375 + (Random(-6, 6)), 5642.6533203125 + (Random(-6, 6))) MoveTo(1, -9614.71875 + (Random(-6, 6)), 6762.513671875 + (Random(-6, 6))) MoveTo(1, -10126.53125 + (Random(-6, 6)), 7795.6630859375 + (Random(-6, 6))) MoveTo(1, -10521.8310546875 + (Random(-6, 6)), 8238.064453125 + (Random(-6, 6))) MoveTo(1, -11184.685546875 + (Random(-6, 6)), 8550.6669921875 + (Random(-6, 6))) MoveTo(1, -11520.001953125 + (Random(-6, 6)), 8927.998046875 + (Random(-6, 6))) Sleep(3000) StopMoveTo() AdlibEnable("_DeathCheck") ;-Boss anwählen und töten KeySend("c") Sleep(350) KeySend("1") RS(2800, 3200) KeySend("2") RS(2800, 3200) KeySend("3") Sleep(1000 * 10) KeySend("2") Sleep(1000) $time = TimerInit() While _memoryread($memnpcidselect, $hprocess) <0> 45000 Then ControlSend($hWnd, "", "", "{-}") Sleep(500) ControlSend($hWnd, "", "", "resign") Sleep(1000) ControlSend($hWnd, "", "", "{enter}") Sleep(5000) While _memoryread($memmap, $hprocess) <0> 0 KeySend("o") RS(350, 400) ControlSend($hWnd, "", "", "{space}") If TimerDiff($time2) > 7000 Then ExitLoop WEnd Sleep(1000) ;-Resign ControlSend($hWnd, "", "", "{-}") Sleep(500) ControlSend($hWnd, "", "", "resign") Sleep(1000) ControlSend($hWnd, "", "", "{enter}") Sleep(5000) ;-Wait until we're Back to Lutardis While _memoryread($memmap, $hprocess) <> 0 ControlClick($hWnd, "", "", "left", 1, 507, 388) Sleep(500) WEnd RS(2000, 4000) GUICtrlSetData($LBL_ANZAHL_RUNS, $GUI_RUNS) Next ;-Verkaufen PrepMoveTo() ;-Norden If CheckArea(-10384, 2594) Then MoveTo(1, -11278, 2520) MoveTo(1, -11440, 1923) MoveTo(1, -11335, 591) MoveTo(1, -11338, -737) ;-Mitte ElseIf CheckArea(-10486, 1494) Or CheckArea(-10521, 1708) Then MoveTo(1, -10663, 360) MoveTo(1, -11292, 4) MoveTo(1, -11343, -727) ;-Süden ElseIf CheckArea(-10437, -747) Then MoveTo(1, -10820, -722) MoveTo(1, -11254, -828) Else ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f", _memoryread($memx, $hprocess, 'float'), _memoryread($memy, $hprocess, 'float'))) Exit EndIf Sleep(1000) StopMoveTo() _IdentAllItems() KeySend("v") RS(350, 400) ControlSend($hWnd, "", "", "{space}") RS(2000, 3000) ;-Auf Verkaufen Clicken und Items verkaufen ControlClick($hWnd, "", "", "left", 1, 720, 423) RS(1000, 2000) For $clicks = 1 To 20 ControlClick($hWnd, "", "", "left", 1, 862, 702) Sleep(500) Next RS(1000, 2000) ControlSend($hWnd, "", "", "{esc}") KeySend("G") Sleep(350) ControlClick($hWnd, "", "", "left", 1, 274, 54) While _memoryread($memmap, $hprocess) <> 0 Sleep(500) WEnd Sleep(2000) ControlClick($hWnd, "", "", "left", 1, 274, 54) While _memoryread($memmap, $hprocess) <0>_Starten #cs ---------------------------------------------------------------------------- GUI #ce ---------------------------------------------------------------------------- _Run() #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("uLtra eMt boT v4.9 by Itami & aLasca cooRp 09", 633, 454, 193, 115) GUISetBkColor(0xFFFFFF) $Pic1 = GUICtrlCreatePic(@ScriptDir & "\data\GUI_Eve.jpg", 0, 0, 300, 452, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Edit1 = GUICtrlCreateEdit("", 304, 8, 321, 145) GUICtrlSetData(-1, StringFormat("Hotkeys:\r\n-----------\r\nEnde/End: Bot Beenden\r\n\r\nPause: Bot Pausieren\r\n\r\nPfeiltaste Runter: Guild Wars verstecken\r\n\r\nPfeiltaste Rauf: Guild Wars anzeigen")) $Anpassen = GUICtrlCreateButton("Anpassen", 400, 320, 97, 25, 0) $VisitUs = GUICtrlCreateButton("Visit Us", 400, 280, 97, 25, 0) $Update = GUICtrlCreateButton("Update", 400, 360, 97, 25, 0) $Starten = GUICtrlCreateButton("Starten", 400, 400, 97, 25, 0) $Statistik = GUICtrlCreateLabel("Statistik:", 424, 168, 54, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("---------------", 416, 184, 64, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $LBL_Tode = GUICtrlCreateLabel("Tode:", 408, 208, 37, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $LBL_Runs = GUICtrlCreateLabel("Runs:", 408, 232, 37, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $LBL_ANZAHL_TODE = GUICtrlCreateLabel("0", 464, 209, 59, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $LBL_ANZAHL_RUNS = GUICtrlCreateLabel("0", 464, 232, 59, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE _End() Exit Case $Anpassen _Anpassen() Case $Update _Update() Case $VisitUs _VisitUs() Case $Starten While True _Starten() WEnd EndSwitch WEnd File scan http://www.virustotal.com/de/analisis/e ... 0607e04476 |
Author: | nickobelenus [ February 9th, 2009, 7:05 pm ] |
Post subject: | |
ummm i could be wrong but the files are all in dutch and im a silly american that can only read english =) if im wrong just tell me so but i cant read the read me file lol |
Author: | traxvar [ April 21st, 2009, 11:45 pm ] |
Post subject: | |
Missing tt6.au3 |
Page 1 of 1 | All times are UTC - 8 hours |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |