Kod

on *:TEXT:*:#: {
  if ($nick == $me) {
    if ($1 == .ekle) {
      if (!$2) || (!$3-) { echo -a  04[HATA]  Doğru kullanım: .ekle .komutadı cevap | return }
      var %yeni_komut = $strip($2), %cevap = $3-
      if ($left(%yeni_komut,1) != .) { var %yeni_komut = . $+ %yeni_komut }
      write gpt_dinamik_komutlar.txt %yeni_komut %cevap
      msg $chan  12[Sistem]   04 %yeni_komut  12komutu başarıyla eklendi!
      return
    }
    if ($1 == .sil) {
      if (!$2) { echo -a  04[HATA]  Doğru kullanım: .sil .komutadı | return }
      var %silinecek = $strip($2)
      if ($left(%silinecek,1) != .) { var %silinecek = . $+ %silinecek }
      if ($read(gpt_dinamik_komutlar.txt, w, %silinecek *)) {
        write -d gpt_dinamik_komutlar.txt $readn
        msg $chan  12[Sistem]   04 %silinecek  12komutu başarıyla silindi!
      }
      else { msg $chan  04[HATA]  %silinecek adında bir komut bulunamadı. }
      return
    }
  }

  if ($1 == .sen) {
    if (!$2) { msg $chan  04[UYARI]  Lütfen bir nick belirtin. Örnek: .sen Ahmet | return }
    var %rand = $r(1,3)
    if (%rand == 1) { msg $chan  12[Yorum]   04 $+ $2  12bence sunucunun en cana yakın insanı! }
    if (%rand == 2) { msg $chan  12[Yorum]   04 $+ $2  12bugün biraz neşesiz gibi görünüyor, hayırdır inşallah? }
    if (%rand == 3) { msg $chan  12[Yorum]   04 $+ $2  12şüpheli hareketler sergiliyor, sanki arkamızdan iş çeviriyor gibi! }
  }

  if ($1 == .çay) {
    if (!$2) { msg $chan  04[UYARI]  Kime çay ikram edeceksiniz? Örnek: .çay Ahmet | return }
    msg $chan  12[İkram]   04 $+ $nick $+  12, sunucumuzun tavşan kanı çayından  04 $+ $2  12karakterine afiyetle ikram etti. Afiyet olsun. }
  }

  if ($1 == .çorba) || ($1 == .çroba) {
    if (!$2) { msg $chan  04[UYARI]  Kime çorba ikram edeceksiniz? Örnek: .çorba Ahmet | return }
    var %corbalar = Mercimek,Ezogelin,Domates,Paça,Tarhana
    var %secilen = $token(%corbalar,$r(1,5),44)
    msg $chan  12[İkram]   04 $+ $nick $+  12,  11 %secilen Çorbasını  12bol limonlu ve sıcacık bir şekilde  04 $+ $2  12için masaya bıraktı. Şifa olsun! }
  }

  if ($1 == .kim) {
    if (!$2) { msg $chan  04[UYARI]  Lütfen bir nick belirtin. Örnek: .kim Ahmet | return }
    var %ozellikler = Sunucunun Gizli Kahramanı,Gözü Sürekli Özele Kayıp Duran Biri,Buraya Sadece Sohbet Etmeye Gelmiş Bir Melek,Kanalın En Tatlı Belası,Adminlerin Korkulu Rüyası
    var %durum = $token(%ozellikler,$r(1,5),44)
    msg $chan  12[Analiz]  Sorgulama Yapıldı:  04 $+ $2  12aslında kim mi? O tam olarak:  03 %durum  ! }
  }

  if ($1 == .nerdesin) {
    if (!$2) { msg $chan  04[UYARI]  Lütfen bir nick belirtin. Örnek: .nerdesin Ahmet | return }
    var %yerler = Mutfakta gizlice buzdolabını yağmalıyor,Özel pencerelerinde hararetli bir sohbete dalmış,Bilgisayar başında uyuyakalmış,Klavye başında çayını yudumluyor,Gözü kanalda kulağı seste bekliyor
    var %yer = $token(%yerler,$r(1,5),44)
    msg $chan  12[Takip]  Hemen bakıyorum...  04 $+ $2  12şu anda kesinlikle  06 %yer  ! }
  }

  var %bul = $read(gpt_dinamik_komutlar.txt, w, $1 *)
  if (%bul) {
    if (!$2) { msg $chan  04[UYARI]  Lütfen bir nick belirtin. | return }
    var %d_cevap = $gettok(%bul, 2-, 32)
    %d_cevap = $replace(%d_cevap, $chr(36) $+ nick, $nick, $chr(36) $+ 2, $2, $chr(36) $+ me, $me)
    msg $chan %d_cevap
  }
}

