Код:
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
}
}
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