!Bomb Game Addon hotfix v1.0 for Delirious

on *:TEXT:!bomb *:#: {
  if ((%floodbombride) || ($($+(%,floodbombride.,$nick),2))) { return }
  set -eu60 %floodbombride On
  set -eu60 %floodbombride. $+ $nick On
  tokenize 32 $strip($remove($1-,@))
  if $2 != $me {
    if %cutwire != 1 {
      if $2 = Random {
        set -e %bombwire $rand(1,5)
        :one
        set -e %bombee $nick(#,$r(1,$nick(#,0,a)),a)
        if %bombee = $me { goto one }
        set -e %cutwire 1
        if %bombwire = 1 { set -e %bombwirecolor red | set -e %wireright RED }
        if %bombwire = 2 { set -e %bombwirecolor orange | set -e %wireright ORANGE }
        if %bombwire = 3 { set -e %bombwirecolor yellow | set -e %wireright YELLOW }
        if %bombwire = 4 { set -e %bombwirecolor green | set -e %wireright GREEN }
        if %bombwire = 5 { set -e %bombwirecolor blue | set -e %wireright BLUE }
        if %bombstats. [ $+ [ %bombee ] ] != 1 { set -e %bombstats. [ $+ [ %bombee ] ] 1 | set -e %bombwin. [ $+ [ %bombee ] ] 0 | set -e %bomblose. [ $+ [ %bombee ] ] 0 | set -e %bombtimeout. [ $+ [ %bombee ] ] 0 }
        msg $chan $nick planted a bomb with a 45 second timer under %bombee $+ 's chair! %bombee needs to pick a wire to cut: RED ORANGE YELLOW GREEN BLUE
        .timerBomb 1 46 msg $chan TICK - TICK - TICK - TICK - BOOM! %bombee took too long, and got blown up. Stupid %bombee $+ ! All they had to do was cut the %wireright wire...
        .timer 1 47 unset %bombwire
        .timer 1 47 unset %bombee
        .timer 1 47 unset %cutwire
        .timerStats 1 47 inc %bombtimeout. [ $+ [ %bombee ] ] 1
      }
      elseif $2 ison $chan {
        set -e %bombwire $rand(1,5)
        set -e %bombee $2
        set -e %cutwire 1
        if %bombwire = 1 { set -e %bombwirecolor red | set -e %wireright RED }
        if %bombwire = 2 { set -e %bombwirecolor orange | set -e %wireright ORANGE }
        if %bombwire = 3 { set -e %bombwirecolor yellow | set -e %wireright YELLOW }
        if %bombwire = 4 { set -e %bombwirecolor green | set -e %wireright GREEN }
        if %bombwire = 5 { set -e %bombwirecolor blue | set -e %wireright BLUE }
        if %bombstats. [ $+ [ $2 ] ] != 1 { set -e %bombstats. [ $+ [ $2 ] ] 1 | set -e %bombwin. [ $+ [ $2 ] ] 0 | set -e %bomblose. [ $+ [ $2 ] ] 0 | set -e %bombtimeout. [ $+ [ $2 ] ] 0 }
        msg $chan $nick planted a bomb with a 45 second timer under $2 $+ 's chair! $2 needs to pick a wire to cut: RED ORANGE YELLOW GREEN BLUE
        .timerBomb 1 46 msg $chan TICK - TICK - TICK - TICK - BOOM! $2 took too long, and got blown up. Stupid $2 $+ ! All they had to do was cut the %wireright wire...
        .timer 1 47 unset %bombwire
        .timer 1 47 unset %bombee
        .timer 1 47 unset %cutwire
        .timerStats 1 47 inc %bombtimeout. [ $+ [ $2 ] ] 1
      }
      else { msg $chan Sorry, but I don't see a $2 in this channel... }
    }
    else { msg $chan Someone else is currently being bombed. Please wait until they explode or redeem themself by cutting the correct wire! }
  }
  else { msg $chan I can't bomb myself, stupid! }
}

on *:TEXT:red:#: {
  tokenize 32 $strip($1-)
  if $nick = %bombee {
    if $1 = %bombwirecolor {
      msg $chan HOLY CRAP! $nick just saved themself by cutting the RED WIRE!
      inc -e %bombwin. [ $+ [ $nick ] ] 1
      .timerBomb off
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
    else {
      msg $chan TICK - TICK - TICK - BOOM! $nick cut the RED wire and suffered the consequences. Stupid stupid $nick $+ . Should have cut the %wireright wire!
      inc -e %bomblose. [ $+ [ $nick ] ] 1
      .timerBomb off
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
  }
}


on *:TEXT:green:#: {
  tokenize 32 $strip($1-)
  if $nick = %bombee {
    if $1 = %bombwirecolor {
      msg $chan HOLY CRAP! $nick just saved themself by cutting the GREEN WIRE!
      inc -e %bombwin. [ $+ [ $nick ] ] 1
      .timerBomb off
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
    else {
      msg $chan TICK - TICK - TICK - BOOM! $nick cut the GREEN wire and suffered the consequences. Stupid stupid $nick $+ . Should have cut the %wireright wire!
      .timerBomb off
      inc -e %bomblose. [ $+ [ $nick ] ] 1
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
  }
}


on *:TEXT:yellow:#: {
  tokenize 32 $strip($1-)
  if $nick = %bombee {
    if $1 = %bombwirecolor {
      msg $chan HOLY CRAP! $nick just saved themself by cutting the YELLOW WIRE!
      inc -e %bombwin. [ $+ [ $nick ] ] 1
      .timerBomb off
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
    else {
      msg $chan TICK - TICK - TICK - BOOM! $nick cut the YELLOW wire and suffered the consequences. Stupid stupid $nick $+ . Should have cut the %wireright wire!
      .timerBomb off
      inc -e %bomblose. [ $+ [ $nick ] ] 1
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
  }
}


on *:TEXT:blue:#: {
  tokenize 32 $strip($1-)
  if $nick = %bombee {
    if $1 = %bombwirecolor {
      msg $chan HOLY CRAP! $nick just saved themself by cutting the BLUE WIRE!
      inc -e %bombwin. [ $+ [ $nick ] ] 1
      .timerBomb off
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
    else {
      msg $chan TICK - TICK - TICK - BOOM! $nick cut the BLUE wire and suffered the consequences. Stupid stupid $nick $+ . Shoulda have cut the %wireright wire!
      .timerBomb off
      inc -e %bomblose. [ $+ [ $nick ] ] 1
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
  }
}


on *:TEXT:orange:#: {
  tokenize 32 $strip($1-)
  if $nick = %bombee {
    if $1 = %bombwirecolor {
      msg $chan HOLY CRAP! $nick just saved themself by cutting the ORANGE WIRE!
      inc -e %bombwin. [ $+ [ $nick ] ] 1
      .timerBomb off
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
    else {
      msg $chan TICK - TICK - TICK - BOOM! $nick cut the ORANGE wire and suffered the consequences. Stupid stupid $nick $+ . Should have cut the %wireright wire!
      .timerBomb off
      inc -e %bomblose. [ $+ [ $nick ] ] 1
      unset %bombwire
      unset %bombee
      unset %cutwire
      unset %bombwirecolor
    }
  }
}

on *:TEXT:!bombstats:#: {
  tokenize 32 $strip($remove($1-,@))
  if ((%flood!bombstats2) || ($($+(%,flood!bombstats2.,$nick),2))) { return }
  set -eu15 %flood!bombstats2 On
  set -eu30 %flood!bombstats2. $+ $nick On
  if %bombstats. [ $+ [ $nick ] ] != 1 { msg $chan $nick has not yet been bombed. Let's bomb them! }
  else { msg $chan $nick has cut the correct wire %bombwin. [ $+ [ $nick ] ] times. $nick has cut the wrong wire %bomblose. [ $+ [ $nick ] ] times. $nick has not cut a wire, losing by default, %bombtimeout. [ $+ [ $nick ] ] times. }
}

on *:TEXT:!bombstats *:#: {
  tokenize 32 $strip($remove($1-,@))
  if ((%flood!bombstats1) || ($($+(%,flood!bombstats1.,$nick),2))) { return }
  set -eu15 %flood!bombstats1 On
  set -eu30 %flood!bombstats1. $+ $nick On
  if %bombstats. [ $+ [ $2 ] ] != 1 { msg $chan $2 has not yet been bombed. Let's bomb them! }
  else { msg $chan $2 has cut the correct wire %bombwin. [ $+ [ $2 ] ] times. $2 has cut the wrong wire %bomblose. [ $+ [ $2 ] ] times. $2 has not cut a wire, losing by default, %bombtimeout. [ $+ [ $2 ] ] times. }
}