genericbot

on *:join:#smprivate:{
  if (%cw_start == on) {
    notice $nick 13,1[ 9CW STARTED 13] - 9Players0:9  $+ $iif($gettok(%players,1,44) == $null,x,$replace($gettok(%players,1,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,2,44) == $null,x,$replace($gettok(%players,2,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,3,44) == $null,x,$replace($gettok(%players,3,44),chaka,9chaka13))
  }
  elseif (%cw_start == off) {
    halt
  }
}

on *:text:!status:#smprivate:{
  if (%cw_start == on) {
    msg #smprivate 13,1[ 9CW STARTED 13] - 9Players13:9  $+ $iif($gettok(%players,1,44) == $null,x,$replace($gettok(%players,1,44),Xyrus,9Xyrus13)) $+ 13 - 9 $+ $iif($gettok(%players,2,44) == $null,x,$replace($gettok(%players,2,44),Xyrus,9Xyrus13)) $+ 13 - 9 $+ $iif($gettok(%players,3,44) == $null,x,$replace($gettok(%players,3,44),Xyrus,9Xyrus13))
  }
  elseif (%cw_start == off) {
    msg #smprivate 13,1[ 9CW FINDER 13] - 9No CW started! Type 13!on9 to start a new one13.
  }
}

on *:text:!on:#smprivate:{
  if (%cw_start == on) {
    msg #smprivate 13,1[ 9CW STARTED 13] - 9A CW has already started! Type 13!add9 to add yourself13.
  }
  elseif (%cw_start == off) {
    inc %cw_num
    msg $chan 13,1[ 9CW STARTED 13] - 9Now free members can join13.9 At the end the bot will advertise to some channels13.9 CW Number13: %cw_num
    msg $chan 13,1[ 9CW STARTED 13] - 9Players13:9 x13 - 9x13 - 9x
    msg $chan 13,1[ 9CW STARTED 13] - 9To join type 13!add9 , to leave the CW type 13!del9 , and to turn off the CW type 13!off
    set %cw_start on
  }
}

on *:Text:!off:#smprivate:{ 
  if (%cw_start == on) {
    set %cw_start off
    unset %players
    msg $chan 13,1[ 9CW FINDER 13] - 9CW ended!
  }
  elseif (%cw_start == off) {
    msg $chan 13,1[ 9CW FINDER 13] - 9There is no CW started!
  }
}

on *:text:!add:#smprivate:{
  if (%cw_start == on) {
    if ($nick !isin $gettok(%players,1-,44)) {
      set %players $addtok(%players,$nick,44)
      msg #smprivate 13,1[ 9CW STARTED 13] - 9Players13:9  $+ $iif($gettok(%players,1,44) == $null,x,$replace($gettok(%players,1,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,2,44) == $null,x,$replace($gettok(%players,2,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,3,44) == $null,x,$replace($gettok(%players,3,44),chaka,9chaka13))
      if ($gettok(%players,3,44) != $null) {
        msg $chan 13,1[ 9CW FINDER 13] - 9Now the CW can start13!9 Now advertising to some channels13.
        warn.cw
        set %cw_start off
      }
    }
    elseif ($nick isin $gettok(%players,1-,44)) {
      msg $chan 13,1[ 9CW FINDER 13] - 9You are already in the CW.
    }
  }
  elseif (%cw_start == off) {
    msg $chan 13,1[ 9CW FINDER 13] - 9No CW started! Type 13!on9 to start a new one13. 
  }
}

alias warn.cw { 
  amsg 13,1[ 9~/SM\~ 13] 11>>9 Looking for a 0CW 11<>9 Possible players:13 $gettok(%players,1,44) 9||13 $gettok(%players,2,44) 9||13 $gettok(%players,3,44)  11<< 13[ 9PM ME 13or9 /Join sm.soldat 13]
  unset %players
}

on *:text:!del:#smprivate:{
  if (%cw_start == on) {
    if ($nick !isin $gettok(%players,1-,44)) {
      msg $chan 13,1[ 9CW STARTED 13] - 9You are not in the current CW13.
    }
    if ($nick isin $gettok(%players,1-,44)) {
      set %players $remtok(%players,$nick,44)
      msg #smprivate 13,1[ 9CW STARTED 13] - 9Players13:9  $+ $iif($gettok(%players,1,44) == $null,x,$replace($gettok(%players,1,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,2,44) == $null,x,$replace($gettok(%players,2,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,3,44) == $null,x,$replace($gettok(%players,3,44),chaka,9chaka13))
    }
  }
  elseif (%cw_start == off) {
    msg $chan 13,1[ 9CW FINDER 13] - 9No CW started! Type 13!on9 to start a new one13. 
  }
}

