Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- my $qnet_username = "usernamehere";
- my $qnet_password = "passwordhere";
- my $qnet_chan = "channelhere";
- my $qnet_auth_version = "0.0.2";
- my $connect = 0;
- my $current_nick = Xchat::get_info( nick );
- Xchat::register("QNet Auth Script", $qnet_auth_version, "", "");
- Xchat::print "::: QNet Auth Script $qnet_auth_version :::\n";
- Xchat::hook_server("221", "isconnect");
- sub isconnect {
- $connect = 1;
- auth();
- }
- sub auth {
- if ($connect == 1) {
- Xchat::command("AUTH $qnet_username $qnet_password");
- cloak ();
- }
- else {
- return 0;
- }
- }
- sub cloak {
- if ($connect == 1) {
- Xchat::command("mode $current_nick +x");
- chan_join ();
- }
- else {
- return 0;
- }
- }
- sub chan_join {
- if ($connect == 1) {
- Xchat::command("join $qnet_chan");
- Xchat::print ":QNet Script Cycle Has Been Successfully Executed:\n";
- }
- else {
- return 0;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement