|
You last visited: Today at 04:54
Advertisement
[Release] Vsro Auto Alchemy Tool
Discussion on [Release] Vsro Auto Alchemy Tool within the SRO PServer Guides & Releases forum part of the SRO Private Server category.
05/29/2012, 15:28
|
#31
|
elite*gold: 0 
Join Date: Apr 2012
Posts: 5
Received Thanks: 0
|
Quote:
Originally Posted by stefsika
Yea i didn`t changed anything, only the ip and port..
Here is the source code if any1 wants to play with it 
Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <EditConstants.au3>
#include <String.au3>
;Zeug
$wintitel = "Auto fuser"
$fusen = False
$fertig = True
$alle = false
;Load from Ini
$alchemy_packet = IniRead("settings.ini","opcodes","alchemy","")
$result_packet = IniRead("settings.ini","opcodes","result","")
$invupdate_packet = IniRead("settings.ini","opcodes","inventory_update","")
$slotclean_packet = IniRead("settings.ini","opcodes","slot_clean","")
;GUI
$fenster = GUICreate(""&$wintitel,300,400)
GUICtrlCreateLabel("Fuse +",20,20)
$plus_combo = GUICtrlCreateCombo("01",75,18,40,20)
GUICtrlSetData(-1, "02|03|04|05|06|07|08|09|10")
$start_btn = GUICtrlCreateButton("Start",20,50,100,40)
GUICtrlCreateLabel("Elexirs: ",20,100)
$elexiere_box = GUICtrlCreateInput("n/a",150,100,30,20,$ES_ReadOnly)
GUICtrlCreateLabel("Lucky Powder: ",20,120)
$powder_box = GUICtrlCreateInput("n/a",150,120,30,20,$ES_ReadOnly)
$leiste = GUICtrlCreateProgress(20,150,260,20)
$liste = GUICtrlCreateListView("Log",10,180,280,210)
_GUICtrlListView_SetColumnWidth($liste,0,250)
$header = HWnd(_GUICtrlListView_GetHeader($liste))
ControlDisable($fenster, "", $header)
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Start Tool...",$liste)
GUISetState()
WinSetOnTop(""&$wintitel,"",1);
;connect to phCOnnector
TCPStartUp()
$socket = TCPConnect("127.0.0.1", 22580)
If $socket > 0 then
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Connected to phConnector...",$liste)
_GUICtrlListView_Scroll($liste,0,20)
Else
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Connection Error!!!",$liste)
_GUICtrlListView_Scroll($liste,0,20)
Sleep(1000)
Exit
EndIf
While 1
$recv = ReadPacket()
$msg = GUIGetMsg()
If $recv<>"" then
$size = Dec(StringMid($recv, 3, 2) & StringMid($recv, 1, 2))
$opcode = StringMid($recv, 7, 2) & StringMid($recv, 5, 2)
$data = StringMid($recv, 13)
BeginParse($data, $size)
;If $opcode = "B150" then ;Alchemy Result
If $opcode = $result_packet then
$ok = ParseByte() ;->01
if $ok= "01" then
$dummy = ParseByte() ;->02
$dummy = ParseByte() ;->01
$iPos = ParseByte() ;->11
$dummy = ParseDWord() ; 00 00 00 00
$iId = ParseDWord() ;
Global $plus = ParseByte() ;->01
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Item is +"&$plus, $liste)
_GUICtrlListView_Scroll($liste,0,20)
If $plus = GUICtrlRead($plus_combo) then
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - succes + succes!", $liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($start_btn, "Start")
$fusen = False
EndIf
GUICtrlSetData($leiste,0)
$fertig = True
Else
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Error Packet ! stopped.", $liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($leiste,0)
GUICtrlSetData($start_btn, "Start")
$fusen = False
EndIF
EndIf
;If $opcode = "3040" then ;Inventar Update
If $opcode = $invupdate_packet then
$iPos = ParseByte() ;->Inv. Pos.
$dummy = ParseByte() ;->kp
$iCount = ParseWord() ;->Anzahl
If $iPos = "0E" Then GUICtrlSetData($elexiere_box, Dec($iCount))
If $iPos = "0F" Then GUICtrlSetData($powder_box, Dec($iCount))
EndIf
;If $opcode = "B034" then ;Slot clean
If $opcode = $slotclean_packet then
$ok = ParseByte() ;->01
$type = ParseByte() ;->0F
if ($ok="01") and ($type="0F") then
$iPos = ParseByte() ;->0E
If $iPos = "0E" Then
$fusen = false
$fertig = True
GUICtrlSetData($elexiere_box, "0")
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Elixirs !",$liste)
_GUICtrlListView_Scroll($liste,0,20)
EndIf
If $iPos = "0F" Then
$fusen = false
$fertig = true
GUICtrlSetData($start_btn, "Start")
GUICtrlSetData($powder_box, "0")
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Lucky Powder !",$liste)
_GUICtrlListView_Scroll($liste,0,20)
EndIf
EndIf
EndIf
EndIf
Switch $msg
Case $GUI_Event_Close
ExitLoop
Case $start_btn
If $fusen = FALSE Then
$fusen = True
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Tool start",$liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($start_btn, "Stop")
EndIf
EndSwitch
If $fusen = True And $fertig = True then
$fertig = false
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - fuse...", $liste)
_GUICtrlListView_Scroll($liste,0,20)
;InjectPacket("7150", "0203030D0E0F")
InjectPacket($alchemy_packet, "0203030D0E0F")
GUICtrlSetData($leiste,20)
sleep(900)
GUICtrlSetData($leiste,40)
sleep(900)
GUICtrlSetData($leiste,60)
sleep(900)
GUICtrlSetData($leiste,80)
sleep(900)
GUICtrlSetData($leiste,100)
EndIf
WEnd
;Read & Inject --------------------------------------------------------------------------------------------------------
Func ReadPacket()
$recv = Hex(Binary(TCPRecv($socket, 2)))
If $recv = "" Then
Return ""
Else
$size = Dec(StringMid($recv, 3, 2) & StringMid($recv, 1, 2))
$recv &= Hex(Binary(TCPRecv($socket, $size+4)))
Return $recv
EndIf
EndFunc
;Parser ----------------------------------------------------------------------------------------------------------------
Func BeginParse($buffer, $size)
Global $globalParseIndex = 1
Global $globalParseSize = $size
Global $globalParseBuffer = $buffer
EndFunc
Func ParseByte()
$result = StringMid($globalParseBuffer, $globalParseIndex, 2)
$globalParseIndex = $globalParseIndex + 2
return $result
EndFunc
Func ParseWord()
$low = ParseByte()
$hi = ParseByte()
return $hi & $low
EndFunc
Func ParseDword()
$low = ParseWord()
$hi = ParseWord()
return $hi & $low
EndFunc
Func ParseQWord()
$low = ParseDword()
$hi = ParseDword()
return $hi & $low
EndFunc
Func ParseAscii($length)
$result = StringMid($globalParseBuffer, $globalParseIndex, $length * 2)
$globalParseIndex = $globalParseIndex + ($length * 2)
$len = StringLen($result)
$strResult = ""
For $i = 1 to $len Step 2
$strResult = $strResult & Chr(Dec(StringMid($result, $i, 2)))
Next
return $strResult
EndFunc
|
Im really bad with coding, can you help me edit the code so it reaches at least +60 ? Thanks
EDIT: btw i converted that code into exe and when i press start it has an error "Line 7588 (Filedirectory): Error: Unknown function name."
|
|
|
|
05/30/2012, 00:42
|
#32
|
elite*gold: 0
Join Date: Sep 2007
Posts: 405
Received Thanks: 198
|
Quote:
Originally Posted by demonicgod92
Im really bad with coding, can you help me edit the code so it reaches at least +60 ? Thanks
EDIT: btw i converted that code into exe and when i press start it has an error "Line 7588 (Filedirectory): Error: Unknown function name."
|
i just saw , some lines missing, tomorrow imma post one to +15 ...lol
|
|
|
|
|
05/30/2012, 03:10
|
#33
|
elite*gold: 0
Join Date: Apr 2012
Posts: 5
Received Thanks: 0
|
Quote:
Originally Posted by stefsika
i just saw , some lines missing, tomorrow imma post one to +15 ...lol
|
Excellent, many thanks in advance!
|
|
|
|
|
05/30/2012, 17:09
|
#34
|
elite*gold: 0
Join Date: Dec 2007
Posts: 393
Received Thanks: 78
|
what is the right setting for dymer atm? i mean phconnector.ini
edit: already got it
|
|
|
|
|
05/31/2012, 12:04
|
#35
|
elite*gold: 0
Join Date: Sep 2007
Posts: 405
Received Thanks: 198
|
ok here it is working till +15
Quote:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <EditConstants.au3>
#include <String.au3>
;Zeug
$wintitel = "Auto fuser"
$fusen = False
$fertig = True
$alle = false
;Load from Ini
$alchemy_packet = IniRead("settings.ini","opcodes","alchemy","")
$result_packet = IniRead("settings.ini","opcodes","result","")
$invupdate_packet = IniRead("settings.ini","opcodes","inventory_update ","")
$slotclean_packet = IniRead("settings.ini","opcodes","slot_clean","")
;GUI
$fenster = GUICreate(""&$wintitel,300,400)
GUICtrlCreateLabel("Fuse +",20,20)
$plus_combo = GUICtrlCreateCombo("01",75,18,40,20)
GUICtrlSetData(-1, "02|03|04|05|06|07|08|09|10|11|12|13|14|15")
$start_btn = GUICtrlCreateButton("Start",20,50,100,40)
GUICtrlCreateLabel("Elexirs: ",20,100)
$elexiere_box = GUICtrlCreateInput("n/a",150,100,30,20,$ES_ReadOnly)
GUICtrlCreateLabel("Lucky Powder: ",20,120)
$powder_box = GUICtrlCreateInput("n/a",150,120,30,20,$ES_ReadOnly)
$leiste = GUICtrlCreateProgress(20,150,260,20)
$liste = GUICtrlCreateListView("Log",10,180,280,210)
_GUICtrlListView_SetColumnWidth($liste,0,250)
$header = HWnd(_GUICtrlListView_GetHeader($liste))
ControlDisable($fenster, "", $header)
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Start Tool...",$liste)
GUISetState()
WinSetOnTop(""&$wintitel,"",1);
;connect to phCOnnector
TCPStartUp()
$socket = TCPConnect("127.0.0.1", 22580)
If $socket > 0 then
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Connected to phConnector...",$liste)
_GUICtrlListView_Scroll($liste,0,20)
Else
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Connection Error!!!",$liste)
_GUICtrlListView_Scroll($liste,0,20)
Sleep(1000)
Exit
EndIf
While 1
$recv = ReadPacket()
$msg = GUIGetMsg()
If $recv<>"" then
$size = Dec(StringMid($recv, 3, 2) & StringMid($recv, 1, 2))
$opcode = StringMid($recv, 7, 2) & StringMid($recv, 5, 2)
$data = StringMid($recv, 13)
BeginParse($data, $size)
;If $opcode = "B150" then ;Alchemy Result
If $opcode = $result_packet then
$ok = ParseByte() ;->01
if $ok= "01" then
$dummy = ParseByte() ;->02
$dummy = ParseByte() ;->01
$iPos = ParseByte() ;->11
$dummy = ParseDWord() ; 00 00 00 00
$iId = ParseDWord() ;
Global $plus = ParseByte() ;->01
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Item is +"&$plus, $liste)
_GUICtrlListView_Scroll($liste,0,20)
If $plus = GUICtrlRead($plus_combo) then
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - succes + succes!", $liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($start_btn, "Start")
$fusen = False
EndIf
GUICtrlSetData($leiste,0)
$fertig = True
Else
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Error Packet ! stopped.", $liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($leiste,0)
GUICtrlSetData($start_btn, "Start")
$fusen = False
EndIF
EndIf
;If $opcode = "3040" then ;Inventar Update
If $opcode = $invupdate_packet then
$iPos = ParseByte() ;->Inv. Pos.
$dummy = ParseByte() ;->kp
$iCount = ParseWord() ;->Anzahl
If $iPos = "0E" Then GUICtrlSetData($elexiere_box, Dec($iCount))
If $iPos = "0F" Then GUICtrlSetData($powder_box, Dec($iCount))
EndIf
;If $opcode = "B034" then ;Slot clean
If $opcode = $slotclean_packet then
$ok = ParseByte() ;->01
$type = ParseByte() ;->0F
if ($ok="01") and ($type="0F") then
$iPos = ParseByte() ;->0E
If $iPos = "0E" Then
$fusen = false
$fertig = True
GUICtrlSetData($elexiere_box, "0")
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Elixirs !",$liste)
_GUICtrlListView_Scroll($liste,0,20)
EndIf
If $iPos = "0F" Then
$fusen = false
$fertig = true
GUICtrlSetData($start_btn, "Start")
GUICtrlSetData($powder_box, "0")
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Lucky Powder !",$liste)
_GUICtrlListView_Scroll($liste,0,20)
EndIf
EndIf
EndIf
EndIf
Switch $msg
Case $GUI_Event_Close
ExitLoop
Case $start_btn
If $fusen = FALSE Then
$fusen = True
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - Tool start",$liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($start_btn, "Stop")
EndIf
EndSwitch
If $fusen = True And $fertig = True then
$fertig = false
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC& " - fuse...", $liste)
_GUICtrlListView_Scroll($liste,0,20)
;InjectPacket("7150", "0203030D0E0F")
InjectPacket($alchemy_packet, "0203030D0E0F")
GUICtrlSetData($leiste,20)
sleep(900)
GUICtrlSetData($leiste,40)
sleep(900)
GUICtrlSetData($leiste,60)
sleep(900)
GUICtrlSetData($leiste,80)
sleep(900)
GUICtrlSetData($leiste,100)
EndIf
WEnd
;Read & Inject --------------------------------------------------------------------------------------------------------
Func ReadPacket()
$recv = Hex(Binary(TCPRecv($socket, 2)))
If $recv = "" Then
Return ""
Else
$size = Dec(StringMid($recv, 3, 2) & StringMid($recv, 1, 2))
$recv &= Hex(Binary(TCPRecv($socket, $size+4)))
Return $recv
EndIf
EndFunc
Func InjectPacket($opcode, $data, $security = "0100")
$size = Hex(StringLen($data) / 2, 4)
$size = StringMid($size, 3, 2) & StringMid($size, 1, 2)
$opcode = StringMid($opcode, 3, 2) & StringMid($opcode, 1, 2)
$packet = _HexToString($size & $opcode & $security & $data)
TCPSend($socket, $packet)
EndFunc
;Parser ----------------------------------------------------------------------------------------------------------------
Func BeginParse($buffer, $size)
Global $globalParseIndex = 1
Global $globalParseSize = $size
Global $globalParseBuffer = $buffer
EndFunc
Func ParseByte()
$result = StringMid($globalParseBuffer, $globalParseIndex, 2)
$globalParseIndex = $globalParseIndex + 2
return $result
EndFunc
Func ParseWord()
$low = ParseByte()
$hi = ParseByte()
return $hi & $low
EndFunc
Func ParseDword()
$low = ParseWord()
$hi = ParseWord()
return $hi & $low
EndFunc
Func ParseQWord()
$low = ParseDword()
$hi = ParseDword()
return $hi & $low
EndFunc
Func ParseAscii($length)
$result = StringMid($globalParseBuffer, $globalParseIndex, $length * 2)
$globalParseIndex = $globalParseIndex + ($length * 2)
$len = StringLen($result)
$strResult = ""
For $i = 1 to $len Step 2
$strResult = $strResult & Chr(Dec(StringMid($result, $i, 2)))
Next
return $strResult
EndFunc
|
|
|
|
|
|
05/31/2012, 12:34
|
#36
|
elite*gold: 0
Join Date: Apr 2012
Posts: 5
Received Thanks: 0
|
Stefsika i compiled it into an .exe using aut2exe but after i pressed start and the bar finished loading my silkroad just disconnected.
EDIT: the original tool that upgrades to 7 is still working, I think its something to do with the way i compiled it ?
|
|
|
|
|
06/01/2012, 10:56
|
#37
|
elite*gold: 0
Join Date: Feb 2012
Posts: 209
Received Thanks: 49
|
nice but translate it please
|
|
|
|
|
06/01/2012, 18:53
|
#38
|
elite*gold: 0
Join Date: May 2011
Posts: 211
Received Thanks: 14
|
What if destroy weapon? it can take new weapon?
|
|
|
|
|
06/02/2012, 18:10
|
#39
|
elite*gold: 0
Join Date: Aug 2010
Posts: 4
Received Thanks: 0
|
hi stefsika
im not a coder can you make the Fuse-O-Mat.exe +15 or more and send to me.I dont know to edit code of this auto alchemy.Thank you so much.Im playing on server Queen Private thats why i really need this auto alchemy.Plz help me thank you again
|
|
|
|
|
06/02/2012, 20:28
|
#40
|
elite*gold: 0
Join Date: Aug 2009
Posts: 971
Received Thanks: 578
|
Quote:
Originally Posted by billy1983
hi stefsika
im not a coder can you make the Fuse-O-Mat.exe +15 or more and send to me.I dont know to edit code of this auto alchemy.Thank you so much.Im playing on server Queen Private thats why i really need this auto alchemy.Plz help me thank you again
|
i think you only need to change this line for more +
Quote:
|
GUICtrlSetData(-1, "02|03|04|05|06|07|08|09|10|11|12|13|14|15")
|
i saw in other post it was only till 7 = thats mean +7 cuz some1 said it's maximum to +7 , so he added more numbers , now it's to +15 , and this should be all the thing i guess , you don't need to be a coder for this **** , only watch the numbers , the posts and have like 30% of a human normal brain 
gl
|
|
|
|
|
06/02/2012, 22:37
|
#41
|
elite*gold: 130
Join Date: Mar 2008
Posts: 2,485
Received Thanks: 934
|
Quote:
Originally Posted by >>Vamp1re<<
i think you only need to change this line for more +
i saw in other post it was only till 7 = thats mean +7 cuz some1 said it's maximum to +7 , so he added more numbers , now it's to +15 , and this should be all the thing i guess , you don't need to be a coder for this **** , only watch the numbers , the posts and have like 30% of a human normal brain
gl |
I'm not a coder either, but the returning packet changes as the plus value increases/decreases, doesn't it? This will mean that you are able to set the program to +15, but it will give some kind of error. Pure guessing, though.
|
|
|
|
|
06/02/2012, 22:50
|
#42
|
elite*gold: 0
Join Date: Aug 2010
Posts: 4
Received Thanks: 0
|
i couldnt use this auto in Queen server and i really dont know where to change the numbers.I dont know what file to change it.Sorry i think i give up to use this.Have a nice weekend guys.
|
|
|
|
|
06/03/2012, 18:19
|
#43
|
elite*gold: 0
Join Date: Aug 2009
Posts: 971
Received Thanks: 578
|
It's working
|
|
|
|
|
06/04/2012, 01:28
|
#44
|
elite*gold: 0
Join Date: Feb 2009
Posts: 16
Received Thanks: 9
|
This tool seems great, ive been trying to make it work for Perfection but i can't even select the silkroad directory. Says there was an "error parsing the divisions file". Plus im not really a coder so how would i figure out the opcodes the server provides?
noob here xD
|
|
|
|
|
06/04/2012, 02:18
|
#45
|
elite*gold: 0
Join Date: Aug 2010
Posts: 4
Received Thanks: 0
|
Hey Vampire Could you please send me your auto alchemy which is edited to +15 or more and i will try play on Queen server.Thank you if you dont mind.
|
|
|
|
 |
|
Similar Threads
|
[Release] Change Rate Alchemy 3x for vSRO Files
12/24/2023 - SRO PServer Guides & Releases - 24 Replies
USE
UPDATE . set Param2='1682979880',Param3='473720360',Param4='134 944072' where ID='2033'
UPDATE . set Param2='1682979880',Param3='473720360',Param4='134 944072' where ID='2034'
UPDATE . set Param2='1682979880',Param3='473720360',Param4='134 944072' where ID='2035'
UPDATE . set Param2='1682979880',Param3='473720360',Param4='134 944072' where ID='2036'
UPDATE . set Param2='1682979880',Param3='473720360',Param4='134 944072' where ID='2037'
UPDATE . set...
|
[WTS] AllSro Auto Alchemy Tool [INFO INSIDE]
11/30/2015 - Silkroad Online Trading - 6 Replies
Hi everyone,
I would like to introduce you a little allSro Auto Alchemy Tool
Here is the video "how does it work":
Silkroad Auto Alchemy Tool - YouTube
As you can see, it's not a programm, it is a script. This script works good and fine, it fuses your item to +5 (w/o lucky stones, just elixirs and lucky powders, but lucky stones option is addable, contact me if need) then stops and make"Owh Oh" ICQ sound. As any script, this script works only when sro window is active, so you can't just...
|
working auto alchemy tool
07/14/2012 - SRO Private Server - 5 Replies
hi
is there a working auto alchemy tool for private servers
thx for answer
|
auto alchemy tool for vsro
05/04/2012 - SRO Private Server - 2 Replies
is there a working auto alchemy tool for vsro
if yea can you pls post the link
ty
|
[S] Auto Alchemy / Fusing Bot for VSro
04/18/2012 - SRO Private Server - 4 Replies
Hi all together,
i am looking for an Free (not Sbot :-P ) Auto Fusing Bot which can Plus my Items :)
Im playing on a VSro server.
Is there any program i can use for ?
Regards,
Sevve
|
All times are GMT +1. The time now is 04:54.
|
|
![[Release] Vsro Auto Alchemy Tool](https://www.elitepvpers.com/forum/iconimages/sro-pserver-guides-releases/release-vsro-auto-alchemy-tool_ltr.gif){kind=small}
