bot pachangas mv

;===================================================
;= 1º copialo en la carpeta donde este el mirc.exe =
;= 2º Abre el mirc.exe                             =
;= 3º Pon /load -rs bot.mrc                        =
;===================================================


on 1:text:*:?: {
  close -m
  if (!%elcanal) set %elcanal #tucanal
  if ($1 == !lanza) && ($nick isop %elcanal) {
    if ($nick == %bot-admin) || (%bot-estado == on) halt
    set %bot-admin $nick
    msg $nick [LISTA DE JUEGOS POSIBLES]
    msg $nick --------------------------
    msg $nick Counter-Strike
    msg $nick Day of Defeat
    msg $nick Half-Life
    msg $nick Unreal Tournament
    msg $nick Quake III Arena
    msg $nick ===========================
    msg $nick La sintaxis seria asi: mod version ip password cd-on/off
    msg $nick Ejemplo: Counter-Strike 1.6 192.168.1.124:27015 paxanga on
    msg $nick <--------->
    msg $nick Para quitar la partida pon !cancela
  }
  else if ($1 == !cancela) && ($nick == %bot-admin) && ($nick isop %elcanal) {
    if (%bot-estado !== on) halt
    msg %elcanal Partida cancelada por el Admin %bot-admin
    topic %elcanal %ultima
    unset %bot-*
  }
  else if ($nick == %bot-admin) && ($nick isop %elcanal) {
    if (%bot-estado == on) halt
    set %bot-mod $1
    set %bot-ver $2
    set %bot-ip $3
    set %bot-pass $4
    set %bot-cd $5
    set %bot-estado on
    set %bot-cuena 0
    set %bot-cuenb 0
    msg %elcanal Partida lanzada de %bot-mod por %bot-admin Para añadirte a una partida pon !juego !juego a (Para TEAM-A) o !juego b (Para TEAM-B) y para kitarte de la partida !kitame Si quieres ver como van los equipos pon !teams y para ver la ultima partida lanzada pon !ultima
    eltopic
  }
}


on 1:text:*:#tucanal: {
  if ($1 == !juego) {
    if (%bot-estado !== on) halt
    if ($2 == a) {
      mira a
    }
    else if ($2 == b) {
      mira b
    }
    else if ($2 !== a) || ($2 !== b) {
      if (%bot-cuena < %bot-cuenb) mira a
      else if (%bot-cuenb < %bot-cuena) mira b
      else mira a
    }
  }
  else if ($1 == !kitame) {
    set %bot-n 0
    while (%bot-n < 5) {
      inc %bot-n
      if ($address($nick,2) == %bot-ip-a [ $+ [ %bot-n ] ]) {
        set %bot-cuena $calc(%bot-cuena - 1)
        notice %bot-team-a [ $+ [ %bot-n ] ] Se te ha borrado de la pachanga
        unset %bot-ip-a [ $+ [ %bot-n ] ]
        unset %bot-team-a [ $+ [ %bot-n ] ]
        eltopic
        halt
      }
    }
    set %bot-n 0
    while (%bot-n < 5) {
      inc %bot-n
      if ($address($nick,2) == %bot-ip-b [ $+ [ %bot-n ] ]) {
        set %bot-cuenb $calc(%bot-cuenb - 1)
        notice %bot-team-b [ $+ [ %bot-n ] ] Se te ha borrado de la pachanga
        unset %bot-ip-b [ $+ [ %bot-n ] ]
        unset %bot-team-b [ $+ [ %bot-n ] ]
        eltopic
        halt
      }
    }
  }
  else if ($1 == !teams) {
    if ($calc(%bot-to + 20) > $ctime) halt
    set %bot-to $ctime
    if (%bot-estado !== on) { msg %elcanal %ultima | halt }
    msg %elcanal %bot-mod ( $+ $calc(%bot-cuena + %bot-cuenb) $+ /10) [Team-A] %bot-team-a1 - %bot-team-a2 - %bot-team-a3 - %bot-team-a4 - %bot-team-a5 ( $+ %bot-cuena $+ /5) [Team-B] %bot-team-b1 - %bot-team-b2 - %bot-team-b3 - %bot-team-b4 - %bot-team-b5 ( $+ %bot-cuenb $+ /5)
  }
  else if ($1 == !ultima) {
    if ($calc(%bot-to + 20) > $ctime) halt
    set %bot-to $ctime
    if (%bot-estado == on) { msg %elcanal %bot-mod ( $+ $calc(%bot-cuena + %bot-cuenb) $+ /10) [Team-A] %bot-team-a1 - %bot-team-a2 - %bot-team-a3 - %bot-team-a4 - %bot-team-a5 ( $+ %bot-cuena $+ /5) [Team-B] %bot-team-b1 - %bot-team-b2 - %bot-team-b3 - %bot-team-b4 - %bot-team-b5 ( $+ %bot-cuenb $+ /5) | halt }
    msg %elcanal %ultima
  }
}


