Register for your free account! | Forgot your password?

You last visited: Today at 13:22

  • Please register to post and access all features, it's quick, easy and FREE!

 

wo liegt der fehler

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 2
Received Thanks: 0
wo liegt der fehler

das script startet aber joint das spiel nicht weil er die positionen nicht findet
kenne mich nicht so aus mit scripts wäre nett wenn jemand helfen könnnte
auflösung 1920x1080


[IMG][/IMG]

Code:
;=========== DO NOT TOUCH ===========;
 #RequireAdmin
 #include <GUIConstantsEx.au3>
 #include <StaticConstants.au3>
 #include <WindowsConstants.au3>
 #include <SimpleTesseractColor.au3>
 #include <ScreenCapture.au3>
 Opt('MouseCoordMode', 2)
 Opt('PixelCoordMode', 2)
 

;GUI Predeclare to prevent firing the Case statements
 Global $mFile,$mOptions,$lblRun,$lblLocation,$lblStatus,$lblLast,$lblRuntime,$lblGold,$lblCellars,$lblStats,$mAutoUpdate,$SettingsGUI,$Settings,$tsSettings,$grpgameAutoStart,$lblgameDiabloIIILoc,$txtgameDiabloIIILoc,$lblgamePassword,$txtgamePassword,$cbgameAutoStart,$btngameDiabloIIILoc,$tsLooting,$grpLoot,$etlootCustom,$cblootSet,$cblootLegendary,$cblootRare,$cblootMagic,$cblootCustom,$tsStash,$grpStashing,$cbstashSet,$cbStashLegendary,$cbstashRare,$cbstashMagic,$cbStashTomes,$cbStashGems,$txtStashMin, $tsVendoring,$grpVendoring,$cbvendorRare,$cbvendorMagic,$cbvendorLegendary,$cbvendorSet,$cmbvendorRows,$lblVendorRow,$cbvendorAll, $lblVendorCol,$cmbVendorColumns,$tsSkills,$grpSkills,$txtSkill1,$txtSkill2,$txtSkill3,$txtSkill4,$lblskill1,$lblSkill2,$lblSkill3, $lblSkill4,$cbCellarDetectScreenShots, $btnSave,$grpAdd,$txtAddMove,$txtAddManageLoot, $lblAddManageLoot, $txtAddDPS, $lblAddDPS,$cbAddGoldOnly, $lbltimingGameLoad, $lbltimingCellarClick, $lbltimingWormHole, $lbltimingMiddleDoor, $lbltimingAbort, $lbltimingTP, $lbltimingLoot, $lbltimingLootRun, $txttimingGameLoad, $txttimingWormHole, $txttimingTP, $txttimingCellarClick, $txttimingMiddleDoor, $txttimingLootRun, $txttimingLoot, $txttimingAbort
 
Global $size = WinGetClientSize("[CLASS:D3 Main Window Class]"), $Kill = ProcessList("AutoIt3_x64.exe"), $x_ratio, $y_ratio, $AddDPS = 0,$attackTime = 0, $hFont = 0, $title, $Paused, $Go = 0, $i = 0, $gX = 0, $gY = 0, $GemCount = 0, $LegendaryCount = 0, $SetCount = 0, $RareCount = 0, $deathCount = 0, $MagicCount = 0, $repairCount = 0, $closedcellarCount = 0, $cellarCount = 0, $countMissedCellar = 0, $MissedCellarCountPercent = 0, $t = TimerInit(), $rt = 0, $run = 0, $yellow = 0xFFF000, $red = 0xD90000, $StartingGold = 0,$AccumulatedGold = 0,$GPH = 0, $OpenCellarAvg = 0, $OpenCellarSec = 0,$ClosedCellarAvg, $ClosedCellarSec = 0,$CellCoord = 0, $c = 0, $RunsPerHour = 0,$closedCellarCountPercent = 0, $repairCountPercent = 0, $deathsCountPercent = 0, $cellarCountPercent = 0, $settingsINI = "Settings.ini"
 
Global $gems[8] = ["Ru1.png", "Ru2.png", "Em1.png", "Em2.png", "To1.png", "To2.png", "Am1.png", "Am2.png"]
 
For $i = 1 To $Kill[0][0]
     $CurrentPID = @AutoItPID
     If $CurrentPID < $Kill[$i][1] or $CurrentPID > $Kill[$i][1] Then
     ProcessClose($Kill[$i][1])
     EndIf
  Next
 
$pngLoc = @ScriptDir & "\pics\" & @DesktopWidth & "x" & @DesktopHeight& "\"
 
If Not FileExists($pngLoc & "MainMenu.png") Then
     MsgBox(16, "Fatal Error", "FATAL ERROR: Cannot find: " & $pngLoc & "MainMenu.png" & @CRLF & "Make sure your desktop resolution is either 1600x900 or 1920x1080")
     Exit
 EndIf
 
If @OSArch = "X64" Then DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
 If @OSArch = "X64" And Not @AutoItX64 Then MsgBox(16, "ERROR", "Why aren't you running the 64-bit AutoIt??? Expect bugs!")
 
;GUI Title Bar
 For $i = 0 To Random(0, 7, 1)
     $title &= Chr(Random(97, 122, 1))
 Next
 For $i = 0 To Random(5, 10, 1)
     $title &= Chr(Random(65, 90, 1))
 Next
 $title &= " "
 ;=================================
 
;AutoUpdate Version
 $ver = "8==D.0"
 $VersionsInfo = "http://bit.ly/LF1Rp6"
 $oldVersion = IniRead("updater.ini", "Version", "Version", $ver)
 $newVersion = "0.0"
 $AutoUpdate = 1
 ;==================================================
 
$totalItems = 1 ;Number of items in the pick array
 ;$currentArrayItem = 0x
 Global $pick[$totalItems]   ;DONT CHANGE THIS
 
;Cellar Detection
 Global $cellarCoordx[6] = [255, 280, 175, 265, 315, 600] 
Global $cellarCoordy[6] = [290, 302, 305, 340, 314, 435]
 $cellarCheckSleep = 160
 $Screenshot = 1
 
;AutoStart
 $gameDiabloIIILoc = "C:\" ;Location of Diablo 3 executable
 $gameAutoStart = 0 ; Set this to 1 to start game from desktop or recover from closed game
 $gameStartTime = 9000  ;Change depending on computer/internet speed
 $gamePassword = "Your Password" ;Symbols go in brackets "Password1{!}"
 $gameExecutable = "Diablo III.exe"
 
;Change to match your abilities (1-4 by default)z
 $Skill1 = "1"
 $Skill2 = "2"
 $Skill3 = "3"
 $Skill4 = "4"
 ;==================================================
 
;Looting
 $LootSet = 1 ;1 if you want to pick up Set
 $LootLegendary = 1;1 if you want to pick up Legendaries
 $LootRare = 1 ;1 if you want to pick up Rares
 $LootMagic = 1 ;1 if you want to pick up Magic
 $LootCustom = 0 ;1 if you want to pick up Custom Items
 $LootGoldOnly = 0 ; 1 if you want to not loot anything but gold
 ;==================================================
 
;Stashing
 $StashLegendary = 1 ;1 if you want to store Legendary items in the stash
 $StashSet = 1 ;1 if you want to store Set items in the stash
 $StashRare = 1 ;1 if you want to store Rare items in the stash
 $StashMagic = 0 ;1 if you want to store Magic items in the stash
 $StashTomes = 1 ;1 if you want to store Tomes items in the stash
 $StashGems = 1 ;1 if you want to store Gems items in the stash
 $StashMinimumILvl = 63
 ;==================================================
 
;Vendoring
 $VendorSet = 0
 $VendorLegendary = 0
 $VendorRare = 0 ;1 if you want to vendor Rares
 $VendorMagic = 1 ;1 if you want to vendor Magic
 $vendorRows = 6 ;# of rows to vendor, starting from the top (default = 5: bottom row is safe)
 $vendorColumns = 10 ;# of columns to vendor, starting from left
 $VendorAll = 1 ;Vendors everything but identified items
 ;==================================================
 
;Additional
 $AddDPS = 0 ;Time (in s) the script will shoot sarkoth with the right button
 $AddManageLoot = 10 ;Runs till Stash
 ;==================================================
 
;Timing
 $timingMiddleDoor = 2200 ;time (in ms) to wait to use skill archon
 $timingCellarClick = 750 ;time (in ms) it takes to run into the cellar
 $timingWormHole = 1900 ;time (in ms) to wait to end the teleporting to the cellar
 $timingAbort = 300 ;time (in ms) to wait to cast abort skills, decrease if you have high attack speed
 $timingGameLoad = 5000 ;Time (in ms) the script waits for the game to load before it starts pathfinding. Slow this down for slower hard drives
 $timingTP = 6000;Time (in ms) the script waits for teleport before exiting the game
 $timingLoot = 800;Time (in ms) the script waits before each loot attempt
 $timingLootRun = 600;Time (in ms) the script runs towards sarkoth dead body
 
HotKeySet("=", "Begin") ;script toggled on/off by pressing =
 HotKeySet("{PAUSE}", "TogglePause") ;script toggle pause by pressing Pause/Break key
 HotKeySet("x", "Stop") ;script stopped by pressing x
 
Call("ReadINI")
 
$mLootIn = $AddManageLoot
 
 If $AddDPS = 0 then 
        MsgBox(16, "First Run", "Edit your settings.")
     EndIf
     
