Clone – Eski nick uyarı

Eski nicklerle giriş yapan kullanıcıları gösterme

on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }
on *:join:#: { 
  if !$ial { ial on }
  if $nick == $me || $regex($wildsite,/(Admin|Op)/i) { return }
  hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)
  hsave eskinicks eskinicks.63
  if $numtok($hget(eskinicks,$wildsite),32) >= 2 {
    echo #  $wildsite  hostundan girmis eski nickler: $hget(eskinicks,$wildsite)
  }
  if $ialchan($wildsite,#,0) >= 2 { 
    var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }
    echo #   $wildsite  bagli kanaldaki cloneler: %nicks
  }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }

on *:join:#: {

if !$ial { ial on }

if $nick == $me || $regex($wildsite,/(Admin|Op)/i) { return }

hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)

hsave eskinicks eskinicks.63

if $numtok($hget(eskinicks,$wildsite),32) >= 2 {

echo # $wildsite hostundan girmis eski nickler: $hget(eskinicks,$wildsite)

}

if $ialchan($wildsite,#,0) >= 2 {

var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }

echo # $wildsite bagli kanaldaki cloneler: %nicks

}

}

önceki yazımızda « mIRC Türkçe Sözlük makelemiz var.

Makale Yazarı : admin

4 Aralık, 2019

296

Yazı kategorisi : mIRC Parça Kodlar

yorum yok

Clone – Eski nick uyarı

Etiketler

clone nick uyarı eski nick uyarıcı kodu eski nickleri görme

Clone – Eski nick uyarı İle Benzer Sohbet Yazıları

mirc

[!.]hapis NICK

Çeviri Diyalogu (TRANSLATE DİALOG)

mIRC Fihrist

Clone – Eski nick uyarı yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?