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