If $AutoUpdate = 1 Then DoUpdate()
 If $gameAutoStart = 1 Then 
   Call("GameAutostart")
 Else
    $size = WinGetClientSize("[CLASS:D3 Main Window Class]")
    If $size = 0 Then
         MsgBox(16, "Error", "Diablo III is not running, cannot grab resolution!" & @CRLF & "Exiting...")
         Exit
    EndIf
    $x_ratio = $size[0] / 1920
    $y_ratio = $size[1] / 1080
 EndIf
    
 MainGUI()
 Func MainGUI()
 
$frmBot = GUICreate($title & $ver & " - Updating", 270, 145, Round(0 * $x_ratio), Round(0 * $y_ratio), -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), 0)
 GUISetBkColor(0xC0C0C0)
 $mFile = GUICtrlCreateMenu("File")
 $mStart = GUICtrlCreateMenuItem("Start", $mFile)
 $mOptions = GUICtrlCreateMenu("Options")
 $mSettings = GUICtrlCreateMenuItem("Settings", $mOptions)
 $mAutoUpdate = GUICtrlCreateMenuItem("Auto Update", $mOptions)
 GUISetCheck($AutoUpdate,$mAutoUpdate)
 
$lblRun = GUICtrlCreateLabel("Run Number: 0 - Runs Per Hour: 0", 4, 0, 280, 24)
 GUICtrlSetFont(-1, 10, 600, 0, "Segoe UI")
 GUICtrlSetColor(-1, 0xFF0000)
 $lblLocation = GUICtrlCreateLabel("Location: Main Menu", 12, 20, 260, 17)
 $lblStatus = GUICtrlCreateLabel("Status: ", 12, 35, 260, 17)
 $lblRuntime = GUICtrlCreateLabel("Total Runtime: 0 hours, 0 minutes", 12, 50, 260, 17)
 $lblLast = GUICtrlCreateLabel("Open Cellar Avg: 0s - Closed Cellar Avg: 0s", 12, 65, 260, 17)
 $lblCellars = GUICtrlCreateLabel("Cellars Open: 0 (0%) - Cellars Closed: 0 (0%)", 12, 80, 260, 17)
 $lblStats = GUICtrlCreateLabel("Deaths: 0 (0%) - Missed Cellars: 0 (0%)", 12, 95, 260, 17)
 $lblGold = GUICtrlCreateLabel("0 Per Hour - Accumulated Gold: 0", 12, 110, 260, 17)
 

GUISetState()
 
While 1
 
