HTML-Kodu

================================================
;  NoMercy Bot - Kisisel Sifreli Not/Gunluk Sistemi (Tam Surum)
;  !not [@onemli] <mesaj>       -> not ekler (etiket opsiyonel)
;  !notlarim                    -> ID'li liste (icerik gizli)
;  !notoku <id|hepsi>           -> notu/notlari ozelden gosterir
;  !notsil <id|hepsi>           -> notu/notlari siler
;  !notduzenle <id> <mesaj>     -> var olan notu gunceller
;  !notara <kelime>             -> notlar icinde arama yapar
; ================================================

alias notdosya        { return $+($scriptdir,notlar.ini) }
alias notanahtar      { return DEGISTIR_BU_GIZLI_ANAHTARI_2026 }
alias notbekleme      { return 10 }    ; komut spam korumasi (saniye)
alias notgunluklimit  { return 15 }    ; gunluk max not sayisi
alias nottoplamlimit  { return 100 }   ; bekleyen max not sayisi
alias notmaxkarakter  { return 500 }   ; tek not icin max karakter
alias notsuresi       { return 30 }    ; gun - bu sureden eski notlar otomatik silinir
alias notbildirimbekleme { return 3600 } ; ayni kisiye tekrar NOTIFY bildirimi icin bekleme (saniye)

; --- ID uretici: kullanicinin bir sonraki notu icin kalici artan numara ---
alias notyeniid {
  var %kullanici = $1
  var %mevcut = $readini($notdosya,n,IDSAYAC,%kullanici)
  if (%mevcut == $null) { var %mevcut = 0 }
  var %yeni = $calc(%mevcut + 1)
  writeini $notdosya IDSAYAC %kullanici %yeni
  return %yeni
}

on *:START: {
  if ($hget(notflood))    { hfree notflood }
  if ($hget(notsayac))    { hfree notsayac }
  if ($hget(notbildirim)) { hfree notbildirim }
  hmake notflood 100
  hmake notsayac 100
  hmake notbildirim 100

  ; notify listesine bekleyen notu olanlari ekle (IDSAYAC bolumunu atla)
  var %i = 1
  while ($ini($notdosya,%i)) {
    var %hedef = $ini($notdosya,%i)
    if (%hedef != IDSAYAC) {
      if ($notify(%hedef) == 0) { notify +%hedef }
    }
    inc %i
  }

  ; eski notlari periyodik temizleyen zamanlayici (her 6 saatte bir)
  if ($timer(nottemizle)) { .timernottemizle off }
  .timernottemizle 0 21600 nottemizlik
}

; --- Eski notlari otomatik temizleme ---
alias nottemizlik {
  var %i = 1
  while ($ini($notdosya,%i)) {
    var %kullanici = $ini($notdosya,%i)
    if (%kullanici != IDSAYAC) {
      var %j = 1, %adet = $ini($notdosya,%kullanici,0)
      while (%j <= %adet) {
        var %anahtar = $ini($notdosya,%kullanici,%j)
        var %veri    = $readini($notdosya,n,%kullanici,%anahtar)
        var %zaman   = $gettok(%veri,1,1)
        if ($calc($ctime - %zaman) > $calc($notsuresi * 86400)) {
          remini $notdosya %kullanici %anahtar
        }
        else { inc %j }
      }
      if (!$ini($notdosya,%kullanici)) { notify -%kullanici }
    }
    inc %i
  }
}

