Author: unknown

bomb.mrc

menu nicklist {
  A-Bomb:bombkick $$1
}
 
alias bombreset { 
  /unset %bombstat* 
  /unset %bombchan* 
  /set %bombtop 0 
  /set %bombtopn 0
  /.timerbombreset off
  /.timerbombreset 00:01 1 1 /bombreset
}
 
on 1:text:!bombkick:#:{
  if ( $me isop $chan ) /bombkick $nick
}
 
on 1:text:!bombstats:%atsbombchan:{
  if ( %bombstats [ $+ [ $$1 ] ]  = on ) { /halt }
  /set -u20 %bomstats [ $+ [ $$1 ] ] on
  /.notice $nick Du hast $iif(%bombstat [ $+ [ $nick ] ] != $null,%bombstat [ $+ [ $nick ] ],0) Bomben erfolgreich hintereinander entschärft ;)
}
 
alias bombkick {
  if ( %bombtop = $null ) { /set %bombtop 0 }
  if ( %bombtopn = $null ) { /set %bombtopn 0 }
  if ( %bombkick [ $+ [ $$1 ] ]  = on ) { /halt }
  elseif ( %bombchan [ $+ [ $nick ] ] != $null ) { 
    if ( %bombchanb [ $+ [ $nick ] ] = blubb ) { halt }
    /.notice $nick Nur eine Bombe alle 3 Minuten ! ;)
    halt
  }
  /set -u20 %bombkick [ $+ [ $$1 ] ] on
  /inc %bombnumber
  /describe $chan gibt $$1 ne Bombe in die Hand ! Versuch das richtige Kabel durchzuschneiden mit !rot, !gelb oder !grün !!! schnell, du hast nur 20 sekunden!! (Bombe Nr. %bombnumber $+ )
  /.timerbombkick $+ $$1 1 20 /kick $chan $$1 *BOOOM* - die Bombe ist hochgegangen ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn
  /set %farbe $rand(1,3)
  if (%farbe == 1) { set %farb rot }
  if (%farbe == 2) { set %farb grün }
  if (%farbe == 3) { set %farb gelb }
  /set -u20 %bombcolor [ $+ [ $$1 ] ] %farb
  /set -u180 %bombchan [ $+ [ $$1 ] ] $chan
}
 
on 1:text:!rot:#:{
  if ( %bombkick [ $+ [ $nick ] ]  = on ) {
    if ( %bombcolor [ $+ [ $nick ] ] = rot ) {
      /inc %bombstat [ $+ [ $nick ] ]
      /unset %bombstatn [ $+ [ $nick ] ]
      /describe %bombchan [ $+ [ $nick ] ] Puh, da haste nochmal glück gehabt $nick ! Bombe entschärft. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- Du: %bombstat [ $+ [ $nick ] ]
      /.timerbombkick $+ $nick off
      /unset %bombkick [ $+ [ $nick ] ]
      if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick ist jetz mit an der Bomb-kick-spitze! ( $+ %bombtop Entschärfungen, genau wie: %bombtopnick $+ ) | /set %bombtopnick $addtok(%bombtopnick,$nick,32) }
      if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick ist neuer Meister-Entschärfer mit %bombtop Entschärfungen !!! }
    }
    else {
      /inc %bombstatn [ $+ [ $nick ] ]
      /describe %bombchan [ $+ [ $nick ] ] meint: falscher Draht $nick - *BOOOOOOOOOM*
      /.timerbombkick $+ $nick off
      /unset %bombkick [ $+ [ $nick ] ]
      /kick %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - die Bombe ist hochgegangen ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- Du: %bombstatn [ $+ [ $nick ] ]
      /unset %bombstat [ $+ [ $nick ] ]
      if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick ist jetz auch mit ganz unten! ( $+ %bombtopn Explosionen, genau wie: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
      if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick ist neuer Meister-Explodierer mit %bombtopn Explosionen !!! }
    }
  }
}
 
on 1:text:!grün:#:{
  if ( %bombkick [ $+ [ $nick ] ]  = on ) {
    if ( %bombcolor [ $+ [ $nick ] ] = grün ) {
      /inc %bombstat [ $+ [ $nick ] ]
      /unset %bombstatn [ $+ [ $nick ] ]
      /describe %bombchan [ $+ [ $nick ] ] Puh, da haste nochmal glück gehabt $nick ! Bombe entschärft. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- Du: %bombstat [ $+ [ $nick ] ]
      /.timerbombkick $+ $nick off
      /unset %bombkick [ $+ [ $nick ] ]
      if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick ist jetz mit an der Bomb-kick-spitze! ( $+ %bombtop Entschärfungen, genau wie: %bombtopnick $+ ) | /set %bombtopnick $addtok(%bombtopnick,$nick,32) }
      if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick ist neuer Meister-Entschärfer mit %bombtop Entschärfungen !!! }
    }
    else {
      /inc %bombstatn [ $+ [ $nick ] ]
      /describe %bombchan [ $+ [ $nick ] ] meint: falscher Draht $nick - *BOOOOOOOOOM*
      /.timerbombkick $+ $nick off
      /unset %bombkick [ $+ [ $nick ] ]
      /kick %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - die Bombe ist hochgegangen ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- Du: %bombstatn [ $+ [ $nick ] ]
      /unset %bombstat [ $+ [ $nick ] ]
      if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick ist jetz auch mit ganz unten! ( $+ %bombtopn Entschärfungen, genau wie: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
      if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick ist neuer Meister-Explodierer mit %bombtopn Explosioenen !!! }
    }
  }
}
 
on 1:text:!gelb:#:{
  if ( %bombkick [ $+ [ $nick ] ]  = on ) {
    if ( %bombcolor [ $+ [ $nick ] ] = gelb ) {
      /inc %bombstat [ $+ [ $nick ] ]
      /unset %bombstatn [ $+ [ $nick ] ]
      /describe %bombchan [ $+ [ $nick ] ] Puh, da haste nochmal glück gehabt $nick ! Bombe entschärft. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- Du: %bombstat [ $+ [ $nick ] ]
      /.timerbombkick $+ $nick off
      /unset %bombkick [ $+ [ $nick ] ]
      if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick ist jetz mit an der Bomb-kick-spitze! ( $+ %bombtop Entschärfungen, genau wie: %bombtopnick $+ ) | /set %bombtopnick $addtok(%bombtopnick,$nick,32) }
      if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick ist neuer Meister-Entschärfer mit %bombtop Entschärfungen !!! }
    }
    else {
      /inc %bombstatn [ $+ [ $nick ] ]
      /describe %bombchan [ $+ [ $nick ] ] meint: falscher Draht $nick - *BOOOOOOOOOM*
      /.timerbombkick $+ $nick off
      /unset %bombkick [ $+ [ $nick ] ]
      /kick %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - die Bombe ist hochgegangen ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- Du: %bombstatn [ $+ [ $nick ] ]
      /unset %bombstat [ $+ [ $nick ] ]
      if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick ist jetz auch mit ganz unten! ( $+ %bombtopn Entschärfungen, genau wie: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
      if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick ist neuer Meister-Explodierer mit %bombtopn Explosioenen !!! }
    }
  }
}