$aMsg = GUIGetMsg(1) ; Use advanced parameter to get array
     Switch $aMsg[1] ; check which GUI sent the message
         Case $frmBot
             Switch $aMsg[0]
                 Case $mStart
                     Call("Begin")
                 Case $mSettings
                     GUICtrlSetState($mSettings, $GUI_DISABLE)
                     SettingsGUI()
                 Case $mAutoUpdate
                     If IsChecked($mAutoUpdate) Then
                     GUICtrlSetState($mAutoUpdate,$GUI_UNCHECKED)
                 Else
                     GUICtrlSetState($mAutoUpdate,$GUI_CHECKED)
                 EndIf
                     IniWrite($settingsINI, "Additional", "Auto Update", ConvertFlag($mAutoUpdate))
                  EndSwitch
         Case $SettingsGUI
           Switch $aMsg[0] ; Now check for the messages for $hGUI2
             Case $cbStashSet
             If IsChecked($cbStashSet) Then GUICtrlSetState($cbvendorSet,$GUI_UNCHECKED)
         Case $cbStashLegendary
             If IsChecked($cbStashLegendary) Then GUICtrlSetState($cbvendorLegendary,$GUI_UNCHECKED)
         Case $cbStashRare
             If IsChecked($cbStashRare) Then GUICtrlSetState($cbvendorRare,$GUI_UNCHECKED)
         Case $cbStashMagic
             If IsChecked($cbStashMagic) Then GUICtrlSetState($cbvendorMagic,$GUI_UNCHECKED)
         Case $cbvendorSet
             If IsChecked($cbvendorSet) Then GUICtrlSetState($cbStashSet,$GUI_UNCHECKED)
         Case $cbvendorLegendary
             If IsChecked($cbvendorLegendary) Then GUICtrlSetState($cbStashLegendary,$GUI_UNCHECKED)
         Case $cbVendorRare
             If IsChecked($cbvendorRare) Then GUICtrlSetState($cbStashRare,$GUI_UNCHECKED)
         Case $cbVendorMagic
             If IsChecked($cbvendorMagic) Then GUICtrlSetState($cbStashMagic,$GUI_UNCHECKED)
         Case $cbgameAutoStart
             If IsChecked($cbgameAutoStart) And FileExists(GUICtrlRead($txtgameDiabloIIILoc) & "Diablo III.exe") = 0 Then
                 GUICtrlSetState($cbgameAutoStart,$GUI_UNCHECKED)
                 EndIF
         Case $txtSkill1
             SkillAlphaNum($txtSkill1,$Skill1,0)
         Case $txtSkill2
             SkillAlphaNum($txtSkill2,$Skill2,0)
         Case $txtSkill3
             SkillAlphaNum($txtSkill3,$Skill3,0)
         Case $txtSkill4
             SkillAlphaNum($txtSkill4,$Skill4,0)
         Case $btngameDiabloIIILoc
             $GUIfileSelect = FileSelectFolder ("Diablo III Executable Location","")
             If Not @Error And FileExists($GUIfileSelect & "\Diablo III.exe") = 0 Then
                 $GUIwrongLocation = MsgBox ( "6", "Wrong Location", "Select the folder with the Diablo III.exe!")
                 If $GUIwrongLocation = 2 Or 11 Then
                     GUISetCheck(0,$cbgameAutoStart)
                     GUIUpdate($txtgameDiabloIIILoc,$GUIfileSelect)
                 EndIf
             ElseIf FileExists($GUIfileSelect & "\Diablo III.exe") = 1 Then
             GUIUpdate($txtgameDiabloIIILoc,$GUIfileSelect & "\")
             GUISetCheck(1,$cbgameAutoStart)
             Endif
         Case $btnSave
             Call("SaveINI")
             GUIDelete($SettingsGUI)
             GUICtrlSetState($mSettings, $GUI_ENABLE)
     EndSwitch
     EndSwitch
     Call("RestartRun")
 WEnd
 
EndFunc   ;==>MainGUI
 
Func SettingsGUI()
 
$SettingsGUI = GUICreate($title & $ver, 443, 195, Round(0 * $x_ratio), Round(0 * $y_ratio), -1,$WS_EX_TOPMOST, 0)
 GUISetIcon(@ScriptDir & "\Setting-icon.ico")
 $Settings = GUICtrlCreateTab(0, 8, 441, 185)
 GUICtrlSetResizing($Settings, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
 $tsSettings = GUICtrlCreateTabItem("Auto Start")
 $grpgameAutoStart = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $lblgameDiabloIIILoc = GUICtrlCreateLabel("Diablo III Location:", 12, 83, 93, 17)
 $txtgameDiabloIIILoc = GUICtrlCreateInput($gameDiabloIIILoc, 116, 81, 105, 21)
 $lblgamePassword = GUICtrlCreateLabel("Password:", 12, 116, 53, 17)
 $txtgamePassword = GUICtrlCreateInput($gamePassword, 116, 113, 105, 21)
 $cbgameAutoStart = GUICtrlCreateCheckbox("Auto Start", 12, 49, 73, 17)
 $btngameDiabloIIILoc = GUICtrlCreateButton("Browse", 224, 79, 49, 23, 0)
 GUICtrlSetState($txtgameDiabloIIILoc, $GUI_DISABLE)
 
GUICtrlCreateGroup("", -99, -99, 1, 1)
 $tsLooting = GUICtrlCreateTabItem("Looting")
 $grpLoot = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $etlootCustom = GUICtrlCreateEdit("",148, 73, 121, 65)
 $cblootSet = GUICtrlCreateCheckbox("Set Items", 12, 49, 81, 17)
 $cblootLegendary = GUICtrlCreateCheckbox("Legendary Items", 12, 73, 113, 17)
 $cblootRare = GUICtrlCreateCheckbox("Rare Items", 12, 97, 81, 17)
 $cblootMagic = GUICtrlCreateCheckbox("Magic Items", 12, 121, 81, 17)
 $cblootCustom = GUICtrlCreateCheckbox("Custom Loot", 149, 49, 81, 17)
 
GUICtrlCreateGroup("", -99, -99, 1, 1)
 $tsstash = GUICtrlCreateTabItem("Stashing")
 $grpStashing = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $cbstashSet = GUICtrlCreateCheckbox("Set Items", 12, 49, 97, 17)
 $cbstashLegendary = GUICtrlCreateCheckbox("Legendary Items", 12, 73, 97, 17)
 $cbstashRare = GUICtrlCreateCheckbox("Rare Items", 12, 97, 97, 17)
 $cbstashMagic = GUICtrlCreateCheckbox("Magic Items", 12, 121, 96, 17)
 $cbStashGems = GUICtrlCreateCheckbox("Gems", 141, 49, 57, 17)
 $cbStashTomes = GUICtrlCreateCheckbox("Tomes", 141, 73, 57, 17)
 $lblStashIlvl = GUICtrlCreateLabel("Minimum ILvl:", 120, 124, 68, 17)
 $txtStashMin = GUICtrlCreateInput($StashMinimumILvl, 192, 121, 41, 21)
 GUICtrlSetState($txtStashMin, $GUI_DISABLE)
 
$tsvendoring = GUICtrlCreateTabItem("Vendoring")
 $grpvendoring = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $cbvendorRare = GUICtrlCreateCheckbox("Rare Items", 12, 97, 97, 17)
 $cbvendorMagic = GUICtrlCreateCheckbox("Magic Items", 12, 121, 97, 17)
 $cbvendorLegendary = GUICtrlCreateCheckbox("Legendary Items", 12, 73, 97, 17)
 $cbvendorSet = GUICtrlCreateCheckbox("Set Items", 12, 49, 97, 17)
 $cbvendorAll = GUICtrlCreateCheckbox("Vendor All", 141, 49, 97, 17)
 $cmbvendorRows = GUICtrlCreateCombo("", 194, 73, 41, 25)
 GUICtrlSetData(-1, "1|2|3|4|5|6", $VendorRows)
 $lblvendorRow = GUICtrlCreateLabel("Rows:", 141, 76, 34, 17)
 $lblvendorCol = GUICtrlCreateLabel("Columns:", 141, 108, 47, 17)
 $cmbvendorColumns = GUICtrlCreateCombo("", 194, 105, 41, 25)
 GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10", $VendorColumns)
 
GUICtrlCreateGroup("", -99, -99, 1, 1)
 $tsSkills = GUICtrlCreateTabItem("Skills")
 $grpSkills = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $txtSkill1 = GUICtrlCreateInput($Skill1, 56, 49, 41, 21)
 GUICtrlSetState($txtSkill1, $GUI_DISABLE)
 $txtSkill2 = GUICtrlCreateInput($Skill2, 56, 73, 41, 21)
 GUICtrlSetState($txtSkill2, $GUI_DISABLE)
 $txtSkill3 = GUICtrlCreateInput($Skill4, 56, 97, 41, 21)
 GUICtrlSetState($txtSkill3, $GUI_DISABLE)
 $txtSkill4 = GUICtrlCreateInput($Skill4, 56, 121, 41, 21)
 GUICtrlSetState($txtSkill4, $GUI_DISABLE)
 $lblskill1 = GUICtrlCreateLabel("Skill 1:", 12, 52, 35, 17)
 $lblSkill2 = GUICtrlCreateLabel("Skill 2:", 12, 76, 35, 17)
 $lblSkill3 = GUICtrlCreateLabel("Skill 3:", 12, 100, 35, 17)
 $lblSkill4 = GUICtrlCreateLabel("Skill 4:", 12, 124, 35, 17)
 
GUICtrlCreateGroup("", -99, -99, 1, 1)
 $tsTiming = GUICtrlCreateTabItem("Timing")
 $grpTiming = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $lbltimingGameLoad = GUICtrlCreateLabel("Game Load:", 12, 52, 62, 17)
 $lbltimingTP = GUICtrlCreateLabel("Town Portal:", 12, 76, 64, 17)
 $lbltimingWormHole = GUICtrlCreateLabel("Wormhole:", 12, 100, 55, 17)
 $lbltimingCellarClick = GUICtrlCreateLabel("Cellar Click:", 12, 124, 59, 17)
 $lbltimingAbort = GUICtrlCreateLabel("Abort:", 139, 52, 32, 17)
 $lbltimingMiddleDoor = GUICtrlCreateLabel("Middle Door:", 139, 76, 64, 17)
 $lbltimingLootRun = GUICtrlCreateLabel("Loot Run:", 139, 100, 51, 17)
 $lbltimingLoot = GUICtrlCreateLabel("Loot:", 139, 124, 28, 17)
 $txttimingGameLoad = GUICtrlCreateInput("2000", 80, 49, 41, 21)
 $txttimingTP = GUICtrlCreateInput("5000", 80, 73, 41, 21)
 $txttimingWormHole = GUICtrlCreateInput("1375", 80, 97, 41, 21)
 $txttimingCellarClick = GUICtrlCreateInput("750", 80, 121, 41, 21)
 $txttimingAbort = GUICtrlCreateInput("255", 206, 49, 41, 21)
 $txttimingMiddleDoor = GUICtrlCreateInput("2200", 206, 73, 41, 21)
 $txttimingLootRun = GUICtrlCreateInput("300", 206, 97, 41, 21)
 $txttimingLoot = GUICtrlCreateInput("800", 206, 121, 41, 21)
 

GUICtrlCreateGroup("", -99, -99, 1, 1)
 $tsCellarDetect = GUICtrlCreateTabItem("Cellar Detect")
 $grpCellarDetect = GUICtrlCreateGroup("", 4, 33, 273, 121)
 $lblCellarDetectX = GUICtrlCreateLabel("X Coordinates:", 12, 52, 73, 17)
 $lblCellarDetectY = GUICtrlCreateLabel("Y Coordinates:", 12, 76, 73, 17)
 $lblCellarDetectTime = GUICtrlCreateLabel("Check Time:", 12, 100, 64, 17)
 $cbCellarDetectScreenShots = GUICtrlCreateCheckbox("Screen Shots", 12, 124, 97, 17)
 $txtCellarDetectXCoords = GUICtrlCreateInput("255, 175, 315, 265, 280, 600", 96, 49, 169, 21)
 GUICtrlSetState($txtCellarDetectXCoords, $GUI_DISABLE)
 $txtCellarDetectYCoords = GUICtrlCreateInput("290, 305, 314, 340, 302, 435", 96, 73, 169, 21)
 GUICtrlSetState($txtCellarDetectYCoords, $GUI_DISABLE)
 $txtCellarDetectTime = GUICtrlCreateInput("155", 96, 97, 41, 21)
 GUICtrlCreateGroup("", -99, -99, 1, 1)
 
GUICtrlCreateTabItem("")
 $btnSave = GUICtrlCreateButton("Save", 352, 160, 75, 25, 0)
 $grpAdd = GUICtrlCreateGroup("Additional", 280, 33, 153, 121)
 $lblAddManageLoot = GUICtrlCreateLabel("Manage Loot Every:", 288, 76, 100, 17)
 $cbAddGoldOnly = GUICtrlCreateCheckbox("Gold Only", 288, 97, 97, 17)
 $txtAddManageLoot = GUICtrlCreateInput("10", 392, 73, 33, 21)
 $txtAddDPS = GUICtrlCreateInput($AddDPS, 376, 49, 49, 21)
 $lblAddDPS = GUICtrlCreateLabel("DPS:", 288, 52, 29, 17)
 GUICtrlCreateGroup("", -99, -99, 1, 1)
 GUISetState()
 
getCustomKeys()
 UpdateGUI()
 EndFunc ;===SettingsGUI
 

Func ReadINI()
     getCustomkeys()
     $gameAutoStart = IniRead($settingsINI, "Auto Start", "Auto Start", $gameAutoStart)
     $gameDiabloIIILoc = IniRead($settingsINI, "Auto Start", "Game Location", $gameDiabloIIILoc)
     $gamePassword = IniRead($settingsINI, "Auto Start", "Password", $gamePassword)
     $Skill1 = IniRead($settingsINI, "Skills", "Skill1", $Skill1)
     $Skill2 = IniRead($settingsINI, "Skills", "Skill2", $Skill2)
     $Skill3 = IniRead($settingsINI, "Skills", "Skill3", $Skill3)
     $Skill4 = IniRead($settingsINI, "Skills", "Skill4", $Skill4)
     $AddManageLoot = IniRead($settingsINI, "Additional", "Manage Loot", $AddManageLoot)
     $AutoUpdate = IniRead($settingsINI, "Additional", "Auto Update", $AutoUpdate)
     $AddDPS = IniRead($settingsINI, "Additional", "DPS", $AddDPS )
     $LootSet = IniRead($settingsINI, "Looting", "Set", $LootSet)
     $LootLegendary = IniRead($settingsINI, "Looting", "Legendary", $LootLegendary)
     $LootRare = IniRead($settingsINI, "Looting", "Rare", $LootRare)
     $LootMagic = IniRead($settingsINI, "Looting", "Magic", $LootMagic)
     $LootCustom = IniRead($settingsINI, "Looting", "Custom", $LootCustom)
     $LootGoldOnly = IniRead($settingsINI, "Looting", "Gold Only", $LootGoldOnly)
     $StashSet = IniRead($settingsINI, "Stashing", "Set", $StashSet)
     $StashLegendary = IniRead($settingsINI, "Stashing", "Legendary", $StashLegendary)
     $StashRare = IniRead($settingsINI, "Stashing", "Rare", $StashRare)
     $StashMagic = IniRead($settingsINI, "Stashing", "Magic", $StashMagic)
     $StashGems = IniRead($settingsINI, "Stashing", "Gems", $StashGems)
     $StashTomes = IniRead($settingsINI, "Stashing", "Tomes", $StashTomes)
     $StashMinimumILvl = IniRead($settingsINI, "Stashing", "Minimum ILvl", $StashMinimumILvl)
     $VendorSet = IniRead($settingsINI, "Vendoring", "Set", $VendorSet)
     $VendorLegendary = IniRead($settingsINI, "Vendoring", "Legendary", $VendorLegendary)
     $VendorRare = IniRead($settingsINI, "Vendoring", "Rare", $VendorRare)
     $VendorMagic = IniRead($settingsINI, "Vendoring", "Magic", $VendorMagic)
     $VendorAll  = IniRead($settingsINI, "Vendoring", "All Items", $VendorAll)
     $vendorRows = IniRead($settingsINI, "Vendoring", "All-Rows", $vendorRows)
     $vendorColumns = IniRead($settingsINI, "Vendoring", "All-Columns", $vendorColumns)
     $timingGameLoad = IniRead($SettingsINI, "Timing", "Game Load", $timingGameLoad)
     $timingWormHole = IniRead($SettingsINI, "Timing", "Wormhole", $timingWormHole)
     $timingTP = Iniread($SettingsINI, "Timing", "Town Portal", $timingTP)
     $timingCellarClick = Iniread($SettingsINI, "Timing", "Cellar Click", $timingCellarClick)
     $timingMiddleDoor = Iniread($SettingsINI, "Timing", "Middle Door", $timingMiddleDoor)
     $timingLootRun = Iniread($SettingsINI, "Timing", "Loot Run", $timingLootRun)
     $timingLoot = Iniread($SettingsINI, "Timing", "Loot", $timingLoot)
     $timingAbort = Iniread($SettingsINI, "Timing", "Abort", $timingAbort)
     $ScreenShot = InIread($SettingsINI, "Cellar Detect", "Screen Shot", $ScreenShot)
 EndFunc   ;==>ReadINI
 
Func UpdateGUI()
 ;GUI Update
 
;Loot
 GUISetCheck($gameAutoStart,$cbgameAutoStart)
 GUISetCheck($LootSet,$cbLootSet)
 GUISetCheck($LootLegendary,$cbLootLegendary)
 GUISetCheck($LootRare,$cbLootRare)
 GUISetCheck($LootMagic,$cbLootMagic)
 GUISetCheck($LootCustom,$cbLootCustom)
 GUISetCheck($LootGoldOnly,$cbAddGoldOnly)
 ;=============================================
 
;Stash
 GUISetCheck($StashSet,$cbStashSet)
 GUISetCheck($StashLegendary,$cbStashLegendary)
 GUISetCheck($StashRare,$cbStashRare)
 GUISetCheck($StashMagic,$cbStashMagic)
 GUISetCheck($StashGems,$cbStashGems)
 GUISetCheck($StashTomes,$cbStashTomes)
 ;=============================================
 
;Vendor
 If Not IsChecked($cbStashSet) Then GUISetCheck($VendorSet,$cbvendorSet)
 If Not IsChecked($cbStashLegendary) Then GUISetCheck($VendorLegendary,$cbvendorLegendary)
 If Not IsChecked($cbStashRare) Then GUISetCheck($VendorRare,$cbVendorRare)
 If Not IsChecked($cbStashMagic) Then GUISetCheck($VendorMagic,$cbVendorMagic)
 GUISetCheck($VendorAll,$cbVendorAll)
 ;=============================================
 
;Cellar Detect
 GUISetCheck($ScreenShot,$cbCellarDetectScreenShots)
 ;=============================================
 

;Misc
 ;Skills
 SkillAlphaNum($txtSkill1,$Skill1,1)
 SkillAlphaNum($txtSkill2,$Skill2,1)
 SkillAlphaNum($txtSkill3,$Skill3,1)
 SkillAlphaNum($txtSkill4,$Skill4,1)
 
;AutoStart
 GUIUpdate($txtgamePassword,$gamePassword)
 GUIUpdate($txtgameDiabloIIILoc,$gameDiabloIIILoc)
 
;Stashing
 GUIUpdate($txtStashMin,$StashMinimumILvl)
 
;Vendoring
 GUIUpdate($cmbVendorColumns,$vendorColumns)
 GUIUpdate($cmbvendorRows,$vendorRows)
 
;Timing
 GUIUpdate($txttimingGameLoad, $timingGameLoad)
 GUIUpdate($txttimingWormHole, $timingWormhole)
 GUIUpdate($txttimingTP, $timingTP)
 GUIUpdate($txttimingCellarClick, $timingCellarClick)
 GUIUpdate($txttimingMiddleDoor, $timingMiddleDoor)
 GUIUpdate($txttimingLootRun, $timingLootRun)
 GUIUpdate($txttimingLoot, $timingLoot)
 GUIUpdate($txttimingAbort, $timingAbort)
 
;Additional
 GUIUpdate($txtAddManageLoot, $AddManageLoot)
 GUIUpdate($txtAddDPS, $AddDPS) 
;=============================================
 EndFunc
 
Func SaveINI()
     FileDelete($settingsINI)
     IniWrite($settingsINI, "Auto Start", "Auto Start", ConvertFlag($cbgameAutoStart))
     IniWrite($settingsINI, "Auto Start", "Game Location", GUICtrlRead($txtgameDiabloIIILoc))
     IniWrite($settingsINI, "Auto Start", "Password", GUICtrlRead($txtgamePassword))
     IniWrite($settingsINI, "Auto Start", "Task Manager Executable Name", $gameExecutable)
     IniWrite($settingsINI, "Skills", "Skill1", GUICtrlRead($txtSkill1))
     IniWrite($settingsINI, "Skills", "Skill2", GUICtrlRead($txtSkill2))
     IniWrite($settingsINI, "Skills", "Skill3", GUICtrlRead($txtSkill3))
    IniWrite($settingsINI, "Skills", "Skill4", GUICtrlRead($txtSkill4))
     IniWrite($settingsINI, "Additional", "Manage Loot", GUICtrlRead($txtAddManageLoot))
     IniWrite($settingsINI, "Additional", "DPS", GUICtrlRead($txtAddDPS))
     IniWrite($settingsINI, "Additional", "Auto Update", ConvertFlag($mAutoUpdate))
     IniWrite($settingsINI, "Looting", "Set", ConvertFlag($cbLootSet))
     IniWrite($settingsINI, "Looting", "Legendary", ConvertFlag($cbLootLegendary))
     IniWrite($settingsINI, "Looting", "Rare", ConvertFlag($cbLootRare))
     IniWrite($settingsINI, "Looting", "Magic", ConvertFlag($cbLootMagic))
     IniWrite($settingsINI, "Looting", "Custom", ConvertFlag($cbLootCustom))
     IniWrite($settingsINI, "Looting", "Gold Only", ConvertFlag($cbAddGoldOnly))
     IniWrite($settingsINI, "Stashing", "Set", ConvertFlag($cbStashSet))
     IniWrite($settingsINI, "Stashing", "Legendary", ConvertFlag($cbStashLegendary))
     IniWrite($settingsINI, "Stashing", "Rare", ConvertFlag($cbStashRare))
     IniWrite($settingsINI, "Stashing", "Magic", ConvertFlag($cbStashMagic))
     IniWrite($settingsINI, "Stashing", "Gems",  ConvertFlag($cbStashGems))
     IniWrite($settingsINI, "Stashing", "Tomes",  ConvertFlag($StashTomes))
     IniWrite($settingsINI, "Stashing", "Minimum ILvl", GUICtrlRead($txtStashMin))
     IniWrite($settingsINI, "Vendoring", "Set", ConvertFlag($cbVendorSet))
     IniWrite($settingsINI, "Vendoring", "Legendary", ConvertFlag($cbVendorLegendary))
     IniWrite($settingsINI, "Vendoring", "Rare", ConvertFlag($cbVendorRare))
     IniWrite($settingsINI, "Vendoring", "Magic", ConvertFlag($cbVendorMagic))
     IniWrite($settingsINI, "Vendoring", "All Items", ConvertFlag($cbVendorAll))
     IniWrite($settingsINI, "Vendoring", "All-Rows", GUICtrlRead($cmbvendorRows))
     IniWrite($settingsINI, "Vendoring", "All-Columns", GUICtrlRead($cmbVendorColumns))
     IniWrite($settingsINI, "Timing", "Game Load", GUICtrlRead($txttimingGameLoad))
     IniWrite($settingsINI, "Timing", "Wormhole", GUICtrlRead($txttimingWormHole))
     IniWrite($settingsINI, "Timing", "Town Portal", GUICtrlRead($txttimingTP))
     IniWrite($settingsINI, "Timing", "Cellar Click", GUICtrlRead($txttimingCellarClick))
     IniWrite($settingsINI, "Timing", "Middle Door", GUICtrlRead($txttimingMiddleDoor))
     IniWrite($settingsINI, "Timing", "Loot Run", GUICtrlRead($txttimingLootRun))
     IniWrite($settingsINI, "Timing", "Loot", GUICtrlRead($txttimingLoot))
     IniWrite($settingsINI, "Timing", "Abort", GUICtrlRead($txttimingAbort))
     IniWrite($SettingsINI, "Cellar Detect", "Screen Shot", ConvertFlag($cbCellarDetectScreenShots))
      saveCustomKeys()
     Call("ReadINI")
 EndFunc   ;==>SaveINI
 
Func GUISetCheck($Flag,$CheckBox)
     If $Flag = 0 Then
         GUICtrlSetState($CheckBox, $GUI_UNCHECKED)
     ElseIf $Flag = 1 Then
         GUICtrlSetState($CheckBox, $GUI_CHECKED)
     EndIf
 EndFunc
 
Func ConvertFlag($CheckBox)
     If GUICtrlRead($Checkbox) = 4 Or GUICtrlRead($Checkbox) = 68 Then
         Return 0
     Else
         Return 1
     EndIf
 EndFunc
 
Func GUIUpdate($CheckBox,$Value)
     GUICtrlSetData($CheckBox, $Value)
 EndFunc
 
Func saveCustomKeys()
     $string = GUICtrlRead($etlootCustom)
     If Not $string = "" Then
         $temp = StringReplace($string, @CRLF, " ")
         $temp = StringStripWS($temp, 7)
         $arr = StringSplit($temp, " ")
 
        For $a = 1 To $arr[0]
             $tempLoc = StringSplit($arr[$a],"|")
             If FileExists($pngLoc & $tempLoc[1] & ".png") Then
             IniWrite($settingsINI, "Custom Items", "Key" & $a , $arr[$a])
             EndIf
         Next
         Return 1
     Else
    If $totalItems < 1 Then 
        $LootCustom = "0"
         GUICtrlSetState($cblootCustom, $GUI_UNCHECKED)
         EndIf
         Return @error
     EndIf
 EndFunc
 
Func getCustomKeys()
     $string = ""
     $var = IniReadSection($settingsINI, "Custom Items")
     If Not @error Then
         $totalItems = $var[0][0]
         If $totalItems > 0 Then
             ReDim $pick[$totalItems]
         EndIf
         For $a = 1 To $totalItems
             $pick[$a-1] = $var[$a][1]
             $string &= $pick[$a-1] & @CRLF
         Next
     Else
         $totalItems = 0
     EndIf
      If $totalItems < 1 Then 
        $LootCustom = "0"
         GUICtrlSetState($cblootCustom, $GUI_UNCHECKED)
     EndIf
     GUICtrlSetData($etlootCustom, $string)
 EndFunc
 
Func IsChecked($control)
  Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
 EndFunc
 
Func SkillAlphaNum($txtSkill,$Skill,$UpdateFlag)
 If $UpdateFlag = 0 Then $temp = GUICtrlRead($txtSkill)
 If $UpdateFlag = 1 Then $temp = $Skill
 $temp = StringStripWS($temp, 8)
 If StringLen($temp) = 1 Then
     If StringRegExp($temp,"[a-zA-Z0-9]") Then
         GUICtrlSetData($txtSkill, $temp)
             Else
         GUICtrlSetData($txtSkill,"1")
     EndIf
 Else
     $temp = StringTrimRight($temp, StringLen($temp)-1)
     GUICtrlSetData($txtSkill, $temp)
     SkillAlphaNum($txtSkill,$Skill,$UpdateFlag)
     EndIf
 EndFunc
 
Func DoUpdate()
     $ini = InetGet($VersionsInfo, @ScriptDir & "\version.ini") ;download version.ini
     If $ini = 0 Then ;was the download of version.ini successful?
         MsgBox(16, "Fatal Error", "The server seems to be offline. No update will be done.")
     Else
         $newVersion = IniRead(@ScriptDir & "\version.ini", "Version", "Version", "") ;reads the new version out of version.ini
         If $newVersion = $oldVersion Then ;compare old and new
             FileDelete(@ScriptDir & "\version.ini")
         Else
             $msg = MsgBox(68, "Update", "A new version is available: " & $newVersion & "! Current version: " & $oldVersion & @CRLF & "Do you want to download the new version?")
             If $msg = 7 Then ;No was pressed
                 FileDelete(@ScriptDir & "\version.ini")
             ElseIf $msg = 6 Then ;OK was pressed
                 $downloadLink = IniRead(@ScriptDir & "\version.ini", "Version", "download", "NotFound")
                 $dlhandle = InetGet($downloadLink, @ScriptDir & "\Update_" & $newVersion & ".zip", 1, 1)
                 ProgressOn("Update", "Downloading Updates", "", -1, -1, 16) ;creates a progressbar
 
                $size = InetGetSize($downloadLink, 1) ;get the size of the update
                 While Not InetGetInfo($dlhandle, 2)
                     $Percent = Round((InetGetInfo($dlhandle, 0) / $size) * 100)
                     ProgressSet($Percent, $Percent & "%") ;update progressbar
                     Sleep(1)
                 WEnd
                 ProgressSet(100, "Done", "Complete") ;show complete progressbar
                 Sleep(500)
                 ProgressOff() ;close progress window
                 IniWrite("updater.ini", "version", "version", $newVersion)
                 InetClose($dlhandle)
                 $iniMsg = IniRead(@ScriptDir & "\version.ini", "Version", "message", "Exiting...")
                 MsgBox(64, "Success", "Download Complete!" & @CRLF & "Please restart the bot by extracting the Au3 from Update_" & $newVersion & ".zip" & @CRLF & $iniMsg)
                 FileDelete(@ScriptDir & "\version.ini")
                 Exit
             EndIf
         EndIf
     EndIf
     WinSetTitle($title, "", $title & $ver & " - Waiting")
 EndFunc   ;==>DoUpdate
 
Func RestartRun()
     If ($Go) Then
         $i = 0
         WinSetTitle($title, "", $title & $ver & " - Running")
         
        MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 1) ;Moves mouse out of the way
         ;Checks if the player is Dead/Logout/Window, then if in Main Menu, etc.
         If CheckDead() Then
             Return
         ElseIf CheckFor("ExitGame", "", Round(860 * $x_ratio), Round(400 * $y_ratio), Round(1040 * $x_ratio), Round(450 * $y_ratio), 0.5, 140) Then
             GUICtrlSetData($lblStatus, "Status: Exit window up")
             MouseClick("left", Round(1064 * $x_ratio), Round(632 * $y_ratio))
             Sleep(100)
             Send("{SPACE}")
             Return
         ElseIf CheckFor("MainMenu", "", Round(40 * $x_ratio), Round(300 * $y_ratio), Round(400 * $x_ratio), Round(450 * $y_ratio)) Then
             GUICtrlSetData($lblRun, "Run Number: " & $run & " - Runs Per Hour: " &  Round($RunsPerHour))
             GUICtrlSetData($lblLocation, "Location: Main Menu")
             GUICtrlSetData($lblStatus, "Status: Starting Game")
             WinActivate("Diablo III")
             RandClick("left", Round(230 * $x_ratio), Round(416 * $y_ratio), 120, 20, 1, 1) ;Random Click on the resume button
             Sleep($timingGameLoad)
         ElseIf CheckFor("OldRuins", "Area") Or CheckFor("NewTristram", "Area") Or CheckFor("DankCellar", "Area") Then
             Call("TownPortal")
             Call("LeaveGame")
             Return
        ElseIf CheckFor("Disconnect", "", Round(700 * $x_ratio), Round(340 * $y_ratio), Round(1200 * $x_ratio), Round(600 * $y_ratio), 1, 140) Then
             GUICtrlSetData($lblStatus, "Status: Network Disconnect window up")
             MouseClick("left", Round(960 * $x_ratio), Round(632 * $y_ratio),1)
             Sleep(100)
             Send("{SPACE}")
             Return
         ElseIf CheckFor("LimitError", "", Round(700 * $x_ratio), Round(340 * $y_ratio), Round(1200 * $x_ratio), Round(600 * $y_ratio), 1, 140) Then
             MouseClick("left", Round(960 * $y_ratio), Round(635 * $x_ratio),1)
             $rand = Random(40000, 80000)
             GUICtrlSetData($lblStatus, "Status: Input Limit - Waiting " & Round($rand / 1000) & " seconds.")
             Sleep($rand)
             Send("{SPACE}")
             Return
         Else
             GUICtrlSetData($lblStatus, "ERROR: Cannot find Resume button")
             Return
         EndIf
         
        ;Make sure we are in the right area before beginning run
         If CheckFor("OldRuins", "Area") Then
            $rt = TimerInit()
             $run += 1
             ;Call("StartScreenShot")
             GUICtrlSetData($lblLocation, "Location: Old Ruins")
             If $StartingGold = 0 Then Call("GoldPerHour")
             ;Start Run
             MouseClick("middle", Round(0 * $x_ratio),Round(250 * $y_ratio),1) ;starts the main run
             Send("{3 down}")
             Sleep($timingWormHole)
             Send("{3 up}")
             sleep(100)
             send("1")
             sleep(250)
             If FindCellar() = 1 Then
                 If CheckDead() Then
                  Return
                  EndIf
               GUICtrlSetData($lblStatus, "Status: Cellar - Found")
               MouseClick("left",Round($cellarCoordx[$CellCoord] * $x_ratio),Round($cellarCoordy[$CellCoord] * $y_ratio),1)
               sleep($timingCellarClick)
             Else ;ABORT RUN
                ;FileMove(@ScriptDir & "\shots\Start\OpenStartShot"& $run & ".bmp", @ScriptDir & "\shots\Start\ClosedStartShot"& $run & ".bmp")
                 GUICtrlSetData($lblStatus, "Status: Cellar - Not Found" & @CRLF)
                 Send("2")
                 Sleep($timingAbort)
                 send("{SHIFTDOWN}")
                 Sleep($timingAbort)
                 Mouseclick("left")
                 Sleep($timingAbort)
                 send("{SHIFTUP}")
                 Sleep($timingAbort)
                 Call("TownPortal")
                 If Not CheckDead() Then
                   Call("ClosedCellar")
                     Call("LeaveGame")
                 EndIf
                 Return
             EndIf
         Else
             Call("TownPortal")
             If Not CheckDead() Then
               Call("ClosedCellar")
                 Call("LeaveGame")
             EndIf
             Return
         EndIf
 
        ;Checks that the player is in the Dank Cellar
         If CheckFor("DankCellar", "Area") Then
             GUICtrlSetData($lblLocation, "Location: Dank Cellar")
             RandClick("middle", Round(20 * $x_ratio),Round(708 * $y_ratio), 1, 1) ;moves to doorway leading to rare inside cellar
             Sleep($timingMiddleDoor)
             RandMove(Round(440 * $x_ratio),Round(80 * $y_ratio), 1, 1) ;hovers over the rare Sarkoth
             sleep(150)
             Send("4")
             sleep(200)
             Send("{SHIFTDOWN}")
             GUICtrlSetData($lblStatus, "Status: Attacking Sarkoth")
             MouseDown("right") ;ATTACK
             sleep($attackTime)
             MouseUp("right")
             Sleep(150)
             Send("{SHIFTUP}")
             RandClick("middle", Round(528* $x_ratio),Round(268* $y_ratio), 1, 1) ;fuck the loot
             sleep($timingLootRun)
             MouseClick("right",Round(755*$x_ratio),Round(936* $y_ratio),1) ;cancel archon
             If $LootGoldOnly = 0 then
                 GUICtrlSetData($lblStatus, "Status: Looting")
                 Call("Loot")
            EndIf
             sleep(100)
             Call("TownPortal")
         Else
             $countMissedCellar += 1
               Call("CellarScreenShot")
                Send("2")
                 Sleep($timingAbort)
                 send("{SHIFTDOWN}")
                 Sleep($timingAbort)
                 Mouseclick("left")
                 Sleep($timingAbort)
                 send("{SHIFTUP}")
                 Sleep($timingAbort)
                 Call("TownPortal")
             If Not CheckDead() Then
                Call("ClosedCellar")
                 Call("LeaveGame")
             EndIf
             Return
         EndIf
         ;After successful run
         If Not CheckDead() Then
             Sleep(300)
             If $mLootIn = 1 And CheckFor("NewTristram", "Area") Then ;If its time to manage loot and we are in town
                 If $LootGoldOnly = 0 Then
                  If $StashMagic  + $StashRare + $StashLegendary + $Stashset + $StashGems + $StashTomes >= 1 Then
                     Call("StashLoot")
                  EndIf
                  If $VendorMagic + $VendorRare + $VendorLegendary + $VendorSet +  $VendorAll >= 1 Then
                     Call("VendorLoot")
                  EndIf
                 EndIf
                 $mLootIn = $AddManageLoot ;Reset Counter
             ElseIf Not CheckFor("NewTristram", "Area") Then
                 GUICtrlSetData($lblStatus, "Status: Skipping vendor, not in New Tristram")
                 Sleep(3000)
             ElseIf $mLootIn <= 0 Then
                 $mLootIn = 1
             Else
                 $mLootIn -= 1
             EndIf
             If Not CheckDead() Then
                Call("OpenCellar")
                 Call("LeaveGame")
             EndIf
             Return
         Else
             Return
         EndIf
      Else
         Return 0
     EndIf
 EndFunc   ;==>RestartRun
 
Func CheckDead()
     $LogoutTimerCancel = PixelSearch(Round(900 * $x_ratio), Round(240 * $y_ratio), Round(1010 * $x_ratio), Round(290 * $y_ratio), 0x993827) ; checks for cancel button on logout timer
     If Not @error Then
         GUICtrlSetData($lblStatus, "Status: Logging out")
         Sleep(11000)
         Sleep($timingGameLoad)
         Return 1
     EndIf
 
    $CloseButton = PixelSearch(Round(1570 * $x_ratio), Round(110 * $y_ratio), Round(1590 * $x_ratio), Round(120 * $y_ratio), 0x8C2300) ; checks for the red color of the "X" on an open window
     If Not @error Then
         GUICtrlSetData($lblStatus, "Status: Open Window")
         Sleep(200)
         Send("{SPACE}") ;close any open windows
         Return 1
     EndIf
 
    $YouHaveDied = PixelSearch(Round(620 * $x_ratio), Round(325 * $y_ratio), Round(625 * $x_ratio), Round(330 * $y_ratio), 0xFFFFFF) ; checks for white text "YOU HAVE DIED"
     If Not @error Then
         GUICtrlSetData($lblStatus, "Status: Dead")
         $deathCount += 1
         Call("LeaveGame")
         Sleep(11000)
         Sleep($timingGameLoad)
         Return 1
     Else
         Return 0
     EndIf
 EndFunc   ;==>CheckDead
 
Func CheckRepair()
     $RepairArea = PixelSearch(Round(1480 * $x_ratio), 0, Round(1570 * $x_ratio), Round(100 * $y_ratio), $yellow)
     If Not @error Then
         Call("DoRepair")
     EndIf
     $RepairAreaRed = PixelSearch(Round(1480 * $x_ratio), 0, Round(1570 * $x_ratio), Round(100 * $y_ratio), $red)
     If Not @error Then
         Call("DoRepair")
     EndIf
 EndFunc   ;==>CheckRepair
 
Func DoRepair()
     sleep(8500)
     $repairCount += 1
     If CheckDead() Then
         Return
     EndIf
     If CheckFor("NewTristram", "Area") Then
         MouseMove(Round(1530 * $x_ratio), Round(0 * $y_ratio), 1) ;begin movement towards merchant
        Send("{3 down}")
        Sleep(1300)
        Send("{3 up}")
         MouseClick("left", Round(796 * $x_ratio), Round(474 * $y_ratio), 6) ;NPC Merchant to the right of cain's home
         Sleep(1000)
         RandClick("left", Round(521 * $x_ratio), Round(506 * $y_ratio), 1, 1) ;button to open up repair menu
         Sleep(400)
         RandClick("left", Round(260 * $x_ratio), Round(595 * $y_ratio), 1, 1) ;button to pay for repairs
         Sleep(200)
         Send("{Escape}")
     EndIf
 EndFunc   ;==>DoRepair
 
Func ClosedCellar()
       $closedcellarCount += 1
       $srt = TimerDiff($rt)
        $ClosedCellarSec = $ClosedCellarSec + Round($srt / 1000, 2)
       $ClosedCellarAvg = $ClosedCellarSec / $closedcellarCount
     EndFunc
     
Func OpenCellar()
       $cellarCount += 1
        $srt = TimerDiff($rt)
       $OpenCellarSec = $OpenCellarSec + Round($srt / 1000, 2)
       $OpenCellarAvg = $OpenCellarSec / $cellarCount
    EndFunc
 
Func CalcTime()
     $trt = TimerDiff($t)
     $total = Round((($trt / 1000) / 60) / 60, 4)
     ;Total runtime calculation.
     $hours = Floor((($trt / 1000) / 60) / 60)
     $minutes = (($trt / 1000) / 60)
     ;trim minutes if runtime is more then 1 hour.
     If $minutes > 60 Then
         While $minutes > 60
             $minutes -= 60
         WEnd
     EndIf
     $RunsPerHour = $Run / ($trt / 1000) * 3600
     $repairCountPercent = $repairCount / $run
      $deathsCountPercent = $deathCount / $run
      $cellarCountPercent = $cellarCount /  $run
      $closedCellarCountPercent = ($run - $cellarCount) / $run
     $MissedCellarCountPercent = $countMissedCellar / $run
     GUICtrlSetData($lblRuntime, "Total Runtime: " & $hours & " hours, " & Ceiling($minutes) & " minutes")
     GUICtrlSetData($lblLast, "Open Cellar Avg: " & Round($OpenCellarAvg,1) & "s - Closed Cellar Avg: " & Round($ClosedCellarAvg,1) & "s")
     GUICtrlSetData($lblCellars, "Cellars Open: " & $cellarCount & " (" & Round($cellarCountPercent * 100) & "%)" &  " - Cellars Closed: " & $run - $cellarCount & " (" & Round($closedCellarCountPercent * 100,.00) & "%)")
     GUICtrlSetData($lblStats, "Deaths: " & $deathCount &  " (" & Round($deathsCountPercent * 100) & "%" & ")" &  " - Missed Cellars: " & $countMissedCellar & " (" & Round($MissedCellarCountPercent * 100) & "%)")
 EndFunc   ;==>CalcTime
 
Func CheckFor($img, $type = "", $startX = 0, $startY = 0, $endX = @DesktopWidth, $endY = @DesktopHeight, $seconds = 6, $tolerance = 140)
     If $type = "Area" Then
         $startX = 1500 * $x_ratio
         $startY = 0 * $y_ratio
         $endX = 1920 * $x_ratio
         $endY = 90 * $y_ratio
         $seconds = 2.5
     EndIf
     $c = 0
     $string = $pngLoc & $img & ".png"
     Do
         $c += 1
         Sleep(100)
         If $c > ($seconds * 10) Then ;Make sure we never get stuck here for infinity.
             If $type = "Area" Then
                 GUICtrlSetData($lblStatus, "Status: Area not found - " & $img)
             EndIf
             Return 0
         EndIf
     Until _ImageSearchArea($string, 1, $startX, $startY, $endX, $endY, $gX, $gY, $tolerance)
     Return 1
 EndFunc   ;==>CheckFor
 
Func Loot()
     Sleep($timingLoot)
     MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
     If $LootSet == 1 Then
         $SetCount += LootGear(0x02CE01)
     EndIf
     If $LootLegendary == 1 Then
         $LegendaryCount += LootGear(0xBF642F, 0)
     EndIf
     If $LootRare == 1 Then
         $RareCount += LootGear(0xBBBB00)
     EndIf
     If $LootCustom == 1 Then
         Call("LootCustom")
     EndIf
     If $LootMagic == 1 Then
         $MagicCount += LootGear(0x6969FF)
     EndIf
 EndFunc   ;==>Loot
  
  Func LootCustom()
     $count = 0
     $gX = 0
     $gY = 0
     For $i = 0 To ($totalItems - 1)
         $array = StringSplit($pick[$i], "|")
         $file = $array[1]
         $accuracy = $array[2]
         $urlString = $pngLoc & $file & ".png"
         While _ImageSearchArea($urlString, 1, 0, 0, @DesktopWidth, @DesktopHeight, $gX, $gY, $accuracy)
             $count += 1
             MouseClick("left", $gX, $gY, 1, 3)
             Sleep(50)
             MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
             Sleep($timingLoot)
             If $count >= 10 Then
                 ExitLoop
             EndIf
         WEnd
     Next
 EndFunc   ;==>LootCustom
  
 Func LootGear($color, $tolerance = 2)
     $count = 0
     $Loot = PixelSearch(Round(400 * $x_ratio), 0, Round(1690 * $x_ratio), Round(900 * $y_ratio), $color, $tolerance)
     If Not @error Then
         While Not @error
             $count += 1
             MouseClick('left', $Loot[0], $Loot[1], 1, 3)
             Sleep(50)
             MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 1) ;Moves mouse out of the way
             sleep($timingLoot)
             ;Run at max 10 times per quality
             If $count >= 10 Then
                 ExitLoop
             EndIf
             $Loot = PixelSearch(Round(400 * $x_ratio), 0, Round(1690 * $x_ratio), Round(900 * $y_ratio), $color, $tolerance)
         WEnd
     EndIf
     Return $count
  EndFunc   ;==>LootGear
 
