Something

on *:INVITE:#: {
  if (%Blacklist. [ $+ [ $chan ] ] == 3) { 
    notice $nick »»»»»Im sorry, but your channel has been blacklisted from the 4Imagine1 network. Please go to 4»»»»6#Imagine4««««1 to appeal.
    HALT 
  }
  if (%Blacklist. [ $+ [ $nick ] ] == 3) { 
    notice $nick »»»»»Im sorry, but your nick has been blacklisted from the 4Imagine1 network. Please go to 4»»»»6#Imagine4««««1 to appeal.
    HALT 
  }
  :invite
if (Imagine ison #Imagine) {
  if ($me == Imagine) { 
    set %invite $rand(1,4) 
    if (%invite == 1) { 
      msg Imagine join $chan
    unset %invite } 
    elseif (%invite == 2) { 
      if ([XS]Imagine ison #Imagine) {
        msg [XS]Imagine join $chan 
    unset %invite } }
    else goto invite
    elseif (%invite == 3) { 
      if ([OM]Imagine ison #Imagine) {
        msg [OM]Imagine join $chan 
    unset %invite } }
    else goto invite
    elseif (%invite == 4) { 
      if ([AD]Imagine ison #Imagine) {
        msg [AD]Imagine join $chan 
    unset %invite } }
    else goto invite
  } 
  else { 
    notice $nick Please invite Imagine first! 
  } 
}
}
on *:TEXT:join *:?: {
  join $2
  close -m $nick
}


on *:TEXT:*:?: {
  if (join isin $1-) { HALT }
  else {
    close -m $nick
  }
}

on *:JOIN:#: {
  if (%Blacklist. [ $+ [ $nick ] ] == 3) {
    /mode $chan +b $address($nick,2)
    /kick $chan $nick 12[ 4Blacklisted 12] 7 You have been globally blacklisted from the Imagine network.
  }
  if ($nick == $me) {
    if (%Blacklist. [ $+ [ $chan ] ] == $null) { 
    msg $chan 4 Hello  $chan $+ ! 7To see my commands, type !commands. Your channel currently has 4(0/3) 7warnings. }
    else {
      msg $chan 4 Thanks for inviting me to  $chan  $+ ! 7To see my commands, type !commands. Your channel currently has4 ( $+ %Blacklist. [ $+ [ $chan ] ] $+ /3) 7warnings.
    }
  }
}

on *:KICK:#: {
  if ($knick == $me) {
    inc %Blacklist. [ $+ [ $chan ] ]
    notice $nick 4 Your channel now has ( $+ %Blacklist. [ $+ [ $chan ] ] $+ /3) warnings.
    part $chan
  }
}

on *:TEXT:!blist*:#: {
  if ($address($nick,2) == $address($me,2)) || ($nick == Urinsan3) || ($nick == Pure_Insan3) {
    if ($2 == urinsan3) || ($2 == pure_insan3) { notice $nick Don't blacklist my bot owner! }
    set %Blacklist. [ $+ [ $2- ] ] 3
    notice $nick 4»»»»6 $+ $2- $+ 4«««« 1has been blacklisted.
  }
}

on *:TEXT:!delete*:#: {
  if ($address($nick,2) == $address($me,2)) || ($nick == Urinsan3) || ($nick == Pure_Insan3) {
    set %Blacklist. [ $+ [ $2- ] ] 0
    notice $nick 4»»»»6 $+ $2- $+ 4«««« 1has been unblacklisted.
  }
}