Sign in to follow this  
Followers 0
xxd2godxx

MM.Bot Diablo GUI Help...?

1 post in this topic

#1 ·  Posted (edited)

Base Script:

#include <GuiConstants.au3>
Opt ("GUIOnEventMode", 1)
GUICreate("MM.Bot Setup", 500, 500, (@DesktopWidth - 500) / 2, (@DesktopHeight - 600) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")
WinSetState("MM.Bot Setup", "", @SW_MAXIMIZE)
$Label_1 = GUICtrlCreateLabel("D2 Path", 20, 20, 90, 20)
$Location = GUICtrlCreateInput("C:\Program Files\Diablo II", 135, 20, 225, 20)
$Label_3 = GUICtrlCreateLabel("Account Name", 20, 50, 90, 20)
$Account = GUICtrlCreateInput("MyAccount", 135, 50, 160, 20)
$Label_5 = GUICtrlCreateLabel("Account Password", 20, 80, 90, 20)
$Password = GUICtrlCreateInput("MyPassword", 135, 80, 160, 20)
$Label_9 = GUICtrlCreateLabel("Diablo Mode", 20, 110, 90, 20)
$bot2run = GUICtrlCreateInput("Battle", 135, 110, 160, 20)
$Button_10 = GUICtrlCreateButton("Save", 120, 350, 60, 20)
GUICtrlSetOnEvent($Button_10, "save")
$Button_11 = GUICtrlCreateButton("Exit", 210, 350, 60, 20)
GUICtrlSetOnEvent($Button_11, "q")
$Button_12 = GUICtrlCreateButton("Run", 30, 350, 60, 20)
GUICtrlSetOnEvent($Button_12, "run1")
$Label_13 = GUICtrlCreateLabel("Diablo2EXE", 20, 140, 90, 20)
$Label_15 = GUICtrlCreateLabel("Character Slot", 20, 170, 90, 20)
$Label_16 = GUICtrlCreateLabel("Difficulty", 20, 200, 90, 20)
$Label_17 = GUICtrlCreateLabel("UseMerc?", 20, 230, 90, 20)
$Label_18 = GUICtrlCreateLabel("ClearScreen Key", 20, 260, 90, 20)
$Label_19 = GUICtrlCreateLabel("Switch Weapon Key", 20, 290, 90, 20)
$Label_20 = GUICtrlCreateLabel("D2Parameters", 20, 320, 90, 20)
$Diablo2EXE = GUICtrlCreateInput("Diablo II.exe", 135, 140, 160, 20)
$attack1 = GUICtrlCreateInput("1", 135, 170, 160, 20)
$attack2 = GUICtrlCreateInput("Hell", 135, 200, 160, 20)
$teleport = GUICtrlCreateInput("Yes", 135, 230, 160, 20)
$CharPosition = GUICtrlCreateInput("SPACE", 135, 260, 160, 20)
$Difficulty = GUICtrlCreateInput("W", 135, 290, 160, 20)
$D2Parameters = GUICtrlCreateInput("-skiptobnet -w -ns -lq -res800 -nonotify", 135, 310, 225, 20)
$By = GUICtrlCreateLabel("Our Site is currently down", 80, 380, 200, 25)

GUISetState()

While 1
    Sleep(1000)
WEnd

Func save()
    $file = FileOpen("Config.ini", 1)
; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Pindle Bot-Error", "Unable to open file.")
    Exit
EndIf
FileWriteLine($file, "[main]")
FileWriteLine($file, '$Location=' & $Location)
FileWriteLine($file, '$Account=' & $Account)
FileWriteLine($file, '$Password=' & $Password)
FileWriteLine($file, '$Bot2Run=' & $Bot2Run)
FileWriteLine($file, '$attack1=' & $attack1)
FileWriteLine($file, '$attack2=' & $attack2)
FileWriteLine($file, '$teleport=' & $teleport)
FileWriteLine($file, '$diablo2exe=' & $diablo2exe)
FileWriteLine($file, '$CharPosition=' & $CharPosition)
FileWriteLine($file, '$Difficulty=' & $Difficulty)
FileWriteLine($file, '$D2Parameters=' & $D2Parameters)

FileClose($file)
MsgBox(4096, "Pindle Settings-Saved", "The file was saved.", 20)
EndFunc;==>save

Func run1()
    Run("RunIt.exe", "", @SW_MAXIMIZE)
EndFunc;==>q



Func q()
    MsgBox(4096, "Pindle-Exit", "Thank You for using MM.Bot!!!")
    Exit
EndFunc;==>q

Func SpecialEvents()
    Select
        Case @GUI_CtrlId = $GUI_EVENT_CLOSE
            Exit
            
        Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
            
        Case @GUI_CtrlId = $GUI_EVENT_RESTORE
            
    EndSelect
EndFunc;==>SpecialEvents

Few problems, it will return a number and not a word or words that are placed in the blocks. Also these are the labels i need:

ClearScreen Key = SPACE

Weapon Switch Key = W

AutoMap Key = TAB

Inventory Key = I

ShowItems Key = ALT

PotionsRow1 Key = 1

PotionsRow2 Key = 2

PotionsRow3 Key = 3

PotionsRow4 Key = 4

D2 Window Name = Diablo II

D2 Executable Name = Diablo II.exe

D2 Window Parameters = -w -ns -lq -direct -txt -title "Diablo II"

GambleGoldStart = 1100000

GambleGoldStop = 300000

GambleItem = Rings

StashGold = 300000

UseMerc = Yes

MalahHealLifePercent = 80

MalahHealManaPercent = 70

DrinkPotionLifePercent = 50

DrinkPotionManaPercent = 10

Mode = Battle

Account = MyAccount

Password = MyPassword

Slot = 1

Difficulty = Hell

D2 Path = C:\Program Files\Diablo II

Edited by xxd2godxx

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0