Func StashLoot()
     GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
     MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
     sleep(1600)
     
    ;Tomes
     If $StashTomes == 1 Then
         MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
         sleep(80)
         ;Tomes
         While $StashTomes == 1
             Sleep(Random(50, 150))
             If _ImageSearchArea($pngLoc & "TomeIcon.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
                 GUICtrlSetData($lblStatus, "Status: Stashing Tomes")
                 MouseClick("right", $gX, $gY, 1, 4)
                 Sleep(80)
             Else
             ExitLoop
         EndIf
     WEnd
     
    ;Gems
     If $StashGems == 1 Then
         GUICtrlSetData($lblStatus, "Status: Stashing Gems")
         Sleep(Random(20, 100))
         For $i = 0 To 7
             If _ImageSearchArea($pngLoc &  $gems[$i], 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 820 * $y_ratio, $gX, $gY, 140) Then
                 MouseClick("right", $gX, $gY, 1, 3)
             EndIf
         Next
     EndIf
     
        Sleep(80)
         MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
         Sleep(80)
     EndIf
 

    If $StashLegendary == 1 Then
         StashItems(0xFF7F00, 0)
         StashItems(0x8F5C25, 1)
     EndIf
 
    If $StashRare == 1 Then
         StashItems(0x4A3C0B, 1)
     EndIf
     If $StashMagic == 1 Then
         StashItems(0x182037, 2)
     EndIf
     ;Gems (DOESN'T STASH BOTTOM ROW!)
     
    Sleep(Random(600, 800))
     Send("{SPACE}")
  EndFunc   ;==>StashLoot
  
  Func StashItems($color, $tolerance)
     $c = 0
     While $c <= 20
         Sleep(Random(20, 100))
         $StashPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $color, $tolerance)
         If Not @error Then
             MouseClick("right", $StashPixel[0] + 4, $StashPixel[1], 1, 4)
             $c += 1
         Else
             ExitLoop
         EndIf
     WEnd
  EndFunc   ;==>StashItems
  
  
  Func VendorLoot()
     GUICtrlSetData($lblStatus, "Status: Vendoring Items")
     If $StashMagic  + $StashRare + $StashLegendary + $Stashset + $StashGems + $StashTomes == 0 then
        MouseMove(1530 * $x_ratio),0 * $y_ratio), 1) ;begin movement towards merchant
        Send("{3 down}")
        Sleep(1300)
        Send("{3 up}")
     Else ;Move from Stash towards vendor
         Sleep(Random(300, 500))
         MouseMove(1525 * $x_ratio, 70 * $y_ratio)
         Send("{3 down}")
        Sleep(1300)
        Send("{3 up}")
     EndIf
     
    MouseClick("left", Round(796 * $x_ratio), Round(474 * $y_ratio), 6) ;NPC Merchant to the right of cain's 
    ;All
     sleep(300)
     If $vendorAll == 1 Then
         For $c = 1 To $vendorColumns
             For $r = 1 To $vendorRows
                 RandClick("right", (((($c - 1) * 50) + 32 + 1400) * $x_ratio), (((($r - 1) * 51) + 32 + 580) * $y_ratio), 2, 2, 1, 2.5)
             Next
         Next
     EndIf
 
    ;Rares
     If $VendorRare == 1 Then
         VendItems(0x4A3C0B, 1)
     EndIf
 
    ;Magic
     If $VendorMagic == 1 Then
         VendItems(0x182037, 1)
     EndIf
 
    Sleep(200)
     RandClick("left", Round(521 * $x_ratio), Round(506 * $y_ratio), 1, 1) ;button to open up repair menu
     Sleep(300)
     RandClick("left", Round(260 * $x_ratio), Round(595 * $y_ratio), 1, 1) ;button to pay for repairs
     Sleep(200)
     GUICtrlSetData($lblStatus, "Status: Done With Vendor")
     Send("{ESCAPE}")
  EndFunc   ;==>VendorLoot
  
 Func VendItems($color, $tolerance)
    $c = 0
     While $c <= 20
         Sleep(Random(20, 100))
         $VendPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $color, $tolerance)
         If Not @error Then
             MouseClick("right", $VendPixel[0], $VendPixel[1], 1, 4)
             $c += 1
         Else
             ExitLoop
         EndIf
     WEnd
  EndFunc   ;==>VendItems
 
Func _ImageSearchArea($findImage, $resultPosition, $x1, $y1, $right, $bottom, ByRef $x, ByRef $y, $tolerance)
     If $tolerance > 0 Then $findImage = "*" & $tolerance & " " & $findImage
     $findImage = "*TRANSBLACK " & $findImage
     If @AutoItX64 Then
         $result = DllCall("ImageSearchDLL_x64.dll", "str", "ImageSearch", "int", $x1, "int", $y1, "int", $right, "int", $bottom, "str", $findImage)
     Else
         $result = DllCall("ImageSearchDLL.dll", "str", "ImageSearch", "int", $x1, "int", $y1, "int", $right, "int", $bottom, "str", $findImage)
     EndIf
     If $result = "0" Then
         Return 0
     EndIf
 
    ; Otherwise get the x,y location of the match and the size of the image to
     ; compute the centre of search
     $array = StringSplit($result[0], "|")
     If (UBound($array) >= 4) Then
         $x = Int(Number($array[2]))
         $y = Int(Number($array[3]))
         If $resultPosition = 1 Then
             $x = $x + Int(Number($array[4]) / 2)
             $y = $y + Int(Number($array[5]) / 2)
         EndIf
         Return 1
     EndIf
  EndFunc   ;==>_ImageSearchArea
  
   Func FindCellar()
    $CellCoord = 0
    $gY = 0
    $gX = 0 
   ;A precheck to the cellar search
    _ImageSearchArea($pngLoc & "Cellar.png", 1, Round(1672 * $x_ratio),Round(175 * $y_ratio),Round(1717 * $x_ratio),Round(209 * $y_ratio), $gX, $gY, 160)
    sleep($cellarCheckSleep)
    If $gX > 0 Or $gY > 0 then
      Do
         MouseMove(Round($cellarCoordx[$CellCoord] * $x_ratio), Round($cellarCoordy[$CellCoord] * $y_ratio), 1) ;moves cursor over to the cellar
         sleep($cellarCheckSleep)
         If $CellCoord < 6 then 
            $Pixel2 = PixelSearch($cellarCoordx[$CellCoord] * $x_ratio - 71,$cellarCoordy[$CellCoord] * $y_ratio - 148,$cellarCoordx[$CellCoord] * $x_ratio + 139,$cellarCoordy[$CellCoord] * $y_ratio + 22, 0x334FB7, 3) ;checks for open cellar (in a 600x400 box from the top left - where it should always be)
         Else
             $Pixel2 = PixelSearch($cellarCoordx[$CellCoord] * $x_ratio - 71,$cellarCoordy[$CellCoord] * $y_ratio - 148,$cellarCoordx[$CellCoord] * $x_ratio + 139,$cellarCoordy[$CellCoord] * $y_ratio + 22, 0x007CB7F8, 3) ;checks for open cellar (in a 600x400 box from the top left - where it should always be)
         EndIf
         If Not @Error Then
             Return 1
         EndIf
         $CellCoord += 1
      Until $CellCoord >= Ubound($cellarCoordx)
    Else
      Return 0
    EndIf
    $countMissedCellar += 1
    Call("CellarScreenShot")
    Return 0
 EndFunc
 
