You last visited: Today at 11:27
Advertisement
auto alchemy (autoit) code .. Copy
Discussion on auto alchemy (autoit) code .. Copy within the SRO Private Server forum part of the Silkroad Online category.
05/01/2012, 20:55
#1
elite*gold: 0
Join Date: May 2007
Posts: 128
Received Thanks: 21
auto alchemy (autoit) code .. Copy
Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <GuiEdit.au3>
#include <GUIListBox.au3>
#Region ### START Koda GUI section ### Form=
$Waittime = IniRead("config.ini", "SS Alchemy", "WaitTimeIfError", "2000")
$Maxplus = IniRead("config.ini", "SS Alchemy", "MaxPlus", "5")
$Beep1 = IniRead("config.ini", "SS Alchemy", "Beep1", "0")
$Beep2 = IniRead("config.ini", "SS Alchemy", "Beep2", "0")
$SS = GUICreate("SS SBot Alchemy V1 by (simplescripting.blogspot.com)", 517, 296, 216, 144)
GUISetBkColor(0x000000)
$ListView = GUICtrlCreateListView("", 0, 0, 250, 294, BitOR( $LVS_LIST, $WS_VSCROLL))
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
Global $listviewMenu = GUICtrlCreateContextMenu($listview)
Global $Ref = GUICtrlCreateMenuItem("Refresh", $listviewMenu)
Global $Setchar = GUICtrlCreateMenuItem("Use this sbot for alchemy", $listviewMenu)
$Label1 = GUICtrlCreateLabel("SBot Status:", 256, 8, 63, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Standing by", 320, 8, 188, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Label3 = GUICtrlCreateLabel("CharName:", 256, 24, 57, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Label4 = GUICtrlCreateLabel("None", 312, 24, 196, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Graphic1 = GUICtrlCreateGraphic(256, 40, 260, 8)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label5 = GUICtrlCreateLabel("Max plus", 256, 64, 46, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput($Maxplus, 304, 64, 33, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label6 = GUICtrlCreateLabel("Wait to restart if error for", 256, 96, 117, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Input2 = GUICtrlCreateInput($Waittime, 376, 96, 57, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label7 = GUICtrlCreateLabel("Ms", 432, 96, 18, 17)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
$Checkbox1 = GUICtrlCreateCheckbox("play sound if out of elixirs or lucky or no item", 256, 136, 250, 17)
GUICtrlSetBkColor(-1, 0xA6CAF0)
If $Beep1 = 1 Then GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox3 = GUICtrlCreateCheckbox("Play sound if done", 256, 168, 113, 17)
GUICtrlSetBkColor(-1, 0xA6CAF0)
If $Beep2 = 1 Then GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Button1 = GUICtrlCreateButton("Save settings", 328, 240, 99, 17, $WS_GROUP)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Start!", 256, 272, 123, 17, $WS_GROUP)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Stop!", 384, 271, 123, 17, $WS_GROUP)
GUICtrlSetColor(-1, 0xA6CAF0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$SbotEditPlus = "Edit78"
$RICHEDIT = "RICHEDIT13"
_ref()
While 1
sleep(50)
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
IniWrite("config.ini", "SS Alchemy", "WaitTimeIfError", _GUICtrlEdit_GetText($Input2))
IniWrite("config.ini", "SS Alchemy", "MaxPlus", _GUICtrlEdit_GetText($Input1))
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
$CheckboxChecked = 1
Else
$CheckboxChecked = 0
EndIf
IniWrite("config.ini", "SS Alchemy", "Beep1", $CheckboxChecked)
If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
$CheckboxChecked = 1
Else
$CheckboxChecked = 0
EndIf
IniWrite("config.ini", "SS Alchemy", "Beep2", $CheckboxChecked)
case $Button2
If _GUICtrlEdit_GetText($Label4) = "None" Then
MsgBox(64,"SS Msg","Error! You must set the char to use (Dumb Shit)")
Else
$MaxPlus = _GUICtrlEdit_GetText($Input1)
GUICtrlSetData($Label2,"Max plus is " & $MaxPlus)
ControlSetText($Winlistsbot, "", $RICHEDIT, "SS Alchemy Started max plus " & $MaxPlus & @CRLF)
ControlSetText($Winlistsbot, "", $SbotEditPlus, $MaxPlus)
sleep(100)
ControlClick($Winlistsbot, "", "Start!")
sleep(2000)
ControlGetText($Winlistsbot, "Goal: +" & $MaxPlus & "!", $RICHEDIT)
If @error Then
ControlClick($Winlistsbot, "", "Stop training")
MsgBox(64,"SS Msg","Error! SBot alchemy stoped! problem (Error code 1)")
Else
$Error = 0
$Problem = 0
$ProblenMsg = "ERROR!"
$Done = 0
$NoItem = 0
While 1
sleep(100)
_LookForError()
If $Problem = 1 Then
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
Beep(1000, 800)
EndIf
GUICtrlSetData($Label2, $ProblenMsg & " Standing by")
ExitLoop
EndIf
If $Done = 1 Then
If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
Beep(1000, 800)
EndIf
GUICtrlSetData($Label2, "Grats your item is +" & $MaxPlus)
ExitLoop
EndIf
If $NoItem = 1 Then
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
Beep(1000, 800)
EndIf
GUICtrlSetData($Label2, "Error no item ) :")
ExitLoop
EndIf
If $Error = 1 Then
GUICtrlSetData($Label2, "Fixing Eror!")
ControlClick($Winlistsbot, "", "Stop training")
sleep(_GUICtrlEdit_GetText($Input2))
ControlSetText($Winlistsbot, "", $RICHEDIT, "SS Alchemy Started max plus " & $MaxPlus)
ControlClick($Winlistsbot, "", "Start!")
$Error = 0
GUICtrlSetData($Label2,"Max plus is " & $MaxPlus)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button3
ControlClick($Winlistsbot, "", "Stop training")
GUICtrlSetData($Label2, "Standing by")
ExitLoop
EndSwitch
WEnd
EndIf
EndIf
case $Setchar
$Winlistsbot = (GUICtrlRead(GUICtrlRead($listview)))
$SplitArr=StringSplit($Winlistsbot,"]")
$clientb4=$SplitArr[1]
If @error Then
MsgBox(64,"SS Msg","Error! Make sure you clicked the char! (Dumb Shit)")
Else
$SplitArr=StringSplit($clientb4,"[")
$client=$SplitArr[2]
GUICtrlSetData($Label4,$client)
EndIf
case $Ref
_ref()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _LookForError()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; errors
ControlGetText($Winlistsbot, "Autoalchemy: Stopped alchemy due to an error", $RICHEDIT)
If @error Then
;nothing
Else
$Error = 1
EndIf
ControlGetText($Winlistsbot, "Autoalchemy: Stopping automatic alchemy function due to alchemy timeout!", $RICHEDIT)
If @error Then
;nothing
Else
$Error = 1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; problems
ControlGetText($Winlistsbot, "Autoalchemy: Stopping automatic alchemy function! No Elixirs left!", $RICHEDIT)
If @error Then
;nothing
Else
$Problem = 1
$ProblenMsg = "No Elixirs"
EndIf
ControlGetText($Winlistsbot, "Autoalchemy: Stopping automatic alchemy function. No lucky powders left!", $RICHEDIT)
If @error Then
;nothing
Else
$Problem = 1
$ProblenMsg = "No lucky"
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;done
ControlGetText($Winlistsbot, "Alchemy success! Plus: " & $MaxPlus, $RICHEDIT)
If @error Then
;nothing
Else
$Done = 1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;no item
ControlGetText($Winlistsbot, "Autoalchemy: Cannot find item", $RICHEDIT)
If @error Then
;nothing
Else
$NoItem = 1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;end of no item
EndFunc
Func _ref()
opt("WinDetectHiddenText",1)
_GUICtrlListView_BeginUpdate($listview)
_GUICtrlListView_DeleteAllItems($listview)
$Client = WinList("[CLASS:wxWindowClassNR]" , "Connected")
If $Client[0][0] > 0 Then
For $X = 1 To $Client[0][0]
GUICtrlCreateListViewItem($Client[$X][0], $listview)
Next
Else
GUICtrlCreateListViewItem("No Clients Found", $listview)
EndIf
_GUICtrlListView_EndUpdate($listview)
opt("WinDetectHiddenText",0)
EndFunc
Can any code editor or programmer change this tool to work in Mbot .. or just to be alchemy prog only ???? ....thx
05/01/2012, 21:03
#2
elite*gold: 325
Join Date: Dec 2008
Posts: 14,546
Received Thanks: 8,721
I've put the code in a spoiler.
05/01/2012, 21:08
#3
elite*gold: 0
Join Date: Jan 2012
Posts: 1,867
Received Thanks: 1,091
No , mBot isnt coded by Auto it so this code is useless ..
05/01/2012, 21:14
#4
elite*gold: 0
Join Date: Jul 2011
Posts: 1,189
Received Thanks: 532
"config.ini"
05/01/2012, 21:18
#5
elite*gold: 0
Join Date: May 2007
Posts: 128
Received Thanks: 21
ok .. thx all ^^
Auto Alchemy?
05/04/2012 - Silkroad Online - 5 Replies
Hello,
I just started SRO one week ago after an one year break. Now im wondering if there is any Auto Alchemy Tool out right now.
greetz
Auto Copy, Auto Nochmal starten^^ [TUT gesucht]
09/18/2011 - General Coding - 9 Replies
Hey.
ich suche ein TUT bzw. Source, das Automatisch eine .dll aus seinem Ordner in den system32-Ordner kopiert, damit die ganzen "Noobs" die sich damit nicht auskennen, nicht alles selber machen müssen (.dll in system32 verschieben).
Dann wenn es die .dll in den system32 Ordner verschoeben/kopiert hat, sollte sich das Programm am besten nochmal Automatisch starten.
Ich hoffe ich bekomme so schnell wie möglich eine Nette Antwort!
AutoIT - Copy/Delete
09/30/2010 - AutoIt - 11 Replies
Hallo Community!
Ich habe mal eine Frage bezüglich AutoIT (Falls ich mich im Themenbereich geirrt habe^^).
Ich möchte ein Programm coden (ganz normal als GUI und so), möchte aber nicht das irgendjemand die compilierte (Wird das so geschrieben??) .exe Datei kopiert. Das bedeutet, dass das Programm sich selbst löschen (so, dass es auch nicht mehr im Papierkorb vorhanden ist) soll, wenn der User auf kopieren klickt.
Es wäre auch schön, wenn das Programm sich einfach nur sperrt.
Freue mich auf...
Auto Alchemy
05/13/2010 - Silkroad Online - 4 Replies
Found a couple of threads that dated back from 2008-2009, so decided to make a new one.
Is there currently any bot equipped with an auto alchemy function? SBot's auto alchemy function got disabled and I could really use one.
When my storage's full of elixirs and I want to make some noobgear +3, it was very easy to just put 3 and click start and wait instead of all the manual work. :p
Auto Alchemy?
06/05/2008 - Silkroad Online - 3 Replies
i seen a ss of this program and i was wondering where i could find this program if it exist still?
http://img389.imageshack.us/img389/4755/aapk6.jpg
EDIT: makes weapons and stuff +5 first try?
All times are GMT +2. The time now is 11:28 .
auto alchemy (autoit) code .. Copy
