on *:TEXT:!bombscore*:#: {
  var %person $iif($2,$2,$nick)
  var %score $calc($readini(bot.ini, bombd, %person) - $readini(bot.ini, Bombl, %person))
  msg # %person has a bomb score of %score
  if ( %score >= 30 ) {
    msg # %person is an 1,13Astronmocal Bomb Defuser
  }
  elseif ( %score >= 20 ) {
    msg # %person is an 4,8Insane Bomb Defuser
  }
  elseif ( %score >= 10 ) {
    msg # %person is an 1,8AMAZING Bomb Defuser
  } 
  elseif ( %score >= 5 ) {
    msg # wow %person is an  1,4Elite Bomb Defuser  
  }
  elseif ( %score >= 2 ) {
    msg # wow %person is a 0,14certified bomb defuser
  }
  elseif ( %score >= 0 ) { 
    msg # %person is a 0,1average Bomb Defuser
  }
  else {
    msg # %person is a 1,15Horrible Bomb Defuser
  }
}
on $*:TEXT:/^[!@.]bomb/Si:#:{
  if (!%bomba) {
    set %bombchan $chan
    if ($2 == $me) { msg # $nick You 0,1CANT bomb me >.> | halt }
    elseif ($strip($2) == $nick) || (!$2) {
      set %bomba 1
      set %bomber $nick   
      set %bombnick $iif($2,$strip($2),$nick)
      unset %radaruse
      var %sec $rand(15,40)
      set %color $read(colour.txt)
      var %time $calc( %sec / 1/2 )
      msg $chan $read(phrase.txt)
      msg $chan  $+ %bombnick $+ , type 0,4!red 0,12!blue 0,1black or 0,3!green to cut the wire and deactive the bomb!
      .timerbombremain 1 %time msg #  $+ %time seconds remaining!!
      .timerbombdead 1 %sec unset22
      .timerbombsecond 1 %sec unset %rad*
    }
    elseif ($2 ison $chan) {
      set %bomber $nick  
      set %bomba 1 
      set %bombnick $strip($2)
      var %sec $rand(20,50)
      set %color $read(colour.txt)
      var %time $calc( %sec / 1/2 )
      msg $chan $read(phrase2.txt)
      msg $chan  $+ $2 $+ , type 4,0!red 12,0!blue 1,0!Black or 3,0!green to cut the wire and deactive the bomb!
      set %color $read(colour.txt)
      .timerbombremain 1 %time msg #  $+ %time seconds remaining!!
      .timerbombtime 1 %sec unset22
    }
    else { .notice $nick I do not see that person, im sorry. }
  }
  else { $iif(!%bombtalked,.msg $chan %bombnick is currently being bombed.) | set %bombtalked 1 }
}
alias unset22 {
  var %x $iif($readini(bot.ini, Bombl, %bombnick),$readini(bot.ini, bombl, %bombnick),0)
  inc %x
  writeini bot.ini bombl %bombnick %x
  msg %bombchan %bombnick 4(((~~~~~KABOOOOOMMM!!!!~~~~~))) Congratulation, You were bombed by %bomber $+ ! %bombnick has died %x times.
  unset %bomb*
}
alias colours {
  var %x $false
  if (black iswm $1) { var %x $true }
  if (green iswm $1) { var %x $true }
  if (blue iswm $1) { var %x $true }
  if (red isin $1) { var %x $true }
  return %x
}
alias colourcheck {
  if ($colours($1)) { var %x $1 }
  if ($colours($2)) { var %x $2 }
  if ($colours($3)) { var %x $3 }
  if ( %x == %color ) { return $true }
  else { return $false
  }
}
on $*:TEXT:*:#: {
  if ($nick == %bombnick) {
    if ( $colourcheck($1-)) {
      var %defused $iif($readini(bot.ini, bombd, $nick),$readini(bot.ini, bombd, $nick), 0)
      inc %defused
      writeini bot.ini bombd $nick %defused
      msg $chan Great, the bomb is off! I bet %bombnick feels lucky today!
      msg $chan %bombnick has defused $readini(bot.ini, bombd, $nick) bombs
      .timerbomb* off
      unset %bomb*
      halt
    }
    if (!red isin $1-) || ( !blue isin $1- ) || ( !Green isin $1-) || ( !black isin $1-) {
      var %x $iif($readini(bot.ini, Bombl, $nick),$readini(bot.ini, bombl, $nick),0)
      inc %x 1
      writeini bot.ini bombl $nick %x
      msg $chan %bombnick 4(((~~~~~KABOOOOOMMM!!!!~~~~~))) you just pick up the wrong wire! %bombnick has died %x times.
      .timerbomb* off
      unset %bomb*
    }
  }
}
on *:load: {
  .remove phrase.txt
  .remove phrase2.txt
  write Phrase2.txt 0,1 well i guess a man must do what a man must do DISABLE THIS BITCH >:) you got % $+ sec seconds to live $+ !!!
  write phrase2.txt 0,4XD TIME TO DIE MOTHA PUCKA >:) got % $+ sec seconds to live good luck >:)
  write phrase2.txt 0,4Meet my little friend % $+ bombnick :), Bomb thrown, % $+ sec seconds to live, thats all :o. 
  write phrase.txt 0,1Whoa, u wanna suicide, $ $+ nick $+ ? Okay, the bomb will explode in % $+ sec seconds! 
  write phrase.txt 4,1well i can see you're not about living so alright :P KABOOM TIME >:) bomb explodes in % $+ sec seconds 
  write phrase.txt 0,4XD TIME TO DIE MOTHA PUCKA >:) YOU GOT % $+ sec SECONDS TO LIVE@@@@
}

Commenting Options