Func CellarScreenShot()
    If $ScreenShot = 1 Then
               _ScreenCapture_SetBMPFormat(0)
               _ScreenCapture_Capture(@ScriptDir & "\shots\Cellar\CellarShot"& $run & "c" & $CellCoord & ".bmp")
             EndIf
         EndFunc
         
Func GoldPerHour()
     Send("i")
     Sleep(200)
     $CurrentGold = _TesseractScreenCapture(0, "", 1,  2, 1450*$x_ratio, 504*$y_ratio, 1570*$x_ratio, 530*$y_ratio, 0)
     Sleep(200)
     Send("i")
 
    $CurrentGold = StringRegExpReplace($CurrentGold, "[^0-9]", "")
     $trt = TimerDiff($t)
     If $StartingGold <= 0 Then $StartingGold = $CurrentGold
         If $StartingGold > 0 Then $AccumulatedGold = $CurrentGold - $StartingGold
             $GPH = $AccumulatedGold / ($trt / 1000) * 3600
 
    If $GPH >= 0 and $AccumulatedGold >=0 then
         If $GPH > 1000000 Then
             $GPH = Round($GPH/1000000,2) & "M"
     ElseIf $GPH > 1000 Then
         $GPH = Round($GPH/1000) & "K"
     EndIF
     If $AccumulatedGold > 1000000 Then
         $AccumulatedGold = Round($AccumulatedGold/1000000,2) & "M"
     ElseIf $AccumulatedGold > 1000 Then
         $AccumulatedGold = Round($AccumulatedGold/1000) & "K"
     EndIF
     GUICtrlSetData($lblGold,$GPH & " Per Hour - Accumulated Gold: " & $AccumulatedGold)
 EndIf
 EndFunc ;==>GoldPerHour
 
