Guest User

Untitled

a guest
Jun 21st, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.59 KB | None | 0 0
  1. sub opKick(){
  2.     my($user, $target) = @_; # name of person issuing ban, and person being banned
  3.     if (odch::get_type($user) >= 16){ # check whether "$user" is an op or not
  4.         if(&usrExists($target)){ # make sure the person being banned exists on the hub
  5.             &usrMsg($user, "Kicking $target."); # send a msg to $user
  6.             &usrMsg($target, "You have been kicked from the hub."); # send a msg to $target user
  7.             #&usrKick($target);
  8.             return(1); # return success
  9.         }
  10.         else { &usrMsg("Target user not found."); return(0); }
  11.     }
  12.     else{ &usrMsg("You do not have sufficent access rights."); return(0); }
  13. }
Add Comment
Please, Sign In to add comment