Fuse-O-Mat [vSRO Alchemy Tool]

Gamer_94 · 23. April 2012

E

kuhkuh schrieb:

Ich kann bei Bedarf einen Loader dafür schreiben. Aber zuerst muss ich mein anderes Projekt fertigstellen

Kuh :>

es besteht immer noch bedarf wenn du lust hast kannst du das gerne tun^^
geht es denn überhaupt ohne lucky? oder macht das prog dann einfach gar nix

!LLeGaL1337 · 24. April 2012

Ich kriege das bei GeSro i.wie nicht hin

schadowhunter · 24. April 2012

Leute ich bin z.Z. leider etwas eingespannt und habe deshalb keine Zeit auf einzelne Fragen einzugehen. Das nicht-Funktionieren kann viele Gründe haben. Ich werde mir nicht jeden einzelnen Privatserver selber herunterladen um zu gucken warum es jetzt auf xyzSRO nicht funktioniert. Ich habe eben zum Spaß noch einmal geetestet, es läuft auf ValentineSRO und sollte somit auch auf jedem anderen vSRO Server funktionieren.

Im Zweifelfall: modifiziert euch das Tool damit es auf eurem Server funktioniert. Hier ist nochmal der AutoIt Code zur freien Verwendung für alle:

Spoiler anzeigen

C

#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <EditConstants.au3>
#include <String.au3>
;Zeug
$wintitel = "Fuse-O-Mat v1.1"
$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 bis +",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("Elexiere übrig: ",20,100)
$elexiere_box = GUICtrlCreateInput("n/a",150,100,30,20,$ES_ReadOnly)
GUICtrlCreateLabel("Lucky Powder übrig: ",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&" - Tool gestartet...",$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 ist +"&$plus, $liste)
_GUICtrlListView_Scroll($liste,0,20)
If $plus = GUICtrlRead($plus_combo) then
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Gewünsches + erreicht!", $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 entdeckt! Gestopped.", $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&" - Elexiere alle!",$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 alle!",$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 gestartet",$liste)
_GUICtrlListView_Scroll($liste,0,20)
GUICtrlSetData($start_btn, "Stopp")
EndIf
EndSwitch
If $fusen = True And $fertig = True then
$fertig = false
GUICtrlCreateListViewItem(@HOUR&":"&@MIN&":"&@SEC&" - Am fusen...", $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

Alles anzeigen

Bitte ebachtet, dass der letzte Teil (die Parse Funktionen) nicht von mir sind sondern von jremy (epvpers). Gebt ihm also Credits wenn ihr etwas damit macht...

!LLeGaL1337 · 24. April 2012

Ich kriege das bei GeSro nciht hin , wo muss ich was für eine IP und welchen Port reinschreiben ?

kuhkuh · 24. April 2012

@Vorposter:
Hast du TeamViewer? Wenn ja -> Schick mit eine PM mit ID und Pass.

!LLeGaL1337 · 24. April 2012

wann bist du denn Online?

kuhkuh · 25. April 2012

Tagsüber ab 16 Uhr

!LLeGaL1337 · 26. April 2012

Hmm .. ok

seryoga · 26. April 2012

kann mir jemand sagen wie das bei wingsro funzt? starte den phconnector da steht dann nur login und world server now online, dann starte ich den loader, dann das toll, klicke auf launch beim loader, logge mich ein, sortiere das inventar und drücke beim tool auf start, aber es geht nicht, der balken wird voll und nix passiert. beim phconnector habe ich folgende ip eingegeben : 178.238.234.99

kann mir einer sagen, was ich falsch mache?

lG

h4rdcor3 · 26. April 2012

So sieht meine config aus

Code

[phConnector]
IP=188.132.228.75 <---- durch deine ersetzen
Port=15779
LoginListenPort=15778
WorldListenPort=15777
BotPort=22580
ServerBlock=
ClientBlock=
Dev=0

Edx Loader starten bei redirect Gateway Server einen hacken rein machen > erstes feld 127.0.0.1 zweites Feld 15778
Müsste normal gehen

trytokillme · 26. April 2012

Falsch da kommt nicht seine ip rein sondern die von dem Server wo er spielt

h4rdcor3 · 26. April 2012

Das meinte ich, ich habs nur falsch gesagt. Er hat oben die ip hingeschrieben. Die meinte ich..

bubibiber · 27. April 2012

woher krieg ich die ip vom server?

trytokillme · 27. April 2012

Aus dem edxLoader5 wenn du da den SRO Ordner addest von deinem PServer. Dort siehst du dann die IP!

kuhkuh · 27. April 2012

bubibiber schrieb:

woher krieg ich die ip vom server?

Entweder mit dem edxLoader.

Oder:
Ausführen-> cmd.exe (Als Admin starten) -> "netstat -b" eingeben -> Die IP findet ihr dann beim Prozess "sro_client.exe" (Remoteadresse).

Wichtig:
Ihr braucht die LoginServerIP ! Deshalb solltet ihr das beim LoginScreen machen.

bubibiber · 27. April 2012

alles klar danke, und welchen port muss ich eingeben beim loader

kuhkuh · 27. April 2012

bubibiber schrieb:

alles klar danke, und welchen port muss ich eingeben beim loader

Den Port, der in der phConnector.ini bei LoginListenPort steht.

!LLeGaL1337 · 28. April 2012

Ich kriege das nicht hin Hilfe bitte !

bubibiber · 28. April 2012

mit der version von shadow hab ich keinerlei probleme.
jedoch mit der version von dir kuhkuh, da steht connection error!!!
ich brauch mindestens +11, kann mir jemand bei diesem problem behilflich sein?

!LLeGaL1337 · 30. April 2012

Ich kriege das nicht zum Laufen bei GeSro.
Ich änder in der phpconnector.ini die IP zu der GeSro ip.
Dann starte ich den Loader und starte den client damit... da tut sich beim phconnector aber nichts neues.. undder fuser geht auch nicht...

Teilen