patched OpenKore Oficial WebCheats

[e-nois 0]

pessoal, alguem hospeda os arquivos em algum servidor, pq sempre que eu pego eles da um montão de erros, ja removi as linhas que o SteveToalhovisk falou e continua os erros...

[Basy 0]

Boa mano deu certo Muito obrigado.

[volx12 0]

100% funcionando =D aleluia galera

[SteveToalhovisk 0]

esse receive deu certo aki tenta ele subistitua a linhas q falei por essa:

 

*parse_quest_update_mission_hunt = *Network::Receive::ServerType0::parse_quest_update_mission_hunt_v2;

*reconstruct_quest_update_mission_hunt = *Network::Receive::ServerType0::reconstruct_quest_update_mission_hunt_v2;

[e-nois 0]

pessoal, cmg ta dando o seguinte erro:

[volx12 0]

substitue a penultima e antipenultima linha ou so exclua elas

[e-nois 0]

SteveToalhovisk

eu tbm ja fiz isso, mas aparece esse monte de erros acima...

 

volx12 eu tbm ja fiz isso...

[feldal13 0]

Como faz pra abrir o receive.pm? pq quando eu abro pelo bloco d notas aparece um monte d coisa nada a ver....

[e-nois 0]

pessoal alguem me ajuda?

 

pessoal alguem me ajuda?

[cpaz 0]

pessoal alguem me ajuda?

 

pessoal alguem me ajuda?

 

Não é a pasta completa, é só os 3 arquivos.

Copie o conteúdo e cole dentro dos seus arquivos correspondentes.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Obs:

Se não der certo com vc. Ae terá que espera o saruesley *-* atualizar o Tópico.

[-Cannab1s- 0]

Eu não confiaria em nenhum arquivo postado por demais a não ser o autor do tópico.

[rafaelcanato 0]

O Autor pede pra pra Web Cheats para ser o responsavel pelo Open Kore Oficial e não se liga em manter atualizado... PQP heim...

[volx12 0]

Olha pessoal a pasta onde se encontra os arquivos a src/network/bro la vc alteram se n n vai da certo por isso que ta dano erro

[-Cannab1s- 0]

Verdade... Um bocado de pessoas nas respostas postando soluções e o autor(por responsabilidade do fórum) ausente.

[erb0409 0]

O Autor pede pra pra Web Cheats para ser o responsavel pelo Open Kore Oficial e não se liga em manter atualizado... PQP heim...

 

mais um reclamão... vei dá um trabalho da porra atualizar esses arquivos, tá achando ruim ter que esperar, faça você mesmo!

[Bone-Thug 0]

Pra quem não esta conseguindo ta ae funcionado:

COPIE NO BLOCO DE NOTA E SALVE: COMO bRO.pm e coloque na pasta src/networkReceiver/

 

 

# bRO (Brazil)

package Network::Receive::bRO;

use strict;

use Log qw(message warning error debug);

use base 'Network::Receive::ServerType0';

use Globals qw($messageSender);

 

# Sync_Ex algorithm developed by Fr3DBr

 

