Level Changed hook add patch

Index: src/Network/Receive/kRO/Sakexe_0.pm
===================================================================
--- src/Network/Receive/kRO/Sakexe_0.pm (revision 9014)
+++ src/Network/Receive/kRO/Sakexe_0.pm (working copy)
@@ -4964,6 +4964,7 @@
            chatLog("k", TF("Disconnecting on level %s!\n", $config{dcOnLevel}));
            quit();
        }
+       Plugins::callHook('level_changed');
    } elsif ($args->{type} == 12) {
        $char->{points_skill} = $args->{val};
        debug "Skill Points: $args->{val}\n", "parseMsg", 2;
Index: src/Network/Receive/ServerType0.pm
===================================================================
--- src/Network/Receive/ServerType0.pm  (revision 9014)
+++ src/Network/Receive/ServerType0.pm  (working copy)
@@ -5499,6 +5499,7 @@
            chatLog("k", TF("Disconnecting on level %s!\n", $config{dcOnLevel}));
            quit();
        }
+       Plugins::callHook('level_changed');
    },
    VAR_SPPOINT, sub { $_[0]{points_skill} = $_[1] },
    #VAR_STR