on *:INPUT:#: {
  if ($left($1,1) == .) && ($ctrl == $false) {
    if ($1 == .ekle) || ($1 == .sil) { return }

    if ($1 == .sen) {
      if (!$2) { echo -a  04[UYARI]  Lütfen bir nick belirtin. Örnek: .sen Ahmet | halt }
      var %rand = $r(1,3)
      if (%rand == 1) { msg $chan  12[Yorum]   04 $+ $2  12bence sunucunun en cana yakın insanı! | halt }
      if (%rand == 2) { msg $chan  12[Yorum]   04 $+ $2  12bugün biraz neşesiz gibi görünüyor, hayırdır inşallah? | halt }
      if (%rand == 3) { msg $chan  12[Yorum]   04 $+ $2  12şüpheli hareketler sergiliyor, sanki arkamızdan iş çeviriyor gibi! | halt }
    }

    if ($1 == .çay) {
      if (!$2) { echo -a  04[UYARI]  Kime çay ikram edeceksiniz? Örnek: .çay Ahmet | halt }
      msg $chan  12[İkram]   04 $+ $me $+  12, sunucumuzun tavşan kanı çayından  04 $+ $2  12karakterine afiyetle ikram etti. Afiyet olsun. | halt
    }

    if ($1 == .çorba) || ($1 == .çroba) {
      if (!$2) { echo -a  04[UYARI]  Kime çorba ikram edeceksiniz? Örnek: .çorba Ahmet | halt }
      var %corbalar = Mercimek,Ezogelin,Domates,Paça,Tarhana
      var %secilen = $token(%corbalar,$r(1,5),44)
      msg $chan  12[İkram]   04 $+ $me $+  12,  11 %secilen Çorbasını  12bol limonlu ve sıcacık bir şekilde  04 $+ $2  12için masaya bıraktı. Şifa olsun! | halt
    }

    if ($1 == .kim) {
      if (!$2) { echo -a  04[UYARI]  Lütfen bir nick belirtin. Örnek: .kim Ahmet | halt }
      var %ozellikler = Sunucunun Gizli Kahramanı,Gözü Sürekli Özele Kayıp Duran Biri,Buraya Sadece Sohbet Etmeye Gelmiş Bir Melek,Kanalın En Tatlı Belası,Adminlerin Korkulu Rüyası
      var %durum = $token(%ozellikler,$r(1,5),44)
      msg $chan  12[Analiz]  Sorgulama Yapıldı:  04 $+ $2  12aslında kim mi? O tam olarak:  03 %durum  ! | halt
    }

    if ($1 == .nerdesin) {
      if (!$2) { echo -a  04[UYARI]  Lütfen bir nick belirtin. Örnek: .nerdesin Ahmet | halt }
      var %yerler = Mutfakta gizlice buzdolabını yağmalıyor,Özel pencerelerinde hararetli bir sohbete dalmış,Bilgisayar başında uyuyakalmış,Klavye başında çayını yudumluyor,Gözü kanalda kulağı seste bekliyor
      var %yer = $token(%yerler,$r(1,5),44)
      msg $chan  12[Takip]  Hemen bakıyorum...  04 $+ $2  12şu anda kesinlikle  06 %yer  ! | halt
    }

    var %bul = $read(gpt_dinamik_komutlar.txt, w, $1 *)
    if (%bul) {
      if (!$2) { echo -a  04[UYARI]  Lütfen bir nick belirtin. | halt }
      var %d_cevap = $gettok(%bul, 2-, 32)
      %d_cevap = $replace(%d_cevap, $chr(36) $+ nick, $me, $chr(36) $+ 2, $2, $chr(36) $+ me, $me)
      msg $chan %d_cevap | halt
    }
  }
}