The characters looks good on the PacketLogger UI?Quote:
@[Only registered and activated users can see links. Click Here To Register...] I attached screenshot. Name of the pet should be Krzakogon^Szczęścia.
var net = require('net');
var fs = require('fs');
var iconv = require('iconv-lite');
iconv.skipDecodeWarning = true;
var client = new net.Socket();
client.setEncoding('binary');
client.connect(60174, '127.0.0.1', function() {
console.log('Connected');
client.write('Hello, server! Love, Client.');
});
client.on('data', function(data) {
data.split('\r').forEach(packet => {
const splittedPacket = packet.split(' ');
if (splittedPacket.length === 1) return;
if (splittedPacket[1][0] === '/') {
const res = iconv.decode(data, 'ISO-8859-2');
console.log(res);
fs.writeFileSync("chat.txt", res);
}
});
});
/*
Krzakogon^Szczęścia ™ ę ś ć ó
*/
Nice, I tried it and worked.Quote:
@[Only registered and activated users can see links. Click Here To Register...] Finally I got it. Use iconv and decode it as Windows-1250 :D
I think 8bitlocal and Windows-1250 is solution.
At least for Polish client.
While True
Bet()
EQCheck()
PacketLogger_Handle($Socket, ProcessPackets)
WEnd
Func ProcessPackets($Type, $PacketSplitted, $FullPacket)
$e_info = ""
ConsoleWrite($PacketSplitted[0] & [MENTION=3576271]CRLF[/MENTION]@
If $PacketSplitted[0] = "e_info" Then
$e_info = $FullPacket
ConsoleWrite($FullPacket & [MENTION=3576271]CRLF[/MENTION]@
EndIf
;If StringInStr($e_info, "1.16") or StringInStr($e_info, "1.15") Then ;Crit dmg or crit chance
;EndIf
EndFunc
Func Bet()
;PacketLogger_SendPacket($Socket,"up_gr 7 0 0") ;bet Item
Sleep(5500)
EndFunc
Func EQCheck()
PacketLogger_SendPacket($Socket,"eqinfo 1 0")
EndFunc
Use something like a timer that runs the function later, I think with "AdlibRegister("YourFunctionName", <Milliseconds>)"Quote:
I used consolewrite in the code only to check if the packets are fetched every 5,5sec or all the time.
It builds on the code from the autoit example
Here my crap code :D
HTML Code:While True Bet() EQCheck() PacketLogger_Handle($Socket, ProcessPackets) WEnd Func ProcessPackets($Type, $PacketSplitted, $FullPacket) $e_info = "" ConsoleWrite($PacketSplitted[0] & [MENTION=3576271]CRLF[/MENTION]@ If $PacketSplitted[0] = "e_info" Then $e_info = $FullPacket ConsoleWrite($FullPacket & [MENTION=3576271]CRLF[/MENTION]@ EndIf ;If StringInStr($e_info, "1.16") or StringInStr($e_info, "1.15") Then ;Crit dmg or crit chance ;EndIf EndFunc Func Bet() ;PacketLogger_SendPacket($Socket,"up_gr 7 0 0") ;bet Item Sleep(5500) EndFunc Func EQCheck() PacketLogger_SendPacket($Socket,"eqinfo 1 0") EndFunc
Func Bet()
PacketLogger_SendPacket($Socket,"up_gr 7 0 0") ;bet Item
AdlibRegister("DoSmthElseAfter5500Milliseconds", 5500) ;Start 5.5s interval
EndFunc
Func DoSmthElseAfter5500Milliseconds()
; This will run after 5,5 seconds
AdlibUnRegister("DoSmthElseAfter5500Milliseconds") ;Stop 5.5s interval, otherwise it would run this function again after 5,5 seconds
EndFunc
Ive done it with the timer and it works like a charm!! Thanks!!Quote:
So you could to smth. like this: (Crappier solution but easier to understand I guess)
The better solution would be to work with a Timestamp, check in the While loop above if 5.5s passed and run the function ([Only registered and activated users can see links. Click Here To Register...]) but in this case it should be enough for you.HTML Code:Func Bet() PacketLogger_SendPacket($Socket,"up_gr 7 0 0") ;bet Item AdlibRegister("DoSmthElseAfter5500Milliseconds", 5500) ;Start 5.5s interval EndFunc Func DoSmthElseAfter5500Milliseconds() ; This will run after 5,5 seconds AdlibUnRegister("DoSmthElseAfter5500Milliseconds") ;Stop 5.5s interval, otherwise it would run this function again after 5,5 seconds EndFunc
$iMilliSec = 5500
$hTimer = TimerInit()
While True
PacketLogger_Handle($Socket, ProcessPackets)
If TimerDiff($hTimer) > $iMilliSec Then
Bet()
$hTimer = TimerInit()
EndIf
WEnd