; --- !not [@onemli] <mesaj> ---
on *:TEXT:/^!not\s+(.+)$/i:?:{
  var %kullanici = $lower($nick)
  var %mesaj     = $regml(1)
  var %oncelik   = 0

  if ($regex(%mesaj,/^@onemli\s+(.+)$/i)) {
    var %mesaj  = $regml(1)
    var %oncelik = 1
  }

  if ($len(%mesaj) > $notmaxkarakter) {
    notice $nick Not cok uzun! Maksimum $notmaxkarakter karakter girebilirsiniz. ( $+ $len(%mesaj) $+ girdiniz )
    halt
  }

  if ($hget(notflood,%kullanici)) {
    var %kalan = $calc($hget(notflood,%kullanici) - $ctime)
    if (%kalan > 0) {
      notice $nick Lutfen bekleyin, tekrar not eklemek icin %kalan saniye sonra deneyin.
      halt
    }
  }

  var %veri       = $hget(notsayac,%kullanici)
  var %sayac      = $iif(%veri,$gettok(%veri,1,32),0)
  var %sifirlanma = $iif(%veri,$gettok(%veri,2,32),0)
  if ($ctime > %sifirlanma) {
    var %sayac = 0
    var %sifirlanma = $calc($ctime + 86400)
  }
  if (%sayac >= $notgunluklimit) {
    notice $nick Gunluk not limitine ulastiniz ( $notgunluklimit $+ /gun ). Sifirlanmasina kalan sure: $duration($calc(%sifirlanma - $ctime))
    halt
  }

  var %bekleyen = $iif($ini($notdosya,%kullanici),$ini($notdosya,%kullanici,0),0)
  if (%bekleyen >= $nottoplamlimit) {
    notice $nick Bekleyen notlariniz doldu ( $nottoplamlimit $+ adet ). Once eskilerini !notsil ile silin.
    halt
  }

  hadd notflood %kullanici $calc($ctime + $notbekleme)
  hadd notsayac %kullanici $+($calc(%sayac + 1),$chr(32),%sifirlanma)

  var %id        = $notyeniid(%kullanici)
  var %ayrac     = $chr(1)
  var %sifreli   = $encrypt(%mesaj,1,$notanahtar)
  var %hash      = $md5(%mesaj)
  var %kelime    = $numtok(%mesaj,32)

  writeini $notdosya %kullanici $+(id,%id) $+($ctime,%ayrac,%sifreli,%ayrac,%hash,%ayrac,%kelime,%ayrac,%oncelik,%ayrac,0)

  if ($notify(%kullanici) == 0) { notify +%kullanici }

  notice $nick Not #%id kaydedildi ve sifrelendi. $iif(%oncelik,[ONEMLI] ,) $+ ( $calc(%sayac + 1) $+ / $+ $notgunluklimit $+ bugun )
  halt
}