sub new {

my ($class) = @_;

my $self = $class->SUPER::new(@_);

 

my %packets = (

 

'0097' => ['private_message', 'v Z24 V Z*', [qw(len privMsgUser flag privMsg)]], # -1

'0932' => ['sync_request_ex'],

'086F' => ['sync_request_ex'],

'07EC' => ['sync_request_ex'],

'0882' => ['sync_request_ex'],

'0811' => ['sync_request_ex'],

'0865' => ['sync_request_ex'],

'0895' => ['sync_request_ex'],

'0960' => ['sync_request_ex'],

'086B' => ['sync_request_ex'],

'0968' => ['sync_request_ex'],

'086E' => ['sync_request_ex'],

'0368' => ['sync_request_ex'],

'093C' => ['sync_request_ex'],

'08A3' => ['sync_request_ex'],

'0862' => ['sync_request_ex'],

'091B' => ['sync_request_ex'],

'094B' => ['sync_request_ex'],

'0942' => ['sync_request_ex'],

'0965' => ['sync_request_ex'],

'0802' => ['sync_request_ex'],

'0924' => ['sync_request_ex'],

'091E' => ['sync_request_ex'],

'0936' => ['sync_request_ex'],

'0939' => ['sync_request_ex'],

'087D' => ['sync_request_ex'],

'0876' => ['sync_request_ex'],

'0360' => ['sync_request_ex'],

'0838' => ['sync_request_ex'],

'0880' => ['sync_request_ex'],

'07E4' => ['sync_request_ex'],

'095B' => ['sync_request_ex'],

'094F' => ['sync_request_ex'],

'0438' => ['sync_request_ex'],

'095E' => ['sync_request_ex'],

'0926' => ['sync_request_ex'],

'092F' => ['sync_request_ex'],

'0919' => ['sync_request_ex'],

'0938' => ['sync_request_ex'],

'091A' => ['sync_request_ex'],

'0872' => ['sync_request_ex'],

'0961' => ['sync_request_ex'],

'0958' => ['sync_request_ex'],

'0861' => ['sync_request_ex'],

'023B' => ['sync_request_ex'],

'087E' => ['sync_request_ex'],

'087F' => ['sync_request_ex'],

'0955' => ['sync_request_ex'],

'0437' => ['sync_request_ex'],

'0860' => ['sync_request_ex'],

'0940' => ['sync_request_ex'],

'0953' => ['sync_request_ex'],

'095D' => ['sync_request_ex'],

'0835' => ['sync_request_ex'],

'08A4' => ['sync_request_ex'],

'0894' => ['sync_request_ex'],

'083C' => ['sync_request_ex'],

'022D' => ['sync_request_ex'],

'089D' => ['sync_request_ex'],

'0949' => ['sync_request_ex'],

'0362' => ['sync_request_ex'],

'0875' => ['sync_request_ex'],

'0937' => ['sync_request_ex'],

'0933' => ['sync_request_ex'],

'091F' => ['sync_request_ex'],

'0923' => ['sync_request_ex'],

'0925' => ['sync_request_ex'],

'088E' => ['sync_request_ex'],

'08A1' => ['sync_request_ex'],

'089A' => ['sync_request_ex'],

'0871' => ['sync_request_ex'],

'087B' => ['sync_request_ex'],

'0899' => ['sync_request_ex'],

'088C' => ['sync_request_ex'],

'0881' => ['sync_request_ex'],

'0896' => ['sync_request_ex'],

'086A' => ['sync_request_ex'],

'0361' => ['sync_request_ex'],

'085D' => ['sync_request_ex'],

'094C' => ['sync_request_ex'],

'035F' => ['sync_request_ex'],

'093D' => ['sync_request_ex'],

'094A' => ['sync_request_ex'],

'0967' => ['sync_request_ex'],

'08A5' => ['sync_request_ex'],

'092E' => ['sync_request_ex'],

);

 

foreach my $switch (keys %packets) {

$self->{packet_list}{$switch} = $packets{$switch};

}

 

return $self;

}

 

sub items_nonstackable {

my ($self, $args) = @_;

 

my $items = $self->{nested}->{items_nonstackable};

 

if($args->{switch} eq '00A4' || # inventory

$args->{switch} eq '00A6' || # storage

$args->{switch} eq '0122' # cart

) {

return $items->{type4};

 

} elsif ($args->{switch} eq '0295' || # inventory

$args->{switch} eq '0296' || # storage

$args->{switch} eq '0297' # cart

) {

return $items->{type4};

 

} elsif ($args->{switch} eq '02D0' || # inventory

$args->{switch} eq '02D1' || # storage

$args->{switch} eq '02D2' # cart

) {

return $items->{type4};

} else {

warning("items_nonstackable: unsupported packet ($args->{switch})!\n");

}

}

 

