Normal Mod | Çizgisel Mod

LauReLL · 02-26-2008, 10:21 AM

Bu Kod Kanala Giri Yapan kiileri profil.ini dosyasna gereken blgleriyle kaydeder ve o nick disconnect olup baska nickle server'a girerse echo olarak size uyar verir...

ÖRN : qothiC Nicki'nin Bundan Önce Kullandg Nick LauReLL (saat 09:51:47 gün 26/02/2008)

Buyrun Kodlar...

Kod:

on *:connect: { .hashtable prifil.ini }

on *:JOIN:#:{ 

  if ($nick != $me) {

    set %nick $nick

    set %mask $address($nick,2)

    set %nick2 $readini profil.ini %mask nick

    set %mask2 $readini profil.ini %mask mask

    if (%mask == %mask2) {

      if (%nick != %nick2) {

        set %quand $readini profil.ini %mask quand

        beep

        $iif(!$window(@log),window -z @log)

        aline -hp @log 0- $- $time $+ - 14( $+ $chan $+ )4 $nick Nicki'nin Ayn P de Bundan Önce Kullandg Nick %nick2 7( %quand )

        var %c = 1

        while (%c <= $comchan($nick,0)) { 

          msg $comchan($nick,%c) 4 $+ $nick  Nicki'nin Ayn P de Bundan Önce Kullandg Nick 4 $+ %nick2 7(saat $gettok(%quand,1,45) 7gün $gettok(%quand,2,45) $+ 7)

          inc %c 

        }

      }

    }

    if (!$ini(profil.ini,mask)) hashtable

  }

}

alias hashtable { if (!$hget(profil)) { hmake profil 5 } | hadd profil nick %nick | hadd profil mask %mask | hadd profil quand $time $+ - $+ $date | hsave -sai profil profil.ini $hget(profil,mask) | hfree profil }

**ByDeniS** · 02-26-2008, 10:27 AM

Tebrikler güzel çalma lakin. Bunun kaydn script açk oldugu süre içindemi yapyor. ?

LauReLL · 02-26-2008, 10:34 AM

Evet bu Scripte ÖZel Bunu NoMercy gb Botlardada Kullanabiliriz : )

**ByDeniS** · 02-26-2008, 10:35 AM

Güzel tebrik ederim. Wink

Nokta · 03-02-2008, 01:41 PM

LauReLL

eline saglik sanirim ben seni bi yerden gozum disliyor ama nerden Smile

neyse tekrar saoL

**Alience** · 03-17-2008, 02:42 PM

laurell güzel bir düünce ama bunu genilet bence clone da ekle query açlnca göstersin koda tam bakamdm ama aline var ise listbox vardr query yoktur mant ile bunu söylüyorum query açldm daha önce kulland nick ip ve u anki cloneleri en üste yazarsa çok daha güzel olur

Nokta · 03-22-2008, 02:26 PM

güzel bir paylasim Laurell eline saglik bendede su sekilde bieyler var bana Ciprix'den almisdim

Kod:

on *:join:#:{ 

  .set %hea * $+ $gettok($address($nick,0),2,64)) $+ *

  if $read(klon.txt,w,%hea) {

    .set %nik $gettok($read(klon.txt,w,%hea),1,11)

    .set %nicksaat $duration($gettok($read(klon.txt,w,%hea),3,11))

    .set %benimsaat $duration($time)

    echo -a $nick Nicki %nik Rumuzu ile  $replace($duration($calc(%benimsaat - %nicksaat)),mins,Dk,secs,Sn,min,Dk,sec,Sn)) Önce Girmiti..

    .halt

  }

  else {

    write klon.txt $nick $+ $chr(11) $+ $gettok($address($nick,0),2,64) $+ $chr(11) $+ $time 

  }

}

alias temizle {

.unset %hea

.unset %nik

.unset %nicksaat

.unset %benimsaat

.remove klon.txt

}

girisleri kaydediyor
3 4 saat yada keyfine gore belirli bir zamanda /temizle yaparsan temizliyor

simsiyah · 04-05-2008, 12:40 PM

(03-22-2008 02:26 PM)Nokta demiş ki güzel bir paylasim Laurell eline saglik bendede su sekilde bieyler var bana Ciprix'den almisdim

Kod:

on *:join:#:{ .set %hea * $+ $gettok($address($nick,0),2,64)) $+ * if $read(klon.txt,w,%hea) { .set %nik $gettok($read(klon.txt,w,%hea),1,11) .set %nicksaat $duration($gettok($read(klon.txt,w,%hea),3,11)) .set %benimsaat $duration($time) echo -a $nick Nicki %nik Rumuzu ile $replace($duration($calc(%benimsaat - %nicksaat)),mins,Dk,secs,Sn,min,Dk,sec,Sn)) Önce Girmiti.. .halt } else { write klon.txt $nick $+ $chr(11) $+ $gettok($address($nick,0),2,64) $+ $chr(11) $+ $time } } alias temizle { .unset %hea .unset %nik .unset %nicksaat .unset %benimsaat .remove klon.txt }
girisleri kaydediyor
3 4 saat yada keyfine gore belirli bir zamanda /temizle yaparsan temizliyor

teekkürler üstad..
bo code ttnetde de ie yararm ttnet kendi hostunu atyor o bakmdan sordum...

**Alience** · 04-05-2008, 05:05 PM

ttnet kendi hostunuda atsa bir ip için at host ayndr
örnk: 88.1.1.1 ipsi için ttnet-akshjdljkashdhasjkdh gibi bir ey yazyorsa bu ip için hep ayn olacaktr

Benzer Konular...
Konu:		Yazar	Cevaplar	Gösterim:	Son Mesaj
	!idle nick	Nokta	4	292	03-02-2008 06:01 PM Son Mesaj: Nokta