Mirc Kanala Giren Nickleri Kaydedecek Kod
Türkçe Mirc Kanala Giren Nickleri Kaydedecek Kod
|
1 |
on *:join:#Sohbet:{ /write nickler.txt $nick } |
» Devamını Oku
Etiket: kayit
Log Kayıt Sistemi (TXT)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
on *:text:*:?:{ if !kayit* iswm $1- { if $read(kayit.txt,w,Ad: $2 Soyad: $3 Yaş: $4 Semt: $5-) { .echo -a 4 $2- 2 Listede zaten ekli .msg $nick 4 $2- 2 Listede zaten ekli } else { write kayit.txt Ad: $2 Soyad: $3 Yaş: $4 Semt: $5- { .echo -a 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5- Kayit Listesine Eklendi .msg $nick 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5- Kayit Listesine Eklendi } } } } |
Nick Kayit Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
alias regnick dialog -m regn regn dialog regn { title Nick Register size -1 -1 125 205 icon $mircexe text Şifre:,4,10 10 100 15, edit ,5,10 30 100 20,autohs text Email: ,6,10 60 190 15, edit ,7,10 75 100 20,autohs ;box box ,8,1 1 120 55 box ,9,1 49 120 55 box ,10,1 97 120 57 ; button button "&Kayıt Et",11,10 160 100 20,flat ok button "&Kapat",12,10 180 100 20,flat ;text text "şu andaki nickiniz registerlenecektir",13,20 115 150 40, } on 1:dialog:regn:*:*:{ if ($devent == init) { if ($did == 5) { did -a regn 5 %reg.p } if ($did == 7) { did -a regn 7 %reg.em } } if ($devent == edit) { if ($did == 5) { set %reg.p $did(5) } if ($did == 7) { set %reg.em $did(7) } } if ($devent == sclick) { if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a 6(12 $+ $timestamp $+ 6) 4Nickiniz Kayıt Ediliyor. } } } |