sub sync_request_ex {

my ($self, $args) = @_;

 

# Debug Log

# message "Received Sync Ex : 0x" . $args->{switch} . "\n";

 

# Computing Sync Ex - By Fr3DBr

my $PacketID = $args->{switch};

 

# Sync Ex Reply Array

my %sync_ex_question_reply = (

'0932' => '092E',

'086F' => '0867',

'07EC' => '089E',

'0882' => '0927',

'0811' => '0898',

'0865' => '08A0',

'0895' => '092A',

'0960' => '089C',

'086B' => '0951',

'0968' => '086C',

'086E' => '0815',

'0368' => '0922',

'093C' => '085E',

'08A3' => '0964',

'0862' => '0934',

'091B' => '0281',

'094B' => '0870',

'0942' => '0954',

'0965' => '092D',

'0802' => '086D',

'0924' => '08A8',

'091E' => '0930',

'0936' => '08AA',

'0939' => '0957',

'087D' => '0959',

'0876' => '094D',

'0360' => '0947',

'0838' => '0363',

'0880' => '0931',

'07E4' => '0366',

'095B' => '091C',

'094F' => '0928',

'0438' => '0956',

'095E' => '095C',

'0926' => '0863',

'092F' => '085C',

'0919' => '0963',

'0938' => '093F',

'091A' => '091D',

'0872' => '0369',

'0961' => '08A6',

'0958' => '095F',

'0861' => '0365',

'023B' => '0897',

'087E' => '08A7',

'087F' => '092C',

'0955' => '0868',

'0437' => '0886',

'0860' => '0941',

'0940' => '092B',

'0953' => '08AB',

'095D' => '0962',

'0835' => '0969',

'08A4' => '0819',

'0894' => '0202',

'083C' => '08A9',

'022D' => '0879',

'089D' => '093A',

'0949' => '088B',

'0362' => '0367',

'0875' => '0877',

'0937' => '0885',

'0933' => '0890',

'091F' => '0874',

'0923' => '093B',

'0925' => '08AC',

'088E' => '088F',

'08A1' => '0866',

'089A' => '096A',

'0871' => '093E',

'087B' => '085B',

'0899' => '08AD',

'088C' => '0817',

'0881' => '0948',

'0896' => '0883',

'086A' => '0878',

'0361' => '085A',

'085D' => '0436',

'094C' => '089B',

'035F' => '0944',

'093D' => '095A',

'094A' => '0950',

'0967' => '0945',

'08A5' => '0929',

'092E' => '0187',

);

 

# Getting Sync Ex Reply ID from Table

my $SyncID = $sync_ex_question_reply{$PacketID};

 

# Cleaning Leading Zeros

$PacketID =~ s/^0+//;

 

# Cleaning Leading Zeros

$SyncID =~ s/^0+//;

 

# Debug Log

# print sprintf("Received Ex Packet ID : 0x%s => 0x%s\n", $PacketID, $SyncID);

 

# Converting ID to Hex Number

$SyncID = hex($SyncID);

 

# Dispatching Sync Ex Reply

$messageSender->sendReplySyncRequestEx($SyncID);

}

 

1;

[MarthGG 0]

Será que alguém pode me ajudar? Estou tentando entrar no bot pela maquina virtual, tá tudo certo, porém a hora que eu deixo o rag na tela dos personagens e abro o openkore, ele da esse seguinte erro

[Bone-Thug 0]

Pra quem não esta conseguindo ta ae funcionado:

COPIE NO BLOCO DE NOTA E SALVE: COMO bRO.pm e coloque na pasta src/network/Send/

 

# bRO (Brazil)

package Network::Send::bRO;

use strict;

use Globals;

use Log qw(message warning error debug);

use Utils qw(existsInList getHex getTickCount getCoordString);

use Math::BigInt;

use base 'Network::Send::ServerType0';

use I18N qw(stringToBytes);

 

sub new {

my ($class) = @_;

my $self = $class->SUPER::new(@_);

 

my %packets = (

'07D7' => ['party_setting', 'V C2', [qw(exp itemPickup itemDivision)]],

'008C' => ['public_chat', 'x2 Z*', [qw(message)]],

'017E' => ['guild_chat', 'x2 Z*', [qw(message)]],

'0108' => ['party_chat', 'x2 Z*', [qw(message)]],

'094E' => ['sync', 'V', [qw(time)]],

'088A' => ['item_drop', 'v2', [qw(index amount)]],

'0891' => ['party_join_request_by_name', 'Z24', [qw(partyName)]], #f

'0864' => ['actor_info_request', 'a4', [qw(ID)]],

'0869' => ['skill_use_location', 'v4', [qw(lv skillID x y)]],

'087C' => ['character_move','a3', [qw(coords)]],

'01B2' => ['shop_open'],

'09CB' => ['private_message', 'x2 Z24 Z*', [qw(privMsgUser privMsg)]],

'087A' => ['storage_item_add', 'v V', [qw(index amount)]],

'0892' => ['map_login', 'a4 a4 a4 V C', [qw(accountID charID sessionID tick sex)]],

'0443' => ['skill_select', 'V v', [qw(why skillID)]],

'02C4' => ['item_take', 'a4', [qw(ID)]],

'0966' => ['actor_action', 'a4 C', [qw(targetID type)]],

'0887' => ['actor_look_at', 'v C', [qw(head body)]],

'0889' => ['homunculus_command', 'v C', [qw(commandType, commandID)]], #f

'0917' => ['storage_item_remove', 'v V', [qw(index amount)]],

'012E' => ['shop_close'],

 

);

 

$self->{packet_list}{$_} = $packets{$_} for keys %packets;

 

my %handlers = qw(

public_chat 008C

private_message 09CB

storage_item_remove 0917

skill_select 0443

actor_action 0966

shop_open 01B2

actor_info_request 0864

actor_look_at 0887

character_move 087C

skill_use_location 0869

sync 094E

map_login 0892

party_chat 0108

buy_bulk_vender 0801

homunculus_command 0889

party_setting 07D7

storage_item_add 087A

party_join_request_by_name 0891

shop_close 012E

item_take 02C4

item_drop 088A

master_login 02B0

guild_chat 017E

 

);

 

$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;

 

return $self;

}

 

