[Release] Orb Walker Open Source

[f00lish]

Gallery 1

[kaiquim]

hi man after the step Download and install Strawberry Perl
Open a cmd.exe as administrator and run cpan Win32::GuiTest

i save the script . pl but dont works, what i need ?

[f00lish]

Originally Posted by kaiquim

hi man after the step Download and install Strawberry Perl
Open a cmd.exe as administrator and run cpan Win32::GuiTest

i save the script . pl but dont works, what i need ?

1. save the code as orb.pl
2. open cmd.exe as administrator
3. navigate to the script path and type perl orb.pl

[kaiquim]

says: Illegal division by zero orb.pl line 23

[f00lish]

Originally Posted by kaiquim

says: Illegal division by zero orb.pl line 23

You need to be in game to run the script.

[justRampage]

I followed all the instructions, but once I was ingame the perl orb.pl command just loaded forever and nothing happened.

[Argy]

Originally Posted by justRampage

I followed all the instructions, but once I was ingame the perl orb.pl command just loaded forever and nothing happened.

Are you blind to not see what it states in the cmd?
The program wont start until you go in game and even then it wont start until division by 0 is fixed.

[CirusEB]

Works great

[MrBya]

is this undetected?

[f00lish]

Originally Posted by MrBya

is this undetected?

Yes

[Singleplayer™]

nice to see some usefull releases here , sadly i have 0 knowledge in perl but for everyone who knows perl, its gud

[Mistal]

I made just a simple adaptation to use it as the traditional space bar (it can be improved ofc):

use strict;
use warnings;

use Win32::GuiTest qw(:ALL);
use Time::HiRes qw(usleep);
use LWP::UserAgent;


use constant HTKEY => 'a';
use constant START => VK_SPACE;

my $sleep = 1;
my $cond = 0;

while (1) {
    start() if $cond == 1;
    if (IsKeyPressed(START)) { $cond = 1 }
	else { $cond = 0 }

}

sub start {
    $sleep = 1000000 * (1/as())/2;
    SendKeys(HTKEY);
    usleep($sleep);
    SendMouse("{RIGHTCLICK}");
    usleep($sleep);
}

sub as {
    my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, protocols_allowed => ['https'] );
    my $req = HTTP::Request->new( 
        GET => 'https://127.0.0.1:2999/liveclientdata/allgamedata',
    );
    my $res = $ua->request($req);
    if ($res->content =~ /"attackSpeed": (\d+\.\d+),/) {
        return $1
    }
}

[f00lish]

Originally Posted by Mistal

I made just a simple adaptation to use it as the traditional space bar (it can be improved ofc):

use strict;
use warnings;

use Win32::GuiTest qw(:ALL);
use Time::HiRes qw(usleep);
use LWP::UserAgent;


use constant HTKEY => 'a';
use constant START => VK_SPACE;

my $sleep = 1;
my $cond = 0;

while (1) {
    start() if $cond == 1;
    if (IsKeyPressed(START)) { $cond = 1 }
	else { $cond = 0 }

}

sub start {
    $sleep = 1000000 * (1/as())/2;
    SendKeys(HTKEY);
    usleep($sleep);
    SendMouse("{RIGHTCLICK}");
    usleep($sleep);
}

sub as {
    my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, protocols_allowed => ['https'] );
    my $req = HTTP::Request->new( 
        GET => 'https://127.0.0.1:2999/liveclientdata/allgamedata',
    );
    my $res = $ua->request($req);
    if ($res->content =~ /"attackSpeed": (\d+\.\d+),/) {
        return $1
    }
}

Very good switch - in fact, might be easier to use in game while holding/releasing space bar instead of using multiple other hotkeys!

[bravejumper]

could you put it on the github?

[cadafi1979]

you can edit when pess space key it will hit ?