on *:START:{ set %minUsers 3 } 
on 1:INVITE:#:{ 
  if (!%invite. [ $+ [ $chan ] ]) {
    set -u5 %in.nick $nick
    inc -u10 %invite.to $chan
    if $ini(blacklist.ini,bans,$chan) { 
      .notice %in.nick $c2 $+ Invite Ignored. $c1 $+ The channel $c2 $+ $chan $c1 $+ is blacklisted with the reason: $c2($readini(blackreason.ini, Reasons, $chan)) $+ $c1(. To get this deleted, join) $c2(#Vectra) $c1(and talk to) $c2(an op) $c1(there.)
    msg #Devvectra $c1([) $+ $c2(INVITE) $+ $c1(] Invite to) $c2($chan) $c1(ignored $+ $chr(44) blacklisted because off:) blacklisted with the reason: $c2($readini(blackreason.ini, Reasons, $chan)) }
    elseif ($me != Vectra) { .notice $nick $c2([) $+ $c1(Invite System) $+ $c2(]) $c1(You need to invite) $c2(Vectra) $c1(to get a bot in your channel. Type:) ( $+ $c2(/invite Vectra #channel) $+ $c1() $+ ) }
    elseif ($me == Vectra) { if ($chan(0) >= 30) { 
        .notice %in.nick $c1([) $+ $c2(Invite) $+ $c1(]) $c2(Vectra) $c1(is full. Sending another bot. Please wait.)
        .timer 1 1 .notice %nextbot join $chan %in.nick 
      }
  else { join $chan } } } 
  inc -u10 %invite. [ $+ [ $chan ] ]
}
on $*:TEXT:/^[!.@~]Setbot*/Si:#Devvectra,#Vectra:{ if ($readini(botstaff.ini, Staff, $address($nick, 3))) && ($2) {
    set %nextbot $2 | msg $chan $c1(The) $c2(next bot) $c1(has been set to:) $c2(%nextbot) $c1(by the admin) $c2($nick)
    if ($me == [No]Vectra) { /topic #vectra 3»15][3« 2Welcome To #Vectra3 »15][3«2 Type /invite Vectra #channel to get it to your channel 3»15][3«2 Commands at http://www.vectra.uk.to/ 3»15][3«2 Vectra is 9ONLINE! 3»15][3«2 User limit: %minusers 3»15][3«2 Next bot: %nextbot 3»15][3« }
  }
}
on $*:TEXT:/^[!.@~]Nextbot*/Si:#Devvectra,#Vectra:{ if ($readini(botstaff.ini, Staff, $address($nick, 3))) {
  $iif($left($1,1) == @,msg $chan,.notice $nick) $c1(The next invite bot is:) $c2(%nextbot) }
}
on *:TEXT:* global*:#vectra,#Devvectra:{ if ($readini(botstaff.ini, Staff, $address($nick, 3))) && ($1 == $me) {
  amsg 2[3Global- $+ $nick $+ 2] $3- }
}
on *:NOTICE:join *:?:{ 
  set %in.nick $3 
  if (Vectra isin $nick) && ($chan(0) >= 30) { .notice $nick full %in.nick | halt }
  elseif (Vectra isin $nick) && ($chan(0) < 30) { join $2 }
}
on *:NOTICE:full*:?:{ if ($me == Vectra) && (Vectra isin $nick) && ($nick == %nextbot) { .timer 1 2 .notice %in.nick $c2(The nextbot) $c1(is full. Please inform this to #Vectra or invite in some minutes) | msg #DevVectra 2[3FULL2] $c2(%nextbot) $c1(is full! Change the nextbot) } }
alias check.bot {
  if ($me == Vectra) || ($me == [No]Vectra) || ($me == [Ch]Vectra) && ([Xo]Vectra ison $1) {
    part $1 $c1(You already got) $c2([Xo]Vectra) $c1(in your channel.)
    msg #DevVectra 2[3PART2] Parted3 $1 $+ 2, I found3 [Xo]Vectra
  }
  if ($me == Vectra) || ($me == [Xo]Vectra) || ($me == [Ch]Vectra) && ([No]Vectra ison $1) {
    part $1 $c1(You already got) $c2([No]Vectra) $c1(in your channel.)
    msg #DevVectra 2[3PART2] Parted3 $1 $+ 2, I found3 [No]Vectra
  }
  if ($me == [No]Vectra) || ($me == [Xo]Vectra) || ($me == Vectra) && ([Ch]Vectra ison $1) {
    part $1 $c1(You already got) $c2([Ch]Vectra) $c1(in your channel.)
    msg #DevVectra 2[3PART2] Parted3 $1 $+ 2, I found3 Vectra
  }
  if ($me == [No]Vectra) || ($me == [Xo]Vectra) || ($me == [Ch]Vectra) && (Vectra ison $1) {
    part $1 $c1(You already got) $c2(Vectra) $c1(in your channel.)
    msg #DevVectra 2[3PART2] Parted3 $1 $+ 2, I found3 Vectra
  }
}
alias /checkusers { 
  if ($1 == #Vectra) || ($1 == #Tid) || ($1 == #Devvectra) { halt }
  elseif ($nick($1,0) <= %minUsers) && ($me ison $1) { 
    part $1 $c1(You need atleast) $c2( $+ %minUsers $+ ) $c1(users for me to stay in) $c2($1)
    msg #DevVectra 2[3PART2] Parted3 $1 $+ 2. The channel dont got %minUsers $+ + users. 
  }
}
alias /check.op { if ($me !ison $1 || $1 isop $2) || ($1 ishop $2) || ($readini(botstaff.ini, Staff, $address(%in.nick, 3))) { halt }
  else { part $2 $c1(Parting) $c2($2) $+ $c1(. Please tell an op/halfop to invite me)) | msg #DevVectra 2[3PART2] Parted3 $2 $+ 2, invited by non op/halfop.) }
}
on *:PART:#:{ if ($nick == $me) { halt }
  else { /checkusers $chan }
}
on *:QUIT: { /checkusers $chan }
on *:JOIN:#: { 
  if ($nick == $me) && (%invite.to) { 
    if ($chan == #bots) || ($chan == #Vectra) || ($chan == #Devvectra) || ($chan == #bot) || ($chan == #irc-bots) { halt }
    if (%join.prot == $null) {
      msg #DevVEctra $c1([) $+ $c2(INVITE) $+ $c1(]) I have joined3 $chan $+ 2, invited by3 %in.nick $+ 2.
      msg $chan $c1(SwiftIrc Bot) $c2($me) $c1(By) $c2(Xotick) $+ $c1(.) $iif(%in.nick,Invited to3 $chan 2by3 %in.nick $+ 2.) $c1(The commands are listed at:) $c2(http://www.vectra.uk.to/) $c1(To avoid blacklist $+ $chr(44) use) $c2(!part $me) $c1(to make me leave $+ $chr(44) instead of kicking.)
      .timer 1 2 check.bot $chan               
      .timer 1 2 checkusers $chan
      .timer 1 3 check.op %in.nick $chan
    }
  }
  if ($readini(botstaff.ini, Staff, $address($nick, 3))) { 
    if (Vectra isin $chan) && ($me != Vectra) || ($chan == #bots) { halt }
    else { .timer 1 0 msg $chan 2[3 $+ $nick $+ 2] Bot administrator for3 $me $+ 2.
    msg #DevVectra 2[3JOIN2] Bot staff member3 $nick 2has joined3 $chan $+ 2. } 
  }      
}
on $*:TEXT:/^[!.@~](Part|Getout|GTFO|Leave|Move)/Si:#: { if ($nick isop $chan || $nick ishop $chan) || ($readini(botstaff.ini, Staff, $address($nick, 3))) && ($2 == $me) { 
  part $chan $c1(Part requested by) $c2($nick) | msg #DevVectra 2[3PART2] I have parted3 $chan $+ 2, requested by3 $nick $+ 2. }
  elseif ($2 == $me) && ($nick isvoice $chan || $nick isreg $chan) { .notice $nick $c1(You need to be atleast) $c2(half-op) $c1(to make me part) $c2($chan) }
}

raw 475:*: { if (%invite.to) .timer 1 1 .notice %in.nick $c1(Unable to join) $c2($2) $+ $c1($chr(44) A Key is set (+k)) | msg #Devvectra $c1([) $+ $c2(INVITE) $+ $c1(]) $c1(Invite to) $c2($2) $c1(refused $+ $chr(44) a key is set.) | halt }
raw 473:*: { if (%invite.to) .timer 1 1 .notice %in.nick $c1(Unable to join) $c2($2) $+ $c1($chr(44) Invite Only is on (+i)) | msg #Devvectra $c1([) $+ $c2(INVITE) $+ $c1(]) $c1(Invite to) $c2($2) $c1(refused $+ $chr(44) invite only is set.) | halt }
raw 471:*: { if (%invite.to) .timer 1 1 .notice %in.nick $c1(Unable to join) $c2($2) $+ $c1($chr(44) Channel is full (+l)) | msg #Devvectra $c1([) $+ $c2(INVITE) $+ $c1(]) $c1(Invite to) $c2($2) $c1(refused $+ $chr(44) channel is full.) | halt }
raw 474:*: { if (%invite.to) .timer 1 1 .notice %in.nick $c1(Unable to join) $c2($2) $+ $c1($chr(44) $me is banned (+b)) | msg #Devvectra $c1([) $+ $c2(INVITE) $+ $c1(]) $c1(Invite to) $c2($2) $c1(refused $+ $chr(44) banned on it.) | halt }

on *:VOICE:#: { if ($vnick == $me) && ($nick != $me) && (%join.prot == $null) { msg #DevVEctra 2[3VOICE2] I have been Voiced in3 $chan 2by3 $nick } } 
on *:HELP:#: { if ($hnick == $me) && ($nick != $me) && (%join.prot == $null) { msg #DevVEctra 2[3HALFOP2] I have been Halfoped in3 $chan 2by3 $nick } } 
on *:OP:#: { if ($opnick == $me) && ($nick != $me) && (%join.prot == $null) { msg #DevVEctra 2[3OP2] I have been Oped in3 $chan 2by3 $nick } }
on *:DEVOICE:#: { if ($vnick == $me) && ($nick != $me) && (%join.prot == $null) { msg #DevVEctra 2[3DEVOICE2] I have been Devoiced in3 $chan 2by3 $nick } } 
on *:DEHELP:#: { if ($hnick == $me) && ($nick != $me) && (%join.prot == $null) { msg #DevVEctra 2[3DEHALFOP2] I have been Dehalfoped in3 $chan 2by3 $nick } }
on *:DEOP:#: { if ($opnick == $me) && ($nick != $me) && (%join.prot == $null) { msg #DevVEctra 2[3DEOP2] I have been Deoped in3 $chan 2by3 $nick } }