sistemi

  1. Carpediem

    İp Takip Sistemi Addonu

    Addona girdiğiz ipler sunucuya girdiğinde size uyarı verir ve geçici olarak shun atar açılan ekranda istefiğiniz işlemi yapabilirsiniz. Admin ve ircopların işine yarayabilecek bir kod. on *:start:{ if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy } if (!$hget(muafn)) { .hmake...
  2. D

    Hümanist Eğitim Sistemi ile Çarkların Dışına Çıkmak

    “Gerçekten dahi öğrencilerin okulda aldığı yaralar iyileşiyor zamanla, üzerleri kabuk bağlıyor ve bu kişiler ilerde öyle insanlar olup çıkıyor ki, okuldaki kötü yaşantılara karşın başarılı eserler ortaya koyabiliyor, ölüp gittiler mi ya da uzakların büyüsü bir hale gibi çevrelerini sardı mı...
  3. Carpediem

    Nick-Kanal-İnfo-Takip-Sistemi

    Kod sahibi: Available on *:input:*: { if $1 == !bak { if *#* iswm $1- { cs info $2 all set -u3 %info $chan } else { set -u3 %info $chan ns info $2 aLL } } } on 1:notice:*:?:{ if *ChanServ* iswm $nick || *NickServ* iswm $nick { msg %info 14[2ID (GBT)14] :14Analiz: • $1- } }...
  4. Carpediem

    Gelişmiş özel karşılama

    on *:text:*:?:{ var %1 1 while %1 <= $gettok($1-,0,32) { if $hfind(karsilama,$gettok($1-,%1,32),1,W).item { var %bul $ifmatch if $($+(%,karsilama-,$nick),2) != %bul { msg $nick $hget(karsilama,%bul) set -eu10 $+(%,karsilama-,$nick) %bul } } inc %1 } } alias karsilama { if $1 ==...
  5. Carpediem

    Deprem Uyarı

    ;ACIKLAMA ;En son olan depremi uyari olarak gosterir. ;KULLANIM ;Deprem mesajinin gonderilecegi kanali yazin. ;Kodu calistirmak icin /timer 0 180 deprem komutunu uygulayin. alias depremkanal return #deprem alias depremler { .sockclose deprem | .sockopen deprem www.koeri.boun.edu.tr 80 }...
  6. Carpediem

    Nick Puan Konusma top10

    ;ACIKLAMA ;Nicke ait konusma puanini gosterir. ;Puani gostermek icin !puan ;Puani gostermek icin !puan nick ;En cok konusan 10 nicki gostermek icin !geveze yazmaniz yeterlidir. ;KOD BASLANGIC on *:text:*:#:{ if ($1 == !geveze) { top10 | goto t0p10 } if $1 == !puan { elseif...
  7. Carpediem

    Mirc Away Sistemi

    On *:text:*:#: { If $away { If ($me isop $chan) { If ($me isin $1- ) { Inc -u20 $+(%,PP.,#,$me) Var %' = $($+(%,PP.,#,$me),2) If %' == 1 { //msg $chan $nick , PC Başında değilim ( $awaymsg ) } If %' == 2 { //msg $chan $nick , Şuan Meşgulüm veya PC başında değilim. Lütfen online...
  8. Carpediem

    Serverde User Takip (yeni)

    On *:join:#: { $+(timer,$nick) 0 1 inc -e $+(%,$nick) If !$read(nicktakip.txt,w,$nick) { write nicktakip.txt $nick } } On *art:#**,#nur,#**: { if $timer($nick) { $+(timer,$nick) off } } On *:quit:#: { if $timer($nick) { $+(.timer,$nick) off } } On *:text:*:#: { if $1 == !takip { if...
  9. Carpediem

    Clone Tarama Sistemi

    on *:load:{ if ($ial == $true) { var %a = 1, %b while ($scon(%a)) { .scid $v1 var %x = 1, %y while ($chan(%x)) { %y = $v1 | if ($chan(%y).ial == $false) { who %y } | inc %x } inc %a } .scid -r } msg #kanalismi 4[Clonescan] 1Tarama...
  10. The

    Help Helper Atama Sistemi

    on *:join:#help:.timer 1 2 kontrol $nick alias kontrol { if !$nick(#help,$1,oh) { var %sayi $nick(#help,0,o), %rand $nick(#help,$rand(1,%sayi)), %nickler $regsubex($str(.,%sayi),/./g,$nick(#help,\n,o) $chr(32)) msg #helpers - msg #helpers 4 $1 1Rumuzu 4#Help...
Üst Alt