Kod

 if $regex($2,353) && (%sorgunick || %sorgu2nick) {
    var %x 1, %komut sockwrite -nt $sockname
    while $token($6-,%x,32) { var %v1 $v1
      if %sorgunick isin %v1 {
        %komut privmsg $5 $chr(2) $+ %komutcu $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ %sorgunick $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
        %komut privmsg $5 $chr(3) $+ 5 $+ Bomba Aktif. Son $+ $chr(3) $+ 4 30 $chr(3) $+ 5 $+ Saniye. $chr(3) $+ 4 $+ Zaman İşLiyor... Tik Tak Tik Tak...
        %komut privmsg $5 $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
        %komut privmsg $5 -
        %komut privmsg $5 $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
        .set %dinchan $5
        .timerbomba 1 30 patlat
        set %bomba_nick %sorgunick
        set %bombaci_nick %komutcu
        set %bombaci_nick $addtok(%bombaci_nick,$+(%sorgunick),32)
        unset %sorgunick
        return
      }
      if %sorgu2nick isin %v1 {
        if (%sorgu2nick isin %bombaci_nick) {
          %komut privmsg $5 $chr(2) $+ $2 $+ $chr(2) $chr(3) $+ 4 $+ Daha Önce Bombadan Kurtulmuş. Başkasına Doğru At $chr(2) $+ $nick $+ $chr(2) 
          unset %sorgu2nick
          return 
        } 
        %komut privmsg $5 $chr(2) $+ %komutcu $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ %sorgu2nick $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
        %komut privmsg $5 $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
        %komut privmsg $5 -
        %komut privmsg $5 $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
        set %bomba_nick %sorgu2nick
        set %bombaci_nick $addtok(%bombaci_nick,$+(%sorgu2nick),32)
        unset %sorgu2nick
        return
      }
      inc %x
    }
    %komut privmsg $5 $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
    unset %sorgunick
    unset %sorgu2nick
  }
  if $regex($2,/privmsg/i) {
    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3, %komut sockwrite -nt $sockname
    tokenize 32 $right($4-,-1)
    if $regex($1,/([.!]bomba)/Si) {
      if %bombaci_nick {
        %komut privmsg %chan $chr(3) $+ 4 $+ Bomba Şuanda Aktif Durumda.
        return
      }
      set %bomba_renkler altin gri mavi siyah yesil kirmizi
      set %bomba_renk $token(%bomba_renkler,$rand(1,6),32)
      if $istok($botnick %nick,$2,32) {
        %komut privmsg %chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ %nick $+ $chr(2)
        return 
      }
      if !$2 { 
        %komut privmsg %chan $chr(2) $+ %nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
        return
      }
      set %sorgunick $2
      set %komutcu %nick
      %komut names %chan
    }

    if $regex($1,/([.!]at)/Si) {
      if (%nick == %bomba_nick) {
        if $istok($botnick %nick,$2,32) { 
          %komut privmsg %chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ %nick $+ $chr(2)
          return 
        }
        if !$2 { 
          %komut privmsg %chan $chr(2) $+ %nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
          return 
        }
        set %sorgu2nick $2
        set %komutcu %nick
        %komut names %chan
      }

      else {
        %komut privmsg %chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
      }
    }
    if $regex($1,/([.!]kes)/Si) {
      if (%nick == %bomba_nick) {
        if ($2 == %bomba_renk) { 
          .timerbomba off 
          %komut privmsg %chan - 
          %komut privmsg %chan $chr(3) $+ 5 $+ Kanalın Kahramanı $+ $chr(3) $chr(2) $+ %nick $+ $chr(2) $+ . $chr(3) $+ 5 $+ Kendini Bombadan Kurtardı. Tebrikler, $+ $chr(3) $chr(2) $+ %nick $+ $chr(2) $+ . :)  
          %komut privmsg %chan - 
          unset %bomba_* 
          unset %bombaci_*
          unset %dinchan
        }
        elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,32) { 
          %komut privmsg %chan $chr(2) $+ %nick $+ $chr(2) $+ .  $chr(3) $+ 4 $+ Yanlış Renk!
          %komut privmsg %chan $chr(3) $+ 5 $+ Bombanın PatLamasına Saniyeler Kaldı.! 
        }
      }
      else {
        %komut privmsg %chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
      }
    }
  }


alias botnick return Secure
alias -l patlat {
  sockwrite -nt ajangiris kick %dinchan %bomba_nick Seni Uyardım, Bomba Elinde PatLadı. $chr(2) $+ BOOOOM!
  .unset %bomba_*
  .unset %bombaci_*
  .unset %dinchan
}