!bomb game (DE)

mIRC snippet - un joc pentru canalele de chat unde un utilizator va utiliza comanda !bomb nickname. Jucatorul trebuie sa dezamorseze bomba cu culoarea corecta altfel va primi kick. Acest mirc snippet este in limba germana.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	!bomb script	games	Cod testat	550	2023-12-10 14:25:10

On *:LOAD: {
  writeini games.ini bomb min 15
  writeini games.ini bomb max 60
  writeini games.ini bomb status 0
}

on *:TEXT:*:#:  {

  if ($strip($$1) == !Bomb) {
    if ($bomb == yes) { msg $chan er ligt al een bom | halt }

    if ($$2) {  
      if ($$2 !ison $chan) {
        msg $chan dacht je dat je dat ik iemand die hier niet is een bom ga geven >_> Als straf krijg jij er een!
        set %nick $nick
      }
      if ($$2 ison $chan) {
         if ($$2 == $me) {
          msg $chan Grapjas :) Ik ga $$2 niet opblazen hoor ;)
          msg $chan Als straf krijg jij er 1 $nick
          set %nick $nick
        }
        else {
          if ($nick($chan,$$2).idle > 300) { if ($nick != $me) {
              msg $chan $$2 is al langer dan 5 minuten afwezig... Zo kan ik ook iemand opblazen hoor :S Laf hoor (A)
            set %nick $nick }
            else { set %nick $$2 }
          }
          else {
            set %nick $$2
          }      
        }
      }

      set %chan $chan
      .writeini games.ini bomb status 1

      var %rand $rand(1,4)
      if (%rand == 1) { .set %bcolor Blauw }
      if (%rand == 2) { .set %bcolor Rood }
      if (%rand == 3) { .set %bcolor Oranje }
      if (%rand == 4) { .set %bcolor Paars }

      var %randmsg $rand(1,3)
      if (%randmsg == 1) { describe %chan duwt %nick een huid-magnetische bom in zijn handjes }
      if (%randmsg == 2) { describe %chan bind een bom rond %nick $+ `s nek }
      if (%randmsg == 3) { describe %chan geeft %nick een automatisch-terugvliegende-als-je-ze-weggooit-bom }

      .timermsg1 1 1 msg %chan %nick kan deze bom ontmantelen door een draad door te knippen! Er is een Blauwe, een Rode, een Oranje en een Paarse draad, ik denk dat je zal moeten gokken;) SUCCES!
      .timermsg2 1 3 msg %chan %nick $+ : Type !cutwire <4ROOD|2BLAUW|7ORANJE|6PAARS> om een draad door te knippen, wees snel, want de bom kan elk moment ontploffen!
      .timerstartcount 1 3 .timerexplode 1 $btime btimeover
    }
  }

  if ($strip($$1) == !Cutwire) {
    if ($bomb == yes) && (%nick == $nick) {

      if ($$2 != Blauw) && ($$2 != Rood) && ($$2 != Oranje) && ($$2 != Paars) { msg %chan $$2 is een ongeldige kleur. | halt }
      if ($$2 == %bcolor) {

        msg %chan :O GEFELICITEERD %nick $+ ! Je hebt de bom ONTMANTELD!
        .timerexplode off
        bdone
      }

      if ($$2 != %bcolor) {
        kick %chan %nick $bkaboom
        msg %chan Voortaan zullen we het zonder %nick moeten doen :(
        bdone
      }
    }

  }

}

alias btimeover {
  kick %chan %nick $bkaboom
  msg %chan Tja, het lijkt erop dat %nick wat tijd tekort had (: Een kandidaat die het denkt wél te kunnen?
  bdone
}

alias bdone {
  unset %nick
  unset %chan
  unset %bcolor
  writeini games.ini bomb status 0

}

alias bomb {
  if ($readini(games.ini,bomb,status)==1) { return yes }
}

alias bkaboom {
  return 8,1*K7AB4OO7M!8*
}

alias btime {
  var %min $readini(games.ini,bomb,min)
  var %max $readini(games.ini,bomb,max)
  var %rand $rand($readini(games.ini,bomb,min),$readini(games.ini,bomb,max))
  return %rand
}