Func LeaveGame()
     GUICtrlSetData($lblStatus, "Status: Leaving Game")
     Send("{SPACE}")
     sleep(200)
     Send("{Escape}")
     RandClick("left", Round(956 * $x_ratio), Round(579 * $y_ratio), 120, 2) ;Random Click on the leave button
     Call("CalcTime")
     Sleep($timingGameLoad)
 EndFunc   ;==>LeaveGame
 
Func TownPortal()
     GUICtrlSetData($lblStatus, "Status: Returning to Town")
     sleep(200)
     Send("t")
     Call("GoldPerHour")
     Sleep($timingTP)
     Call("CheckRepair")
 EndFunc   ;==>TownPortal
 
Func RandClick($clickType, $xPos, $yPos, $xOff = 10, $yOff = 10, $clicks = 1, $speed = 1)
     If $xOff < 1 Then $xOff = 1
     If $yOff < 1 Then $yOff = 1
     $randX = Round(Random($xPos - ($xOff * $x_ratio), $xPos + ($xOff * $x_ratio)))
     $randY = Round(Random($yPos - ($yOff * $y_ratio), $yPos + ($yOff * $y_ratio)))
     MouseClick($clickType, $randX, $randY, $clicks, $speed)
 EndFunc   ;==>RandClick
 
