Autogline Ident on Irccloud

[coders-irc_Bot]

this code is to make autogline on ident if user is using irccloud , if he is with mibbit hostmask the script will make gline on ident , if user is with hostmask of real ip than the script will gline the hostmask , is user is with irccloud but he has vhost than the script will make whois on user to see if he is from irccloud and gline ident , if he is not with irccloud than the script will make gline on ip , hope this script is useful  , the command is .g nick reason or without reason just .g nick , command can use only user that are in channel #opers , and thay can;t gline someone that isin too on channel #opers 

 

on *:text:.g *:#:{
  set %reason $3-
  set %glineirccloud on
  set %idenGline $remtok($gettok($address($2.0),1.64),*,0.33)
  if (irccloud.com isin $address($2,2)) && ($nick ison #opers) && ($2 !ison #opers) || (mibbit.com isin $address($2,2)) { gline $addtok(%idenGline,*,64) +2h ° %reason ° | unset %glineirccloud | unset %idenGline | unset %reason }
  elseif (irccloud.com !isin $address($2,2)) && ($nick ison #opers) && ($2 !ison #opers) { whois $2 | set %glineirccloud on | set %reason $3- }
  elseif ($2 ison #opers) && ($nick ison #opers) { msg $nick Ju nuk mund te beni gline nje Ircop/Admin!! | unset %glineirccloud | unset %idenGline | unset %reason }
}
raw 378:*:{
  if (%glineirccloud == on) && (irccloud.com isin $6) {
    gline $addtok(%idenGline,*,64) +2h ° %reason °
    unset %glineirccloud
    unset %reason
    unset %idenGline
  }
  if (%glineirccloud == on) && (irccloud.com !isin $6) {
    gline $2 +2h ° %reason °
    unset %glineirccloud
    unset %reason
    unset %idenGline
  }
}