; --- !notlarim : ID'li liste, icerik gizli ---
on *:TEXT:!notlarim:?:{
  var %kullanici = $lower($nick)
  if (!$ini($notdosya,%kullanici)) {
    notice $nick Kayitli bir notunuz bulunmuyor.
    halt
  }
  var %ayrac = $chr(1)
  var %i = 1, %adet = $ini($notdosya,%kullanici,0)
  notice $nick --- Notlariniz ( %adet $+ adet ) ---
  while (%i <= %adet) {
    var %anahtar = $ini($notdosya,%kullanici,%i)
    var %veri    = $readini($notdosya,n,%kullanici,%anahtar)
    var %zaman   = $gettok(%veri,1,%ayrac)
    var %kelime  = $gettok(%veri,4,%ayrac)
    var %oncelik = $gettok(%veri,5,%ayrac)
    var %duzenlendi = $gettok(%veri,6,%ayrac)
    var %numara  = $remove(%anahtar,id)
    notice $nick $+(#,%numara) $+ $chr(32) $+ $asctime(%zaman,dd.mm.yyyy HH:nn) $+ $chr(32) $+ ( %kelime $+ kelime ) $+ $iif(%oncelik,$chr(32) $+ [ONEMLI],) $+ $iif(%duzenlendi != 0,$chr(32) $+ [duzenlendi],)
    inc %i
  }
  notice $nick Oku: !notoku <id|hepsi>  Sil: !notsil <id|hepsi>  Duzenle: !notduzenle <id> <mesaj>
  halt
}

; --- !notoku <id|hepsi> ---
on *:TEXT:/^!notoku\s+(id)?(\d+|hepsi)$/i:?:{
  var %kullanici = $lower($nick)
  var %hedef     = $regml(2)
  var %ayrac     = $chr(1)

  if (!$ini($notdosya,%kullanici)) {
    notice $nick Kayitli bir notunuz bulunmuyor.
    halt
  }

  if ($lower(%hedef) == hepsi) {
    var %i = 1, %adet = $ini($notdosya,%kullanici,0)
    while (%i <= %adet) {
      var %anahtar = $ini($notdosya,%kullanici,%i)
      var %veri    = $readini($notdosya,n,%kullanici,%anahtar)
      var %zaman   = $gettok(%veri,1,%ayrac)
      var %mesaj   = $decrypt($gettok(%veri,2,%ayrac),1,$notanahtar)
      var %numara  = $remove(%anahtar,id)
      notice $nick $+(#,%numara) $+ $chr(32) $+ $asctime(%zaman,dd.mm.yyyy HH:nn) $+ : %mesaj
      inc %i
    }
    halt
  }

  var %anahtar = $+(id,%hedef)
  var %veri    = $readini($notdosya,n,%kullanici,%anahtar)
  if (%veri == $null) {
    notice $nick %hedef numarali not bulunamadi.
    halt
  }
  var %zaman = $gettok(%veri,1,%ayrac)
  var %mesaj = $decrypt($gettok(%veri,2,%ayrac),1,$notanahtar)
  notice $nick $+(#,%hedef) $+ $chr(32) $+ $asctime(%zaman,dd.mm.yyyy HH:nn) $+ : %mesaj
  halt
}

; --- !notsil <id|hepsi> ---
on *:TEXT:/^!notsil\s+(id)?(\d+|hepsi)$/i:?:{
  var %kullanici = $lower($nick)
  var %hedef     = $regml(2)

  if (!$ini($notdosya,%kullanici)) {
    notice $nick Kayitli bir notunuz bulunmuyor.
    halt
  }

  if ($lower(%hedef) == hepsi) {
    var %adet = $ini($notdosya,%kullanici,0)
    remini $notdosya %kullanici
    notice $nick Tum notlariniz silindi. ( %adet $+ adet )
    notify -%kullanici
    halt
  }

  var %anahtar = $+(id,%hedef)
  if ($readini($notdosya,n,%kullanici,%anahtar) == $null) {
    notice $nick %hedef numarali not bulunamadi.
    halt
  }
  remini $notdosya %kullanici %anahtar
  notice $nick $+(#,%hedef) numarali not silindi.
  if (!$ini($notdosya,%kullanici)) { notify -%kullanici }
  halt
}

; --- !notduzenle <id> <yeni mesaj> ---
on *:TEXT:/^!notduzenle\s+(id)?(\d+)\s+(.+)$/i:?:{
  var %kullanici = $lower($nick)
  var %hedef     = $regml(2)
  var %yenimesaj = $regml(3)
  var %ayrac     = $chr(1)

  if ($len(%yenimesaj) > $notmaxkarakter) {
    notice $nick Not cok uzun! Maksimum $notmaxkarakter karakter girebilirsiniz.
    halt
  }

  var %anahtar = $+(id,%hedef)
  var %veri    = $readini($notdosya,n,%kullanici,%anahtar)
  if (%veri == $null) {
    notice $nick %hedef numarali not bulunamadi.
    halt
  }

  var %zaman   = $gettok(%veri,1,%ayrac)
  var %oncelik = $gettok(%veri,5,%ayrac)
  var %sifreli = $encrypt(%yenimesaj,1,$notanahtar)
  var %hash    = $md5(%yenimesaj)
  var %kelime  = $numtok(%yenimesaj,32)

  writeini $notdosya %kullanici %anahtar $+(%zaman,%ayrac,%sifreli,%ayrac,%hash,%ayrac,%kelime,%ayrac,%oncelik,%ayrac,$ctime)
  notice $nick $+(#,%hedef) numarali not guncellendi.
  halt
}

; --- !notara <kelime> ---
on *:TEXT:/^!notara\s+(.+)$/i:?:{
  var %kullanici = $lower($nick)
  var %aranan    = $regml(1)
  var %ayrac     = $chr(1)

  if (!$ini($notdosya,%kullanici)) {
    notice $nick Kayitli bir notunuz bulunmuyor.
    halt
  }

  var %i = 1, %adet = $ini($notdosya,%kullanici,0), %bulunan = 0
  while (%i <= %adet) {
    var %anahtar = $ini($notdosya,%kullanici,%i)
    var %veri    = $readini($notdosya,n,%kullanici,%anahtar)
    var %mesaj   = $decrypt($gettok(%veri,2,%ayrac),1,$notanahtar)
    if ($instok(%mesaj,%aranan,0,32) || $pos(%mesaj,%aranan,1)) {
      var %numara = $remove(%anahtar,id)
      var %zaman  = $gettok(%veri,1,%ayrac)
      notice $nick $+(#,%numara) $+ $chr(32) $+ $asctime(%zaman,dd.mm.yyyy HH:nn) $+ : %mesaj
      inc %bulunan
    }
    inc %i
  }
  if (%bulunan == 0) { notice $nick "%aranan" icin sonuc bulunamadi. }
  else { notice $nick %bulunan sonuc bulundu. }
  halt
}

; --- Sunucuya girince bildirim (spam korumali) ---
on *:NOTIFY: {
  var %kullanici = $lower($nick)
  if ($ini($notdosya,%kullanici)) {
    if ($hget(notbildirim,%kullanici)) {
      if ($ctime < $hget(notbildirim,%kullanici)) { halt }
    }
    hadd notbildirim %kullanici $calc($ctime + $notbildirimbekleme)
    var %adet = $ini($notdosya,%kullanici,0)
    notice $nick Notunuz var! ( %adet adet ) Gormek icin: !notlarim yaz.
  }
}