SzLine IP Ekleme

[Sado]

on *:input:#opers: {
  if $regex($1,/^[!.](sip)$/i) {
    if !$2 { msg #opers 2Eksik Komut Kullanimi: 4••• «( Lütfen 4!sip <4ekle|4sil|4list> olarak belirtiniz. )» 4••• | return }
    if $2 == ekle {
      .write sip.txt $3- $+ $+ $nick)   
      msg #opers 4 $nick 2Eklediginiz os szline ip : 1 $3- 
      os szline add +0 $3- 2Sabıkalı 4IP 2ile giriş yaptınız.!
    }
    if $2 == sil {
      .write $+(-ds,$3) sip.txt
      msg #opers os szline listesinden silindi silnen [ $3- ]
      os szline del $3-
    }
    if $2 == list {
      if $lines(sip.txt) == 0 { msg #opers sip listesi bos. | return }
      msg #opers 4os szline list 2 $nick 
      msg #opers 
      var %:nick = 1 | while %:nick <= $lines(sip.txt) {
        msg #opers %:nick $+ 2-)4 $read(sip.txt,%:nick)
        inc %:nick
      }
      msg #opers 
      msg #opers 4os szline list Sonu 2 $nick 
    }
  }
}
dilerseniz diger kullanıclar kullanabilmesi icin
on *:text:*:#opers: {
  if $regex($1,/^[!.](sip)$/i) {
    if !$2 { msg #opers 2Eksik Komut Kullanimi: 4••• «( Lütfen 4!sip <4ekle|4sil|4list> olarak belirtiniz. )» 4••• | return }
    if $2 == ekle {
      .write sip.txt $3- $+ $+ $nick)   
      msg #opers 4 $nick 2Eklediginiz os szline ip : 1 $3- 
      os szline add +0 $3- 2Sabıkalı 4IP 2ile giriş yaptınız.!
    }
    if $2 == sil {
      .write $+(-ds,$3) sip.txt
      msg #opers os szline listesinden silindi silnen [ $3- ]
      os szline del $3-
    }
    if $2 == list {
      if $lines(sip.txt) == 0 { msg #opers sip listesi bos. | return }
      msg #opers 4os szline list 2 $nick 
      msg #opers 
      var %:nick = 1 | while %:nick <= $lines(sip.txt) {
        msg #opers %:nick $+ 2-)4 $read(sip.txt,%:nick)
        inc %:nick
      }
      msg #opers 
      msg #opers 4os szline list Sonu 2 $nick 
    }
  }
}

 

[Technic]

@Sado Emeğine sağlık kardeşim başarılarının devamını dilerim güzel çalışma olmuş.

 

[Sado]

@Technic saol abi yazmaya devam ke