# Local Servertype Globals

my $map_login = 0;

my $enc_val3 = 0;

 

sub encryptMessageID

{

my ($self, $r_message, $MID) = @_;

if ($self->{net}->getState() != Network::IN_GAME && !$map_login) { $enc_val1 = 0; $enc_val2 = 0; return; }

if ($map_login) { $map_login = 0; } if ($enc_val1 != 0 && $enc_val2 != 0)

{

my $oldMID = $MID;

my $oldKey = ($enc_val1 >> 8 >> 8) & 0x7FFF;

$enc_val1 = $enc_val1->bmul($enc_val3)->badd($enc_val2) & 0xFFFFFFFF;

$MID = ($MID << 2) if (($MID << 2 << 3 << 6) == 0x04B000); $MID = ($MID ^ (($enc_val1 >>8 >> 8) & 0x7FFF)) &

0xFFFF; $$r_message = pack("v", $MID) . substr($$r_message, 2);

}

}

 

sub sendStoragePassword {

my $self = shift;

# 16 byte packed hex data

my $pass = shift;

# 2 = set password ?

# 3 = give password ?

my $type = shift;

my $msg;

if ($type == 3) {

$msg = pack("v v", 0x893, $type).$pass.pack("H*", "EC62E539BB6BBC811A60C06FACCB7EC8");

} elsif ($type == 2) {

$msg = pack("v v", 0x893, $type).pack("H*", "EC62E539BB6BBC811A60C06FACCB7EC8").$pass;

} else {

ArgumentException->throw("The 'type' argument has invalid value ($type).");

}

$self->sendToServer($msg);

}

 

sub sendMapLogin

{

my ($self, $accountID, $charID, $sessionID, $sex) = @_;

my $msg;

 

$sex = 0 if ($sex > 1 || $sex < 0); # Sex can only be 0 (female) or 1 (male)

 

if ( $map_login == 0 ) { PrepareKeys(); $map_login = 1; }

 

# Reconstructing Packet

$msg = $self->reconstruct({

switch => 'map_login',

accountID => $accountID,

charID => $charID,

sessionID => $sessionID,

tick => getTickCount,

sex => $sex,

});

 

$self->sendToServer($msg);

debug "Sent sendMapLogin\n", "sendPacket", 2;

}

 

sub sendHomunculusCommand

{

my ($self, $command, $type) = @_; # $type is ignored, $command can be 0:get stats, 1:feed or 2:fire

 

$self->sendToServer($self->reconstruct({

switch => 'homunculus_command',

commandType => $type,

commandID => $command,

}));

 

debug "Sent Homunculus Command $command", "sendPacket", 2;

}

 

sub sendPartyJoinRequestByName

{

my ($self, $name) = @_;

 

$self->sendToServer($self->reconstruct({

switch => 'party_join_request_by_name',

partyName => stringToBytes ($name),

}));

 

debug "Sent Request Join Party (by name): $name\n", "sendPacket", 2;

}

 

sub PrepareKeys()

{

# K

$enc_val1 = Math::BigInt->new('0x1D2249FA');

# M

$enc_val3 = Math::BigInt->new('0x7DA62897');

# A

$enc_val2 = Math::BigInt->new('0x25586B88');

}

 

1;

[Persever 0]

" Um erro ocorreu enquanto o interpretador de mensagens do serverType 'bRo' carregava: Carn't find string terminator ")" anywhere before EOF at srcNetwork/Send/bRO.pm line 42. Compilation failed in require at (eval 393) line 1.

BeGIN failed--compilation aborted at (eval 393) line 1."

[vanessafb 0]

Aee deu certo \o/, a do CPAZ deu certo aqui, mais tive que apagar aquelas duas ultimas linhas do receive pra dar certo, mais o propio openkore que avisa onde que esta o erro.

[MarthGG 0]

Será que alguém pode me ajudar? Estou tentando entrar no bot pela maquina virtual, tá tudo certo, porém a hora que eu deixo o rag na tela dos personagens e abro o openkore, ele da esse seguinte erro

 

alguem pode me ajudar? =//

[rafaelcanato 0]

Sera que ate amanha ja sera publicado a Atualização ???

[insideyourbrain 0]

obrigado, rodando normalmente ;)

[volx12 0]

pesoal so subistituir os itens citados la atras e o openkore vai pegar

[MarthGG 0]

pesoal so subistituir os itens citados la atras e o openkore vai pegar

 

Já fiz isso e continua dando o mesmo erro...