League of Legends Automatic Spell Upgrader
What does this script?
From level 2 and onward, this script will automatically upgrade the spell of your choice without having to click or use hotkeys.
If you want this script to work for your champion, you need to add his passive like I did in the example with Shaco and Teemo.
'Backstab' => { 'Shaco' => ['q','e', 'e','q','w'] },
Level 2 upgrade = q
Level 3 upgrade = e
and the goes in order e->q->w
Run this script when you are in game or above 40% in loading screen
What does this script?
From level 2 and onward, this script will automatically upgrade the spell of your choice without having to click or use hotkeys.
If you want this script to work for your champion, you need to add his passive like I did in the example with Shaco and Teemo.
'Backstab' => { 'Shaco' => ['q','e', 'e','q','w'] },
Level 2 upgrade = q
Level 3 upgrade = e
and the goes in order e->q->w
Run this script when you are in game or above 40% in loading screen
Perl Version
PHP Code:
# contact: zamanf @ elitepvpers
# run this script when you are in game or above 40% in load screen
use strict;
use warnings;
use Win32::GuiTest qw(:ALL);
use LWP::UserAgent;
use JSON::Parse 'parse_json';
use Data::Dumper;
my ($level,$zmf,@lvl);
my %passive = (
# passive name champ lvl2/lvl3 upgrade order (e->q->w in shaco's case)
'Backstab' => { 'Shaco' => ['q','e', 'e','q','w'] },
'Guerrilla Warfare' => { 'Teemo' => ['e','w', 'q','e','w'] },
);
lulz();
my $zamanf = [@_=%{$passive{$zmf}}]->[1|rand@_];
lulz() while 1;
sub lulz {
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' ) or die $!;
if ($req && $ua->request($req)->content) {
my %data = %{parse_json($ua->request($req)->content)};
$level = $data{activePlayer}{level};
if (exists $passive{ $data{activePlayer}{abilities}{Passive}{displayName} }) {
$zmf = $data{activePlayer}{abilities}{Passive}{displayName};
} else {
exit(0)
}
zamanf()
}
}
sub zamanf {
shift @lvl if $#lvl == 2;
push @lvl, $level;
if ($#lvl == 2) {
if ($lvl[0] < $lvl[1]) {
if ($lvl[1] == 2) {
SendKeys("^$zamanf->[0]",1);
}
if ($lvl[1] == 3) {
SendKeys("^$zamanf->[1]",1);
}
if ($lvl[1] =~ /^(?:4|5|7|9)$/) {
SendKeys("^$zamanf->[2]",1);
}
if ($lvl[1] =~ /^(?:8|10|12|13)$/) {
SendKeys("^$zamanf->[3]",1);
}
if ($lvl[1] =~ /^(?:14|15|17|18)$/) {
SendKeys("^$zamanf->[4]",1);
}
if ($lvl[1] =~ /^(?:6|11|16)$/) {
SendKeys("^\x72",1);
}
if ($lvl[1] == 18) {
exit(0);
}
}
}
}
How to use
- Save the code inside a file with .pl suffix
- Open cmd.exe as ADMINISTRATOR and navigate to the file path and run it using perl file.pl
Hit the Thanks button if you want me to keep posting new scripts 







