[01/20/16] Ragnarok Online Philippines Bot - not working
Moderator: Moderators
Re: [01/20/16] Ragnarok Online Philippines Bot - not working
see announcement at the first post
Re: [01/20/16] Ragnarok Online Philippines Bot - not working
melody wrote:Announcement:Requirements:melody wrote:update?, this is not working anymore that's all
> Latest Openkore SVN
Download openkore_ready.zip
> Recvpackets
'Save link as...' rop-recvpackets.txt to '<openkore_path>\tables\kRO\' or '<openkore_path>\tables\kRO_english\'
Server Info:
Server Website - http://main.ragnarokonline.ph/
Facebook Page - https://www.facebook.com/RagnarokPhOfficialModifications:Code: Select all
[Ragnarok Online Philippines] ip 45.35.80.58 port 6900 version 45 master_version 14 serverType kRO_RagexeRE_2013_08_07a serverEncoding Western recvpackets rop-recvpackets.txt charBlockSize 144 clientHash d76418b526ad90732453cdd72f9108ff addTableFolders translated/kRO_english;kRO
Note: Please make a backup of your Openkore
--> Switching to Old Payon map--> Modifying sendMasterLogin (optional)
- Delete '<openkore_path>\fields\payon.fld'
- Rename '<openkore_path>\fields\old_payon.fld' to '<openkore_path>\fields\payon.fld'
- Delete '<openkore_path>\fields\payon.dist' if exists
Note: I think this is optional, it will still work even without modifying the method. I wish that this would be updated on the svn because clienthash packet is always prepended in the masterlogin packet.
Open '<openkore_path>\src\Network\Send.pm' with text editor
Find 'sub sendMasterLogin {'BEFORE wrote: && ($self->{packet_lut}{master_login} = $masterServer->{masterLogin_packet})
) {
$self->sendClientMD5Hash() unless $masterServer->{clientHash} eq ''; # this is a hack, just for testing purposes, it should be moved to the login algo later on
$msg = $self->reconstruct({
switch => 'master_login',
version => $version || $self->version,AFTER wrote: && ($self->{packet_lut}{master_login} = $masterServer->{masterLogin_packet})
) {
# including clientHash in the master_login packet, optional? - melody
if(exists $masterServer->{clientHash}) {
$msg = $self->reconstruct({
switch => 'client_hash',
hash => pack('H32', $masterServer->{clientHash}),
});
}
$msg = $msg . $self->reconstruct({
switch => 'master_login',
version => $version || $self->version,--> Applying Encryption KeysCOMPARE wrote:
Open '<openkore_path>\src\Network\Send\kRO\RagexeRE_2013_08_07a.pm' with text editor
Find '$self->cryptKeys'BEFORE wrote: storage_item_remove 0364
sync 035F
);
$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
# $self->cryptKeys(2116296160, 1031830912, 1585468800);
$self;
}
1;AFTER wrote: storage_item_remove 0364
sync 035F
);
$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
$self->cryptKeys(761751195, 286931511, 1115767425);
$self;
}
1;--> Adding Packet HandlerCOMPARE wrote:
Open '<openkore_path>\src\Network\Receive\kRO\RagexeRE_2013_08_07a.pm' with text editorBEFORE wrote:use strict;
use base qw(Network::Receive::kRO::RagexeRE_2013_05_22);
1;AFTER wrote:use strict;
use base qw(Network::Receive::kRO::RagexeRE_2013_05_22);
sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
# copied from Network\Receive\ServerType0.pm
'090F' => ['actor_connected', 'v C a4 v3 V v11 a4 a2 v V C2 a3 C2 v2 a9 Z*', [qw(len object_type ID walk_speed opt1 opt2 option type hair_style weapon shield lowhead tophead midhead hair_color clothes_color head_dir costume guildID emblemID manner opt3 stance sex coords xSize ySize lv font opt4 name)]],
'0914' => ['actor_moved', 'v C a4 v3 V v5 a4 v6 a4 a2 v V C2 a6 C2 v2 a9 Z*', [qw(len object_type ID walk_speed opt1 opt2 option type hair_style weapon shield lowhead tick tophead midhead hair_color clothes_color head_dir costume guildID emblemID manner opt3 stance sex coords xSize ySize lv font opt4 name)]],
'0915' => ['actor_exists', 'v C a4 v3 V v11 a4 a2 v V C2 a3 C3 v2 a9 Z*', [qw(len object_type ID walk_speed opt1 opt2 option type hair_style weapon shield lowhead tophead midhead hair_color clothes_color head_dir costume guildID emblemID manner opt3 stance sex coords xSize ySize act lv font opt4 name)]],
'09CA' => ['area_spell_multiple3', 'v a*', [qw(len spellInfo)]],
);
$self->{packet_list}{$_} = $packets{$_} for keys %packets;
my %handlers = qw(
actor_connected 090F
actor_moved 0914
actor_exists 0915
area_spell_multiple3 09CA
);
$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
$self;
}
1;Optional:COMPARE wrote:
You can use wxstart.exe alternative to start.exe to have a better user interface
Download wxstart.rar and extract it to your Openkore directory.
unable to download rop-recvpackets.txt