Func RandMove($xPos, $yPos, $xOff = 10, $yOff = 10, $speed = 1)
     $randX = Round(Random($xPos - ($xOff * $x_ratio), $xPos + ($xOff * $x_ratio)))
     $randY = Round(Random($yPos - ($yOff * $y_ratio), $yPos + ($yOff * $y_ratio)))
     MouseMove($randX, $randY, $speed)
 EndFunc   ;==>RandMove
 
Func StopLog()
 If $run > 0 Then
 $repairCountPercent = $repairCount / $run
 $deathsCountPercent = $deathCount / $run
 $cellarCountPercent = $cellarCount /  $run
 $closedCellarCountPercent = ($run - $cellarCount) / $run
 $trt = TimerDiff($t)
 ;Total runtime calculation.
 $hours = Floor((($trt / 1000) / 60) / 60)
 $minutes = (($trt / 1000) / 60)
 If $minutes > 60 Then
     While $minutes > 60
         $minutes -= 60
     WEnd
  EndIf
  
 _FileWriteLog("Dank Cellar Log.txt",  @CRLF & "************************************************" & @CRLF & _
 "Chancity's Dank Celler" & @CRLF & @CRLF & "Stats:" & @CRLF &  _
 "Total Runtime: " & $hours & " hours, " & Ceiling($minutes) & " minutes" & @CRLF & _
 GUICtrlRead($lblLast) & @CRLF & _
 "Total Cellars Found: " & $cellarCount & " (" & Round($cellarCountPercent * 100,.00) & "%" & ")" & @CRLF & _
 "Total Cellars Not Found: " & $run - $cellarCount & " (" & Round($closedCellarCountPercent * 100,.00) & "%" & ")" & @CRLF & _
 "Total Deaths: " & $deathCount &  " (" & Round($deathsCountPercent * 100,.00) & "%" & ")" & @CRLF & _
 "Total Repairs: " & $repairCount &  " (" & Round($repairCountPercent * 100,.00) & "%" & ")" & @CRLF & @CRLF & "Loot:" & @CRLF & _
 "Rares: " & $RareCount & " Legendary's: " & $LegendaryCount & " Set Items: " & $setCount & " Gems: " & $GemCount & @CRLF & _
 GUICtrlRead($lblGold) & @CRLF & _
 "************************************************")
 EndIf
 EndFunc
 
Func Begin()
       If $AddDPS = 0 then 
        MsgBox(16, "First Run", "Edit your settings.")
     Else
      $AddDPS = $AddDPS * 3.25
      $attackTime = (170000 / $AddDPS) * 1000
      WinActivate("Diablo III")
     $Go = Not $Go
     GUICtrlSetState($mFile, $GUI_DISABLE)
     GUICtrlSetState($mOptions, $GUI_DISABLE)
       EndIf
     If Not $Go Then WinSetTitle($title, "", $title & $ver & " - Halted")
 EndFunc   ;==>Begin
 
Func TogglePause()
     $Paused = Not $Paused
     While $Paused
         Sleep(100)
         WinSetTitle($title, "", $title & $ver & " - Paused")
         ToolTip('[PAUSED] - Deaths: ' & $deathCount & ' | Cellars: ' & $cellarCount, 0, 0)
     WEnd
     WinSetTitle($title, "", $title & $ver & " - Running")
     ToolTip("")
  EndFunc   ;==>TogglePause
  
  Func GameAutostart()
 If ProcessExists($gameExecutable) = 0 Then
         GUICtrlSetData($lblStatus, "Status: Starting Game Client")
         Run($gameDiabloIIILoc & $gameExecutable & " -launch")
        sleep($gameStartTime)
         WinActivate("Diablo III")
        Sleep(500)
        Send($gamePassword)
        Sleep(500)
        Send("{ENTER}")
        Sleep($gameStartTime)
        $size = WinGetClientSize("[CLASS:D3 Main Window Class]")
         $x_ratio = $size[0] / 1920
        $y_ratio = $size[1] / 1080
         Call("Begin")
     Else
         $size = WinGetClientSize("[CLASS:D3 Main Window Class]")
         $x_ratio = $size[0] / 1920
        $y_ratio = $size[1] / 1080
         Call("Begin")
     EndIf
   EndFunc
 

Func Stop() ;to allow the script to stop
     Call("StopLog")
     Exit
  EndFunc   ;==>Stop



Balthazarch is offline  
Old   #2
 
elite*gold: 0
Join Date: Mar 2009
Posts: 4,002
Received Thanks: 3,198
Ich glaube hier wird dir kaum einer helfen. Ich rate dir mal einen Thread in einer der folgenden 3 Sektions zu posten, dort wo es halt reingehört. Die werden da mehr Ahnung haben.





Fightcamp is offline  
Old   #3
 
elite*gold: 20
Join Date: Nov 2009
Posts: 205
Received Thanks: 41
Gibts ne genauere Beschreibung vom Fehler? Er klickt nicht auf "Resume Game" oder bekommst du direkt n Fehler?

Falls du nen neuen Thread in den oben genannten Sektionen gemachthast, schick mir den bitte per PM.
Preson is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
wo liegt der fehler
Hallo Community, ich habe ein kleines Problem und hoffe ihr könnt mir helfen ich komm durch uriel nicht in die map rein say_title ( "Die...
1 Replies - Metin2 PServer - Discussions / Questions
Wo liegt der Fehler???? XML
CLOSED
2 Replies - General Coding
Wo liegt der Fehler?
Hallo, Ich und Profi haben ne Quest gemacht, damit man in unsere neue Map kommt, aber komischerweise funktioniert die nicht. Findet ihr den...
6 Replies - Metin2 PServer - Discussions / Questions
Wo liegt der Fehler
Hey, ich hab hier ein Code für ein Acc ersteller: #NoTrayIcon $pw = InputBox ("PW", "Gib das Sicherheits Password ein:D") If $pw = "dynastie")...
6 Replies - AutoIt
Wo liegt der Fehler?
Ich hab mir Glitchy runtergeladen ich möchte nur Rasse von männlich Blutelf zu männlich Undead wechseln,dann hab ich Liste erstellt die MPQ datei auf...
8 Replies - WoW Modelchange Support



All times are GMT +2. The time now is 13:22.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.