Renewal just hit pRO! are there updates for openkore?

[ashcrimsonashcwimson]

oh ok.. anyway ano pinagkaiba nung kay "hokutosei" at nung kay "soulless" regarding sa pag edit nung ServerType0.pm
bka kc edit ako nang edit lalo gumulo?? help appreciated tnx!

[tazocin]

haaaayz. sira pa rin pag ginawa ko. bale, ganito ba dapat ganito ba yung sequencing?

sub exp {
my ($self, $arg) = @_;
return if !$config{'displayExpGained'};
if ($arg->{flag} == 1) {
if ($arg->{type} == 1) {
message TF("Quest Base Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
} else {
message TF("Quest Job Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
}
} else {
if ($arg->{type} == 1) {
message TF("Base Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
} else {
message TF("Job Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
}
}
}

sub account_payment_info {
my ($self, $args) = @_;
my $D_minute = $args->{D_minute};
my $H_minute = $args->{H_minute};

my $D_d = int($D_minute / 1440);
my $D_h = int(($D_minute % 1440) / 60);
my $D_m = int(($D_minute % 1440) % 60);

my $H_d = int($H_minute / 1440);
my $H_h = int(($H_minute % 1440) / 60);
my $H_m = int(($H_minute % 1440) % 60);

message T("============= Account payment information =============\n"), "info";
message TF("Pay per day : %s day(s) %s hour(s) and %s minute(s)\n", $D_d, $D_h, $D_m), "info";
message TF("Pay per hour : %s day(s) %s hour(s) and %s minute(s)\n", $H_d, $H_h, $H_m), "info";
message T("-------------------------------------------------------\n"), "info";
}

Greetings,

on ServerType0.pm
Find

Code: Select all

#######################################
###### Packet handling callbacks ######
#######################################

I guess, you can paste this block, on any of this lines, except that you don't insert them to another block. instead
Find

Code: Select all

sub account_payment_info {

Paste before that Line(One up line before that)

Code: Select all

sub exp {
   my ($self, $arg) = @_;
   return if !$config{'displayExpGained'};
   if ($arg->{flag} == 1) {
      if ($arg->{type} == 1) {
         message TF("Quest Base Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      } else {
         message TF("Quest Job Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      }
   } else {
      if ($arg->{type} == 1) {
         message TF("Base Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      } else {
         message TF("Job Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      }
   }
}

[dodecagon]

i pasted mine right after the "use I18n..." line. basically, you can post it anywhere, just don't insert it inside other blocks. you see that file has this format:

sub NAME {
content...
content...
}

every "sub" is a single block that starts with { and ends with another }. (every { must end with }). you will see the format if you open the file with "Word Pad" and check the "View > Options > No Wrap".

i think that's lay man enough for those people who don't have programming background. i will study perl in the future, i just don't have the time. and hopefully once i did, i can start contributing to OK because i have been a leecher since it started. oh yeah...

[blazeteen]

guys there is a unhandled packet: 07F6 handler in the openkore which freezes the bot ....... please find a solution for this problem.........

[hokutosei]

Greetings,

in ServerType0.pm

Find

Code: Select all

# This is for what eA calls PacketVersion 9, they send the AID in a 'proper' packet
sub account_id {
	my ($self, $args) = @_;
	# the account ID is already unpacked into PLAIN TEXT when it gets to this function...
	# So lets not fuckup the $accountID since we need that later... someone will prolly have to fix this later on
	#$accountID = $args->{accountID};
}

After That Paste this

Code: Select all

sub exp {
   my ($self, $arg) = @_;
   return if !$config{'displayExpGained'};
   if ($arg->{flag} == 1) {
      if ($arg->{type} == 1) {
         message TF("Quest Base Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      } else {
         message TF("Quest Job Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      }
   } else {
      if ($arg->{type} == 1) {
         message TF("Base Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      } else {
         message TF("Job Exp Gained: %s\n", formatNumber($arg->{val})), "exp";
      }
   }
}

This should solve the unhandled packet: 07F6

[potpot1611]

finally that irritating packet has been solved thanks!

[sigurd24]

sir what will i do if my bot keeps on disconnecting.

it says

Error: Out of syc with server

[kaBOTi]

it's either you have a bad internet connection or you have tinkered something in your timeout.txt that is causing it to be out of sync.

[valhalla]

I play at valhalla. My bot keeps disconnecting for every two minutes (approximately).
Any solution?

[jakejakejake]

thnx to hoax i can now use Bot.. but i have another problem why does it keeps on disconecting?