alias eltopic {
  topic %elcanal %bot-mod ( $+ $calc(%bot-cuena + %bot-cuenb) $+ /10) [Team-A] %bot-team-a1 - %bot-team-a2 - %bot-team-a3 - %bot-team-a4 - %bot-team-a5 ( $+ %bot-cuena $+ /5) [Team-B] %bot-team-b1 - %bot-team-b2 - %bot-team-b3 - %bot-team-b4 - %bot-team-b5 ( $+ %bot-cuenb $+ /5)
  if (%bot-cuena == 5) && (%bot-cuenb == 5) lanza
}


alias team-a {
  :team-a
  inc %bot-na
  if (%bot-na == 6) { notice $nick Ya no quedan plazas para el Team A | set %bot-na 5 | team-b | halt }
  else if (%bot-team-a [ $+ [ %bot-na ] ] == $null) {
    set %bot-team-a $+ %bot-na $nick
    set %bot-ip-a $+ %bot-na $address($nick,2)
    notice $nick Se te ha añadido al Team A
    unset %bot-na
    inc %bot-cuena
    eltopic
    halt
  }
  goto team-a
}

alias team-b {
  :team-b
  inc %bot-nb
  if (%bot-nb == 6) { notice $nick Ya no quedan plazas para el Team B | set %bot-nb 5 | team-a | halt }
  else if (%bot-team-b [ $+ [ %bot-nb ] ] == $null) {
    set %bot-team-b $+ %bot-nb $nick
    set %bot-ip-b $+ %bot-nb $address($nick,2)
    notice $nick Se te ha añadido al Team B
    unset %bot-nb
    inc %bot-cuenb
    eltopic
    halt
  }
  goto team-b
}

alias lanza {
  set %bot-n 0
  while (%bot-n < 5) {
    inc %bot-n
    msg %bot-team-a [ $+ [ %bot-n ] ] IP: %bot-ip PASS: %bot-pass CD: %bot-cd TEAM: A
  }
  set %bot-n 0
  while (%bot-n < 5) {
    inc %bot-n
    msg %bot-team-b [ $+ [ %bot-n ] ] IP: %bot-ip PASS: %bot-pass CD: %bot-cd TEAM: B
  }
  inc %total
  set %ultima Ultima paxanga lanzada a las $time En total lleva %total
  topic %elcanal %ultima
  unset %bot-*
}

alias mira {
  set %bot-n 0
  while (%bot-n < 5) {
    inc %bot-n
    if (%bot-ip-a [ $+ [ %bot-n ] ] == $address($nick,2)) { notice $nick Ya estas apuntado como %bot-team-a [ $+ [ %bot-n ] ] | halt }
  }
  set %bot-n 0
  while (%bot-n < 5) {
    inc %bot-n
    if (%bot-ip-b [ $+ [ %bot-n ] ] == $address($nick,2)) { notice $nick Ya estas apuntado como %bot-team-b [ $+ [ %bot-n ] ] | halt }
  }
  team- $+ $1
}