hi There ^^, i have been playing RO since 2k3 and i have been to a lot of hacking forums for ragnarok ^^ i have been from pvpers,koaxia, kebukka, and jbforums all elite|private|Moderator member :)
but then the old forums are down >_< now i am searching for another forum that is good for my talent :)
coz i am back in playing RO :)
ok lets start
First
you need to download the latest openkore : www.openkore.com
second
ofcourse extract them :) OPEN SRC folder and look for misc.pm
Third ( ok here are the edits/addition to make your openkore ks)
Search for this Line
CODE
sub objectInsideSpell {
my $object = shift;
my ($x, $y) = ($object->{pos_to}{x}, $object->{pos_to}{y});
foreach (@spellsID) {
my $spell = $spells{$_};
if ($spell->{sourceID} ne $accountID && $spell->{pos}{x} == $x && $spell->{pos}{y} == $y) {
return 1;
}
}
return 0;
}
and add return 0 if ($config{'rabidDog'} || $config{'killSteal'});
it should be like this
CODE
sub objectInsideSpell {
return 0 if ($config{'rabidDog'} || $config{'killSteal'});
my $object = shift;
my ($x, $y) = ($object->{pos_to}{x}, $object->{pos_to}{y});
foreach (@spellsID) {
my $spell = $spells{$_};
if ($spell->{sourceID} ne $accountID && $spell->{pos}{x} == $x && $spell->{pos}{y} == $y) {
return 1;
}
}
return 0;
}
and this
CODE
sub positionNearPlayer {
my $r_hash = shift;
my $dist = shift;
foreach (@playersID) {
next unless defined $_;
next if $char->{party} && $char->{party}{users} &&
$char->{party}{users}{$_};
next if existsInList($config{tankersList}, $players{$_}{name});
return 1 if (distance($r_hash, $players{$_}{pos_to}) <= $dist);
}
return 0;
}
and add return 0 if ($config{'rabidDog'} || $config{'killSteal'});
it should be like this
CODE
sub positionNearPlayer {
return 0 if ($config{'rabidDog'} || $config{'killSteal'});
my $r_hash = shift;
my $dist = shift;
foreach (@playersID) {
next unless defined $_;
next if $char->{party} && $char->{party}{users} &&
$char->{party}{users}{$_};
next if existsInList($config{tankersList}, $players{$_}{name});
return 1 if (distance($r_hash, $players{$_}{pos_to}) <= $dist);
}
return 0;
}
and Search for this
CODE
sub objectIsMovingTowardsPlayer {
my $obj = shift;
my $ignore_party_members = shift;
$ignore_party_members = 1 if (!defined $ignore_party_members);
if (!timeOut($obj->{time_move}, $obj->{time_move_calc}) && @playersID) {
# Monster is still moving, and there are players on screen
my %vec;
getVector(\%vec, $obj->{pos_to}, $obj->{pos});
foreach (@playersID) {
next if (!$_ || ($ignore_party_members &&
($char->{party} && $char->{party}{users}{$_}) ||
(existsInList($config{tankersList}, $players{$_}{name}) &&
$players{$_}{name} ne 'Unknown')) ||
$players{$_}{statuses}{"GM Perfect Hide"});
if (checkMovementDirection($obj->{pos}, \%vec, $players{$_}{pos}, 15)) {
return 1;
}
}
}
return 0;
}
and replace it with this or look for what i have added
CODE
sub objectIsMovingTowardsPlayer {
return 0 if ($config{'rabidDog'} || $config{'killSteal'});
my $obj = shift;
my $ignore_party_members = shift;
$ignore_party_members = 1 if (!defined $ignore_party_members);
if (!timeOut($obj->{time_move}, $obj->{time_move_calc}) && @playersID) {
# Monster is still moving, and there are players on screen
my %vec;
getVector(\%vec, $obj->{pos_to}, $obj->{pos});
foreach (@playersID) {
next if (!$_ || ($ignore_party_members &&
($char->{party} && $char->{party}{users}{$_}) ||
(existsInList($config{tankersList}, $players{$_}{name}) &&
$players{$_}{name} ne 'Unknown')) ||
$players{$_}{statuses}{"GM Perfect Hide"});
if (checkMovementDirection($obj->{pos}, \%vec, $players{$_}{pos}, 15)) {
return 1;
}
}
}
return 0;
}
and search THIS
CODE
sub checkMonsterCleanness {
return 1 if (!$config{attackAuto});
my $ID = shift;
return 1 if ($players{$ID});
my $monster = $monsters{$ID};
# If party attacked monster, or if monster attacked/missed party
if ($monster->{'dmgFromParty'} > 0 || $monster->{'dmgToParty'} > 0 || $monster->{'missedToParty'} > 0) {
return 1;
}
# If we're in follow mode
if (defined(my $followIndex = binFind(\@ai_seq, "follow"))) {
my $following = $ai_seq_args[$followIndex]{following};
my $followID = $ai_seq_args[$followIndex]{ID};
if ($following) {
# And master attacked monster, or the monster attacked/missed master
if ($monster->{dmgToPlayer}{$followID} > 0
|| $monster->{missedToPlayer}{$followID} > 0
|| $monster->{dmgFromPlayer}{$followID} > 0) {
return 1;
}
}
}
and replace it with this
<3
CODE
sub checkMonsterCleanness {
return 1 if ($config{'rabidDog'} || $config{'killSteal'});
return 1 if (!$config{attackAuto});
my $ID = shift;
return 1 if ($players{$ID});
my $monster = $monsters{$ID};
# If party attacked monster, or if monster attacked/missed party
if ($monster->{'dmgFromParty'} > 0 || $monster->{'dmgToParty'} > 0 || $monster->{'missedToParty'} > 0) {
return 1;
}
# If we're in follow mode
if (defined(my $followIndex = binFind(\@ai_seq, "follow"))) {
my $following = $ai_seq_args[$followIndex]{following};
my $followID = $ai_seq_args[$followIndex]{ID};
if ($following) {
# And master attacked monster, or the monster attacked/missed master
if ($monster->{dmgToPlayer}{$followID} > 0
|| $monster->{missedToPlayer}{$followID} > 0
|| $monster->{dmgFromPlayer}{$followID} > 0) {
return 1;
}
}
}
and lastly..
go to your control folder where you can find the config.txt
go to the most bottom part of the config.txt
and add
killSteal 1
and wala >:) your openkore will be ksing people :)
i have another additional for making it more KSable/aggresive but i wont post/add it here until i have a recommendation from the admin/mod to join the elite members :)
i suggest you hide this guide for not making spoon feed to other leechers :)
want prof? here
Thank you and Have a happy Ksing
ill be adding more cool stuffs :)
This post has been edited by Adub: Oct 22 2009, 02:46 PM
How to make Openkore KS [latest]
Oct 20 2009, 07:28 AM