on *:nick:{
  if (%cw_start == on) {
    if ($nick isin $gettok(%players,1-,44)) {
      set %players $remtok(%players,$nick,44)
      set %players $addtok(%players,$newnick,44)
      msg #smprivate 13,1[ 9CW STARTED 13] - 9Players13:9  $+ $iif($gettok(%players,1,44) == $null,x,$replace($gettok(%players,1,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,2,44) == $null,x,$replace($gettok(%players,2,44),chaka,9chaka13)) $+ 13 - 9 $+ $iif($gettok(%players,3,44) == $null,x,$replace($gettok(%players,3,44),chaka,9chaka13))
    }
    elseif ($nick !isin $gettok(%players,1-,44)) {
      halt
    }
  }
}

on *:text:*:?:{
  msg #smprivate 13,1[ 9QUERY 13] -9 $nick $+ : $1-
}

on *:text:!say*:#smprivate:{
  msg $2 [ $+ $nick $+ ]: $3-
  msg #smprivate 13,1[ 9MESSAGE 13] -9 $nick 13,1-->9 $2 $+ : $3-
}

on *:text:!cwseek:#smprivate: {
  if (%cwSeek) {
    unset %cwSeek
    msg # 13,1[ 9CW FINDER 13] - 9CW seeking: OFF
  }
  else {
    set %cwSeek 1
    msg # 13,1[ 9CW FINDER 13] - 9CW seeking: ON
  }
}

on *:text:*cw*:#: {
  if (%cwSeek && $nick ison #smprivate && !$matchtok($1-,Selecwoo,0,46) && !%cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ]) {
    set -u15 %cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ] 1
    msg #smprivate 13,1[9 $chan 13] -9 $nick said: 13,1 $+ $1- $+
  }
}

on *:text:*scrim*:#: {
  if (%cwSeek && $nick ison #smprivate && !$matchtok($1-,Selecwoo,0,46) && !%cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ]) {
    set -u15 %cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ] 1
    msg #smprivate 13,1[9 $chan 13] -9 $nick said: 13,1 $+ $1- $+
  }
}

on *:text:*clanwar*:#: {
  if (%cwSeek && $nick ison #smprivate && !$matchtok($1-,Selecwoo,0,46) && !%cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ]) {
    set -u15 %cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ] 1
    msg #smprivate 13,1[9 $chan 13] -9 $nick said: 13,1 $+ $1- $+
  }
}

on *:text:*sctfl*:#: {
  if (%cwSeek && $nick ison #smprivate && !$matchtok($1-,Selecwoo,0,46) && !%cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ]) {
    set -u15 %cwSeek.ignore. [ $+ [ $strip($replace($1-,$chr(32), )) ] ] 1
    msg #smprivate 13,1[9 $chan 13] -9 $nick said: 13,1 $+ $1- $+
  }
}

on *:text:!chans:#smprivate:{
  var %x = 1
  while (%x <= $chan(0)) {
    var %x1 = $iif($me isop $chan(%x),$addtok(%x1,13@9 $+ $chan(%x),44),$iif($me isvoice $chan(%x),$addtok(%x1,13+9 $+ $chan(%x),44),$addtok(%x1,13*9 $+ $chan(%x),44)))
    inc %x
  }
  msg $chan 13,1[ 9CHANNELS 13] - 9 $+ %x1 13(9 $+ $chan(0) $+ 13/9 $+ $+(20) $+ 13)
}

on *:text:!join*:#smprivate:{
  if ($me ison $2) {
    msg $chan 13,1[ 9CHANNELS 13] - 9I'm already on $2 $+ 13.
  }
  else {
    join $2
  }
}

on *:text:!part*:#smprivate:{
  if ($me !ison $2) {
    msg $chan 13,1[ 9CHANNELS 13] - 9I'm not on $2 $+ 13.
  }
  else {
    part $2
  }
}