jerwin Posted July 3, 2008 Author Posted July 3, 2008 sir its almost done.... but please make it atleast 5 or more.... then after i load one profile channel name not showing?? [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
tlokz Posted July 3, 2008 Posted July 3, 2008 sir its almost done.... but please make it atleast 5 or more.... then after i load one profile channel name not showing?? 5 or more? not sure i understand it creates as many ini's as i want for and also I removed the .ini extension from showing in the GUI and also fixed the channel name not loading and added some better font... Aight I got to get some sleep since its 5:30 AM lol... Well here it is Ill check this thread in the morning or PM me for more help muttley expandcollapse popup#include <file.au3> #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIListBox.au3> #include <ListBoxConstants.au3> #include <GUIComboBox.au3> #include <GuiConstantsEx.au3> Global $ListView1, $Input1, $Input2, $Combo1, $Combo2, $AutoLogIn, $AutoPots, $AutoAttack, $AutoLoot, $AutoFish, $Market, $sItems, $Profile, $YourIni $Loaded = 0 $ProfileDirectory = @ScriptDir & "\Profiles" DirCreate($ProfileDirectory) Opt("GUIOnEventMode", 1) GUICreate("ATTO BOT", 420, 548, 193, 115) GUICtrlCreatePic("C:\Documents and Settings\user\My Documents\My Pictures\dekaron.jpg", 0, 0, 417, 161, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $ListView1 = GUICtrlCreateList("", 0, 168, 417, 177) GUICtrlSetOnEvent(-1, "_LoadProfile") GUICtrlSetFont($ListView1, 14, 400, 0, "NimbusRomdItalic") _GenerateList($ListView1, $ProfileDirectory) GUICtrlCreateGroup("LogIn", 0, 352, 417, 145, $BS_FLAT) GUICtrlCreateLabel("Account", 8, 368, 60, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Input1 = GUICtrlCreateInput("", 96, 368, 153, 21) GUICtrlCreateLabel("Password", 8, 400, 68, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Input2 = GUICtrlCreateInput("", 96, 400, 153, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL)) GUICtrlCreateLabel("Server", 8, 432, 52, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Combo1 = GUICtrlCreateCombo("", 96, 432, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_HSCROLL, $WS_VSCROLL)) GUICtrlSetData(-1, "´«¹ÙÀ̽º|Æĸ£Ä«|½ÃÁî|Ç︮¿Â|Ŧ|¹ÝÀú") GUICtrlCreateLabel("Channel", 8, 464, 60, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Combo2 = GUICtrlCreateCombo("", 96, 464, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_HSCROLL, $WS_VSCROLL)) GUICtrlSetData(-1, "1¼¹ö|2¼¹ö|3¼¹ö|4¼¹ö|5¼¹ö|6¼¹ö|Àӽü¹ö") GUICtrlCreateGroup("Bot Mode", 256, 360, 153, 129) $AutoLogIn = GUICtrlCreateCheckbox("AutoLogIn", 280, 376, 97, 17) $AutoPots = GUICtrlCreateCheckbox("AutoPots", 280, 392, 97, 17) $AutoAttack = GUICtrlCreateCheckbox("AutoAttack", 280, 408, 97, 17) $AutoLoot = GUICtrlCreateCheckbox("AutoLoot", 280, 424, 97, 17) $AutoFish = GUICtrlCreateCheckbox("AutoFish", 280, 440, 97, 17) $Market = GUICtrlCreateCheckbox("MarketMode", 280, 456, 97, 17) GUICtrlCreateButton("Start", 144, 504, 145, 41, 0) GUICtrlSetOnEvent(-1, "_Start") GUICtrlCreateButton("Save", 0, 504, 139, 41, 0) GUICtrlSetOnEvent(-1, "_Profile") GUICtrlCreateButton("Exit", 296, 504, 123, 41, 0) GUICtrlSetOnEvent(-1, "_Exit") GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func _GenerateList($hListToUse, $vDirectoryToSearch) $aFileList = _FileListToArray($vDirectoryToSearch, "*.ini") For $i = 1 To UBound($aFileList) - 1 $removeini = String($aFileList[$i]) $removed = StringTrimRight($removeini, 4) GUICtrlSetData($hListToUse, $removed) Next EndFunc ;==>_GenerateList Func _LoadProfile() $Loaded = 1 $File = _GUICtrlListBox_GetText($ListView1, _GUICtrlListBox_GetCurSel($ListView1)) $YourIni = @ScriptDir & "\Profiles\" & $File & ".ini" GUICtrlSetData($Input1, IniRead($YourIni, "Settings", "Acccount", "")) GUICtrlSetData($Input2, IniRead($YourIni, "Settings", "Password", "")) _GUICtrlComboBox_SetCurSel($Combo1, IniRead($YourIni, "Settings", "Server", "")) _GUICtrlComboBox_SetCurSel($Combo2, IniRead($YourIni, "Settings", "Channel", "")) GUICtrlSetState($AutoLogIn, _IniToGui(IniRead($YourIni, "Settings", "AutoLogIn", 1))) GUICtrlSetState($AutoPots, _IniToGui(IniRead($YourIni, "Settings", "AutoPots", 1))) GUICtrlSetState($AutoAttack, _IniToGui(IniRead($YourIni, "Settings", "AutoAttack", 1))) GUICtrlSetState($AutoLoot, _IniToGui(IniRead($YourIni, "Settings", "AutoLoot", 1))) GUICtrlSetState($AutoFish, _IniToGui(IniRead($YourIni, "Settings", "AutoFish", 1))) GUICtrlSetState($Market, _IniToGui(IniRead($YourIni, "Settings", "MarketMode", 1))) EndFunc Func _Start() EndFunc Func _Profile() If $Loaded = 0 Then GUICreate("Profile", 195, 140, 193, 125) GUICtrlCreateLabel("Name your Profile:", 40, 24, 114, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Profile = GUICtrlCreateInput("", 24, 56, 145, 21) GUICtrlCreateButton("Save", 96, 96, 75, 25, 0) GUICtrlSetOnEvent(-1, "_Save") GUISetState(@SW_SHOW) Else _Save() Endif EndFunc Func _Save() If $Loaded = 0 Then $temp = GUICtrlRead($Profile) GUIDelete("") $name = @ScriptDir & "\Profiles\" & $temp & ".ini" _FileCreate($name) Else $name = $YourIni EndIf IniWrite($name, "Settings", "Acccount", GUICtrlRead($Input1)) IniWrite($name, "Settings", "Password", GUICtrlRead($Input2)) IniWrite($name, "Settings", "Server", GUICtrlRead($Combo1)) IniWrite($name, "Settings", "Channel", GUICtrlRead($Combo2)) IniWrite($name, "Settings", "AutoLogIn", _GUIToIni($AutoLogIn)) IniWrite($name, "Settings", "AutoPots", _GUIToIni($AutoPots)) IniWrite($name, "Settings", "AutoAttack", _GUIToIni($AutoAttack)) IniWrite($name, "Settings", "AutoLoot", _GUIToIni($AutoLoot)) IniWrite($name, "Settings", "AutoFish", _GUIToIni($AutoFish)) IniWrite($name, "Settings", "MarketMode", _GUIToIni($Market)) _GenerateList($ListView1, $ProfileDirectory) EndFunc Func _IniToGUI($A) If $A = 1 Then Return $GUI_CHECKED Else Return $GUI_UNCHECKED EndIf EndFunc ;==>_IniToGui Func _GUIToIni($CheckBox) If GUICtrlRead($CheckBox) = $GUI_CHECKED Then Return 1 Else Return 0 EndIf EndFunc Func _Exit() Exit EndFunc
jerwin Posted July 3, 2008 Author Posted July 3, 2008 wee.. its ok.. well i just need the 5 or more accounts if its possible to do it... i will also study this script u gave to me thank you very much dude...... muttley [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
tlokz Posted July 3, 2008 Posted July 3, 2008 wee.. its ok.. well i just need the 5 or more accounts if its possible to do it... i will also study this script u gave to me thank you very much dude...... muttleyNot sure what u mean by 5 or more accounts thing? But you are more then welcome
jerwin Posted July 3, 2008 Author Posted July 3, 2008 (edited) Not sure what u mean by 5 or more accounts thing? But you are more then welcomeyeah amm atleast 5 accounts i can save .ini in that folder i wish u can do that for me.... i just really need to save 5 accounts... . wat i mean i can save 5 ini file in my folder... Edited July 3, 2008 by jerwin [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
tlokz Posted July 3, 2008 Posted July 3, 2008 (edited) To the same .ini? To make a new account dont load a profile and click save Edited July 3, 2008 by tlokz
jerwin Posted July 4, 2008 Author Posted July 4, 2008 To the same .ini?To make a new account dont load a profile and click saveno wat i mean is to have 5 ini file in 1 folder so i can load up to 5 accounts..... in one computer...so i need to save 5 profile in my profile folder... can u do that?? [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
TehWhale Posted July 4, 2008 Posted July 4, 2008 no wat i mean is to have 5 ini file in 1 folder so i can load up to 5 accounts..... in one computer...so i need to save 5 profile in my profile folder... can u do that??Dude, read the examples posted above, read the helpfile on all these functions, and you wont have to beg people to '5 more'. Geez.
tlokz Posted July 4, 2008 Posted July 4, 2008 Play around with it, it makes 5 accounts ez... it makes as many as u want... well I changed it up a little bit, and changed the ini extension to .bsp lmao for botsavedprofile just so somebody wont edit it expandcollapse popup#include <file.au3> #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIListBox.au3> #include <ListBoxConstants.au3> #include <GUIComboBox.au3> #include <GuiConstantsEx.au3> Global $ListView1, $Input1, $Input2, $Combo1, $Combo2, $AutoLogIn, $AutoPots, $AutoAttack, $AutoLoot, $AutoFish, $Market, $sItems, $Profile, $YourIni $Loaded = 0 $ProfileDirectory = @ScriptDir & "\Profiles" $extension = ".bsp" DirCreate($ProfileDirectory) Opt("GUIOnEventMode", 1) GUICreate("ATTO BOT", 420, 548, 193, 115) GUICtrlCreatePic("C:\Documents and Settings\user\My Documents\My Pictures\dekaron.jpg", 0, 0, 417, 161, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $ListView1 = GUICtrlCreateList("", 0, 168, 417, 177) GUICtrlSetOnEvent(-1, "_LoadProfile") GUICtrlSetFont($ListView1, 14, 400, 0, "NimbusRomdItalic") _GenerateList($ListView1, $ProfileDirectory) GUICtrlCreateGroup("LogIn", 0, 352, 417, 145, $BS_FLAT) GUICtrlCreateLabel("Account", 8, 368, 60, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Input1 = GUICtrlCreateInput("", 96, 368, 153, 21) GUICtrlCreateLabel("Password", 8, 400, 68, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Input2 = GUICtrlCreateInput("", 96, 400, 153, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL)) GUICtrlCreateLabel("Server", 8, 432, 52, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Combo1 = GUICtrlCreateCombo("", 96, 432, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_HSCROLL, $WS_VSCROLL)) GUICtrlSetData(-1, "´«¹ÙÀ̽º|Æĸ£Ä«|½ÃÁî|Ç︮¿Â|Ŧ|¹ÝÀú") GUICtrlCreateLabel("Channel", 8, 464, 60, 20) GUICtrlSetFont(-1, 10, 800, 0, "Courier New") $Combo2 = GUICtrlCreateCombo("", 96, 464, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_HSCROLL, $WS_VSCROLL)) GUICtrlSetData(-1, "1¼¹ö|2¼¹ö|3¼¹ö|4¼¹ö|5¼¹ö|6¼¹ö|Àӽü¹ö") GUICtrlCreateGroup("Bot Mode", 256, 360, 153, 129) $AutoLogIn = GUICtrlCreateCheckbox("AutoLogIn", 280, 376, 97, 17) $AutoPots = GUICtrlCreateCheckbox("AutoPots", 280, 392, 97, 17) $AutoAttack = GUICtrlCreateCheckbox("AutoAttack", 280, 408, 97, 17) $AutoLoot = GUICtrlCreateCheckbox("AutoLoot", 280, 424, 97, 17) $AutoFish = GUICtrlCreateCheckbox("AutoFish", 280, 440, 97, 17) $Market = GUICtrlCreateCheckbox("MarketMode", 280, 456, 97, 17) GUICtrlCreateButton("Start", 144, 504, 145, 41, 0) GUICtrlSetOnEvent(-1, "_Start") GUICtrlCreateButton("Save", 0, 504, 139, 41, 0) GUICtrlSetOnEvent(-1, "_Profile") GUICtrlCreateButton("Exit", 296, 504, 123, 41, 0) GUICtrlSetOnEvent(-1, "_Exit") GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func _GenerateList($hListToUse, $vDirectoryToSearch) $aFileList = _FileListToArray($vDirectoryToSearch, "*" &$extension) For $i = 1 To UBound($aFileList) - 1 $removeini = String($aFileList[$i]) $removed = StringTrimRight($removeini, 4) GUICtrlSetData($hListToUse, $removed) Next EndFunc ;==>_GenerateList Func _LoadProfile() $Loaded = 1 $File = _GUICtrlListBox_GetText($ListView1, _GUICtrlListBox_GetCurSel($ListView1)) $YourIni = @ScriptDir & "\Profiles\" & $File & $extension GUICtrlSetData($Input1, IniRead($YourIni, "Settings", "Acccount", "")) GUICtrlSetData($Input2, IniRead($YourIni, "Settings", "Password", "")) If Not IniRead($YourIni, "Settings", "Server", "") = "" Then _GUICtrlComboBox_SetCurSel($Combo1, IniRead($YourIni, "Settings", "Server", "")) EndIf If Not IniRead($YourIni, "Settings", "Channel", "") = "" Then _GUICtrlComboBox_SetCurSel($Combo2, IniRead($YourIni, "Settings", "Channel", "")) EndIf GUICtrlSetState($AutoLogIn, _IniToGui(IniRead($YourIni, "Settings", "AutoLogIn", 1))) GUICtrlSetState($AutoPots, _IniToGui(IniRead($YourIni, "Settings", "AutoPots", 1))) GUICtrlSetState($AutoAttack, _IniToGui(IniRead($YourIni, "Settings", "AutoAttack", 1))) GUICtrlSetState($AutoLoot, _IniToGui(IniRead($YourIni, "Settings", "AutoLoot", 1))) GUICtrlSetState($AutoFish, _IniToGui(IniRead($YourIni, "Settings", "AutoFish", 1))) GUICtrlSetState($Market, _IniToGui(IniRead($YourIni, "Settings", "MarketMode", 1))) EndFunc Func _Start() EndFunc Func _Profile() If $Loaded = 0 Then GUICreate("Profile", 195, 140, 193, 125) GUICtrlCreateLabel("Name your Profile:", 40, 24, 114, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Profile = GUICtrlCreateInput("", 24, 56, 145, 21) GUICtrlCreateButton("Save", 96, 96, 75, 25, 0) GUICtrlSetOnEvent(-1, "_Save") GUISetState(@SW_SHOW) Else _Save() Endif EndFunc Func _Save() If $Loaded = 0 Then $temp = GUICtrlRead($Profile) GUIDelete("") $name = @ScriptDir & "\Profiles\" & $temp & $extension _FileCreate($name) Else $name = $YourIni EndIf IniWrite($name, "Settings", "Acccount", GUICtrlRead($Input1)) IniWrite($name, "Settings", "Password", GUICtrlRead($Input2)) IniWrite($name, "Settings", "Server", GUICtrlRead($Combo1)) IniWrite($name, "Settings", "Channel", GUICtrlRead($Combo2)) IniWrite($name, "Settings", "AutoLogIn", _GUIToIni($AutoLogIn)) IniWrite($name, "Settings", "AutoPots", _GUIToIni($AutoPots)) IniWrite($name, "Settings", "AutoAttack", _GUIToIni($AutoAttack)) IniWrite($name, "Settings", "AutoLoot", _GUIToIni($AutoLoot)) IniWrite($name, "Settings", "AutoFish", _GUIToIni($AutoFish)) IniWrite($name, "Settings", "MarketMode", _GUIToIni($Market)) _GenerateList($ListView1, $ProfileDirectory) EndFunc Func _IniToGUI($A) If $A = 1 Then Return $GUI_CHECKED Else Return $GUI_UNCHECKED EndIf EndFunc ;==>_IniToGui Func _GUIToIni($CheckBox) If GUICtrlRead($CheckBox) = $GUI_CHECKED Then Return 1 Else Return 0 EndIf EndFunc Func _Exit() Exit EndFunc
jerwin Posted July 4, 2008 Author Posted July 4, 2008 wew... this is nice well thanx... i going to start my BOT now... actually i have the script already but i think its not perfect... i wish u can help me someday i got problem ... muttley anyway thank you very much for helping me..... [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
tlokz Posted July 4, 2008 Posted July 4, 2008 (edited) wew... this is nice well thanx... i going to start my BOT now... actually i have the script already but i think its not perfect... i wish u can help me someday i got problem ... anyway thank you very much for helping me.....NP, if u need any help u can just PM mealso I looked up the game its for, it I downloaded it muttley LOL would be appreciated to see your finished work Edited July 4, 2008 by tlokz
jerwin Posted July 4, 2008 Author Posted July 4, 2008 NP, if u need any help u can just PM mealso I looked up the game its for, it I downloaded it muttley LOL would be appreciated to see your finished workok but the game i playing is a korean version and i dont know if u can register coz they just give me accounts in that game.... anyway i wish u can play so u can help me develop this.... ok i go back to work i need to finish my script..... thanx again i will pm u when i need help can i?? tahnx again.. [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
tlokz Posted July 4, 2008 Posted July 4, 2008 ok but the game i playing is a korean version and i dont know if u can register coz they just give me accounts in that game.... anyway i wish u can play so u can help me develop this.... ok i go back to work i need to finish my script..... thanx again i will pm u when i need help can i?? tahnx again..Yup, u can muttley
jerwin Posted July 4, 2008 Author Posted July 4, 2008 Yup, u can muttleyok sir pls check ur mssgs i go pm u now coz i really nid help dont worry i will just ask for help not to work on my script i dont want to abuse u... thanx [font="Arial Black"]Looking for a partner in making Perfect Bot for DEKARONPm me if you wanna join.....[/font]
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now