on *:TEXT:!kıtla *:#:{
  ; Eğer hedef belirtilmemişse uyar
  if ($2 == $null) { notice $nick Lütfen kimi kıtlayacağını belirt. Örnek: !kıtla Nick | return }
  
  ; Kendini kıtlamaya çalışırsa
  if ($2 == $me) { describe # $nick bana diş geçiremezsin, ben metaldenim! :P | return }
  if ($2 == $nick) { describe # $nick kendi kendini kemiriyor, durum vahim! | return }

  ; Rastgele cevap seçimi (1 ile 5 arası)
  var %r = $rand(1,5)

  if (%r == 1) { describe # $nick , $2 kişisinin yanağını ufaktan kıtladı. Çok tatlı! }
  if (%r == 2) { describe # $nick sinsi sinsi yaklaştı ve $2 kişisinin kulağını kıtladı! }
  if (%r == 3) { describe # $nick , $2 kişisini "HAM" yaptı! }
  if (%r == 4) { describe # $nick , $2 kişisinin burnunu ısırdı, şaka şaka sadece kıtladı. :) }
  if (%r == 5) { describe # $nick , $2 kişisini görünce dayanamadı ve kolundan bir parça kıtladı. }
}

on *:TEXT:!ısır *:#:{
  ; Eğer hedef belirtilmemişse uyar
  if ($2 == $null) { notice $nick Lütfen kimi ısıracağını belirt. Örnek: !ısır Nick | return }

  ; Kendini ısırmaya çalışırsa
  if ($2 == $me) { describe # $nick dişlerini bana geçirmeye çalıştı ama dişleri kırıldı. :) | return }
  if ($2 == $nick) { describe # $nick açlıktan kendini yiyor, birisi ona yemek versin! | return }

  ; Rastgele cevap seçimi (1 ile 5 arası)
  var %r = $rand(1,5)

  if (%r == 1) { describe # $nick , $2 kişisine bir vampir edasıyla saldırdı ve ISIRDI! 4Vahşet! }
  if (%r == 2) { describe # $nick , $2 kişisinin kolunu koparırcasına ısırdı. Ambulans çağırın! }
  if (%r == 3) { describe # $nick , $2 kişisini gördü, gözü döndü ve "HARRT" diye ısırdı. }
  if (%r == 4) { describe # $nick , $2 kişisine zombi gibi saldırdı. Kaç $2 kaç! }
  if (%r == 5) { describe # $nick , $2 kişisini ısırmakla kalmadı, resmen yedi bitirdi. }
}

on *:text:*:#: {
  if ($1 == !kıtla) {
    if (!$2) { msg # $nick $+ , kimi kıtlayacağını yazmadın! Kendi kendini mi yiyeceksin? :) | return }
    var %kitla_mesaj $read(kitla_sozleri.txt, n)
    msg # 🦷 $nick $+ , $2 adlı kullanıcıyı öyle bir kıtladı ki; %kitla_mesaj
  }
  if ($1 == !ısır) {
    if (!$2) { msg # $nick $+ , dişlerini kime geçireceksin? Bir nick belirtmelisin! | return }
    var %isir_mesaj $read(isir_sozleri.txt, n)
    msg # 👄 $nick $+ , $2 kullanıcısını fena ısırdı! %isir_mesaj
  }
}