IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Özel kanal başvurusu hakkında.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/306875-ozel-kanal-basvurusu-hakkinda.html)

fatal 22 Aralık 2009 12:01
Özel kanal başvurusu hakkında..
 
Merhaba, Namesis arkadaşımızın yazmış olduğu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tcl'sini remoteye çevirebilirmisiniz? Çok mu şey istedim yoksa :/

uFuK 22 Aralık 2009 13:39
Cevap: Özel kanal başvurusu hakkında..
 
Lazuk yaparuk ederuk :D akşam ilgilenirim vaktim olursa.
Yapılır basit birşey

fatal 22 Aralık 2009 20:48
Cevap: Özel kanal başvurusu hakkında..
 
Konu altta kaldı sanırım, * güncel.

CipriX 22 Aralık 2009 22:14
Cevap: Özel kanal başvurusu hakkında..
 
Kod:
; CipriX!

on *:text:*:?:{
  if $1 == ozelkanal {
    $iif(%basvuruacikmi = acik,kntrl aktif $nick,kntrl deaktif $nick)
  }
  if $1 == ozelkanalbasvuru && $2 && %basvuruacikmi {
    if $($+(%,basvuru,.,$nick),2) { kntrl 60sn $nick }
    else { kntrl tamamdir $nick $2- }
    .set -u60 $+(%,basvuru,.,$nick) ok.
  }
}
on *:text:*:#Opers:{
  if $1-2 == !basvuru on {
    .set %basvuruacikmi acik
    msg #Opers Kanal Basvurusu acildi
  }
  if $1-2 == !basvuru listele {
    var %i 1
    while %i <= $lines(basvuru.txt) {
      msg #Opers $read(basvuru.txt,%i)
      inc %i
    }
    msg #Opers Basvuru listesinin sonu
  }
  if $1-2 == !basvuru off {
    .unset %basvuruacikmi
    msg #Opers Kanal Basvurusu kapandi
  }
  if $1 == !kaydet && $2 && $3 {
    .set -u10 %kanalkayitedilecek $2
    .set -u10 %kanalkime $3
    join $2
  }
}
on *:join:%kanalkayitedilecek:{
  .set %pass $r(100000,9999999)
  .chanserv drop %kanalkayitedilecek
  .chanserv register %kanalkayitedilecek %pass
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set %kanalkayitedilecek founder %kanalkime
  ms send %kanalkime Kayit isleminiz tamamlandi %kanalkayitedilecek kanali uzerinize tahsis edildi.
  msg #opers Kanal kayit islemi tamamlandi. $2 nickinin istegi uzerine $3 kanali kayit islemi tamamlanip, kanal sahibi $2 olarak belirlenmistir. (Kanal Sifresi: %pass $+ )
  .part %kanalkayitedilecek
}
alias -l kntrl {
  if $1 == aktif && $2 {
    msg $2 Merhaba $2
    msg $2 Ozel kanal basvurusu yapmak icin ozelkanalbasvuru #kanaladi yaziniz.
  }
  if $1 == deaktif && $2 {
    msg $2 Ozel kanal basvurulari gecici bir sure kapalidir.
    msg $2 Lutfen daha sonra tekrar deneyiniz.
    msg $2 MI-Yonetim keyifli sohbetler diler.
  }
  if $1 == 60sn && $2 { msg $2 Biraz once bir basvuruda bulundunuz. Lutfen 1 dakika sonra tekrar deneyiniz. }
  if $1 == tamamdir && $2 {
    write basvuru.txt $r(1000,9999) - Ozel kanal basvurusu - $time - $date (Nick: $2 - Kanal: $3 $+ )
    msg $2 $3 odasi icin basvuru isleminiz tamamlanmistir.
    msg $2 MI-Yonetim yonetimi tarafindan onaylandiginda size MEMO ile bildirilicektir.
    msg $2 MI-Yonetim keyifli sohbetler diler.
  }
}

Doktrin 23 Aralık 2009 18:27
Cevap: Özel kanal başvurusu hakkında..
 
msg #opers Kanal kayit islemi tamamlandi. $2 nickinin istegi uzerine $3 kanali kayit islemi tamamlanip, kanal sahibi $2 olarak belirlenmistir. (Kanal Sifresi: %pass $+ )

Bu satırı;

msg #opers Kanal kayit islemi tamamlandi. %kanalkime nickinin istegi uzerine %kanalkayitedilecek kanali kayit islemi tamamlanip, kanal sahibi %kanalkime olarak belirlenmistir. (Kanal Sifresi: %pass $+ )

Şeklinde değiştirmelisiniz.

CipriX 23 Aralık 2009 18:54
Cevap: Özel kanal başvurusu hakkında..
 
Evet üstteki arkadaşın dediği doğru, gecenin ortasında kod yazınca öyle oluyor

¿ 29 Aralık 2009 07:31
Cevap: Özel kanal başvurusu hakkında..
 
CipriX ben bu TCL'yi gelistirdim fakat gelistirmis oldugum version'u paylasmadim bi kac eksigi var, eksikleri giderdikten sonra paylasacagim.
Bu vermis oldugun remote'ye nick ve kanal kontrolu eklenebilir mi ?
Birde !basvuru reddet <nick> <#kanal> seklinde bi ozellik.

<Sifresiz> ozelkanal
<Ra> Uzgunum Sifresiz nickiniz kayitli degildir.
<Ra> Kanal basvurusu yapabilmek icin nickinizin kayitli olmasi gerekir.
<Ra> Nick kayit hakkinda detayli bilgi icin; /msg NickServ help REGISTER komutunu kullanin.

<Sifresiz> ozelkanalbasvuru #Testing
<Ra> Uzgunum Sifresiz nickiniz kayitli degildir.
<Ra> Kanal basvurusu yapabilmek icin nickinizin kayitli olmasi gerekir.
<Ra> Nick kayit hakkinda detayli bilgi icin; /msg NickServ help REGISTER komutunu kullanin.

gibi.

<Namesis> !basvuru
<Ra> Ozel kanal basvuru sistemi.
<Ra>
<Ra> Lutfen kayit islemini onaylamadan once nick ve kanal'i kayitli olup olmadiginiz kontrol ediniz.
<Ra>
<Ra> Kontrol icin: !basvuru <kontrol> komutunu kullanin.
<Ra> Onaylamak icin: !basvuru <onayla> komutunu kullanin.
<Ra> Reddetmek icin: !basvuru <reddet> komutunu kullanin.
<Ra>
<Ra> Komut Listesi: !basvuru <on/off/listele/kontrol/onayla/reddet/sil> seklindedir.

<Namesis> !basvuru on
<Ra> Ozel kanal basvurulari acildi.

<Namesis> !basvuru off
<Ra> Ozel kanal basvurulari kapatildi.

<Namesis> !basvuru listele
<Ra> Basvuru listesinde hic kayit bulunamadi.

<Namesis> !basvuru kontrol
<Ra> Kullanimi: !basvuru kontrol <nick/kanal> <nick/#kanal> seklindedir.

<Namesis> !basvuru kontrol nick X
<Ra> X nicki kayitli bir nicktir, kanal kaydi yapmaya uygundur.

<Namesis> !basvuru kontrol kanal #X
<Ra> Lutfen dikkat: #X kanali daha onceden kayit edilmis.
<Ra> Kanalin sahibi: X

<Namesis> !basvuru kontrol kanal #A
<Ra> #A kanali kayit edilmeye uygundur.

<Namesis> !basvuru onayla
<Ra> Kullanimi: !basvuru onayla <#kanal> <nick> seklindedir.

<Namesis> !basvuru onayla #Testing Namesis
<Ra> Kanal basvurusunu onayladiniz. Lutfen bekleyiniz kayit islemini gerceklestiriyorum.
<Ra> Kanal kayit islemi tamamlandi. #Testing kanali kayit islemi tamamlanip, kanal sahibi Namesis olarak belirlenmistir.

-MemoServ- 1 numarali not Ra nick'inden (Ara 29 07:09:43 2009 EET) . Silmek icin, /msg MemoServ DEL 1 yaziniz.
-MemoServ- Merhaba Namesis, isteginiz uzerine #Testing odasi nickinize kaydedilmistir. Kanalinizin sifresi; 73538433 olarak belirlenmistir. Guvenliginiz icin sifrenizi derhal degistirmeniz onerilir. Kanal sifrenizi degistirmek için; /msg ChanServ SET #Testing PASSWORD <yeni sifreniz> komutunu uygulayiniz. KeyifTurk keyifli sohbetler diler.

<Namesis> !basvuru reddet
<Ra> Kullanimi: !basvuru reddet <#kanal> <nick> seklindedir.

<Namesis> !basvuru reddet #Testing Namesis
<Ra> Namesis nickli kisiye memo atilmistir.

-MemoServ- 2 numarali not Ra nick'inden (Ara 29 07:13:53 2009 EET) . Silmek icin, /msg MemoServ DEL 2 yaziniz.
-MemoServ- Sayin kullanicimiz: #Testing kanali icin yaptiginiz basvuru reddedilmistir. Bilginize.


----------

Unutmadan birsey daha eklemek istiyorum. Daha onceden bir kanala basvuru yapildiginda ayni kanal icin baska bir basvuru yapilmamasi icin text dosyasini kontrol ettirirsen iyi olabilir, TCL'de bu yontemi kullandim.

Ornek:

<x0x> ozelkanalbasvuru #x0x
<Ra> #x0x odasi icin basvuru isleminiz tamamlanmistir.
<Ra> KeyifTurk yonetimi tarafindan onaylandiginda size MEMO ile bildirilicektir.
<Ra> KeyifTurk keyifli sohbetler diler.

<Namesis> ozelkanalbasvuru #x0x
<Ra> #x0x kanali icin daha once basvuru yapilmis.
<Ra> Lutfen baska bir kanal adi yaziniz.

Set 29 Aralık 2009 10:09
Cevap: Özel kanal başvurusu hakkında..
 
Kod:
on *:text:*:#opers: {
  if ($1 == !basvuru) {
    if ($2 == $null) {
      .msg # Ozel kanal basvuru sistemi.
      .msg # -
      .msg # Lutfen kayit islemini onaylamadan once nick ve kanal'i kayitli olup olmadiginiz kontrol ediniz.
      .msg # -
      .msg # Kontrol icin: !basvuru <kontrol> komutunu kullanin
      .msg # Onaylamak icin: !basvuru <onayla> komutunu kullanin
      .msg # Reddetmek icin: !basvuru <reddet> komutunu kullanin.
      .msg # -
      .msg # Komut Listesi: !basvuru <on/off/listele/kontrol/onayla/reddet/sil> seklindedir
      halt
    }
    if ($2 == on) { set %ozelkanal on | .msg # Ozel kanal basvurulari acildi. | halt }
    if ($2 == off) { set %ozelkanal off | .msg # Ozel kanal basvurulari kapatildi. | halt }
    if ($2 == listele) {
      var %i 1
      while %i <= $lines(kanalkayit.txt) {
        msg #opers $read(kanalkayit.txt,%i)
        inc %i
      }
      msg #opers ßasvuru listesi sonu..
    }
    if ($2 == kontrol) {
      if ($3 == nick) { set %kontrol on | ns info $4 | halt }
      if ($3 == kanal) { set %kontrol on | cs info $4 | halt }
      if ($3 == $null) { msg # Kontrol icin: !basvuru kontrol <kanal/nick> <kanal/nick> | halt }
    }
    if ($2 == onayla) {
      if ($2 == $null) {  msg # Kontrol icin: !basvuru onayla <#kanal> <nick>  | halt }
      elseif ($istok(%basvurukanal,$3,44)) { msg # Bu Kanal Eskidende Baska Nick Tarafindan Basvuruda Bulunulmustur | msg # !basvuru sil #kanal Yazarak Basvurusunu Silebilirsiniz.. | halt }
      elseif ($3 == $null) {  msg # Kontrol icin: !basvuru onayla <#kanal> <nick>  | halt }
      else {
        msg #  Kanal basvurusunu onayladiniz. Lutfen bekleyiniz kayit islemini gerceklestiriyorum
        msg # Kanal kayit islemi tamamlandi: $3 kanali kayit islemi tamamlanip, kanal sahibi $4 olarak belirtilmistir.
        join $3 | mode $3 +o $me | set %pass $rand(0,9999999) | cs register $3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %pass | cs set $3 founder $4
        ms send $4 Merhaba $4 , isteginiz uzerine $3 odasi nickinize kaydedilmistir. Kanalinizin sifresi; %pass olarak belirlenmistir. Guvenliginiz icin sifrenizi derhal degistirmeniz onerilir. Kanal sifrenizi degistirmek için; /msg ChanServ SET $3  PASSWORD <yeni sifreniz> komutunu uygulayiniz. KeyifTurk keyifli sohbetler diler.
        unset %pass
        part $3
        write kanalkayit.txt $3 Kanalina $4 Basvuruda Bulunmustur! - $time - $date -
        set %basvurukanal $addtok(%basvurukanal ,$3,44)
      }
    }
    if ($2 == reddet) {
      if ($2 == $null) { msg # Komut icin: !basvuru reddet <#kanal> <nick> | halt }
      else { ms send $4 Sayin kullanicimiz: $3 kanali icin yaptiginiz basvuru reddedilmistir. Bilginize | .msg # $4 nickli kisiye memo atilmistir. | halt }
    }
    if ($2 == sil) {
      if ($3 == $null) { msg # kanal belirtmeyi unuttunuz. | halt }
      else { set %basvurukanal $remtok(%basvurukanal,$3,44) | sil $3 }
    }
  }
}
on *:notice:*:?: {
  if ($nick == ChanServ) {
    if (*kanal*kay*degil* iswm $1-) && (%kontrol == on) { msg #opers $1 kanali kayit edilmeye uygundur | unset %kontrol | halt  }
    if (**Kanal*Sahibi* iswm $1-) && (%kontrol == on) { msg #opers Lutfen dikkat: %kntrlchan kanali daha onceden kayit edilmis | msg #opers Kanalin Sahibi : $3 | unset  %kontrol | halt }
  }
  if ($nick == NickServ) {
    if (*kay*bir*nick* iswm $1-) && (%kontrol == on) { msg #opers Lutfen dikkat: $1 nicki kayitli degildir. | unset %kontrol | halt }
    if (isim: isin $1-) && (%kontrol == on) { msg #opers $1 nicki kayitli bir nicktir | unset %kontrol | halt }
    if (*kay*bir*nick* iswm $1-) && (%nickkontrol == on) { msg %nick Uzgunum Sifresiz nickiniz kayitli degildir.  | msg %nick  Kanal basvurusu yapabilmek icin nickinizin kayitli olmasi gerekir | msg %nick  Nick kayit hakkinda detayli bilgi icin; /msg NickServ help REGISTER komutunu kullanin. | unset %nickkontrol | unset %nick |  halt  }
    if (isim: isin $1-) && (%nickkontrol == on) { unset %nickkontrol | unset %nick |  set %tamam on |  tamam $1 | halt }
  }
}
on *:text:*:?: {
  if ($1 == ozelkanal) {
    if (%ozelkanal == off) { msg $nick Ozel kanal basvurulari gecici bir sure kapalidir. | msg $nick Lutfen daha sonra tekrar deneyiniz. | msg $nick KeyifTurk keyifli sohbetler diler. | halt }
    if (%ozelkanal == on) { set %nickkontrol on | set %nick $nick | ns info $Nick | halt }
  }
  if ($1 == ozelkanalbasvuru) {
    if (%ozelkanal == off) { msg $nick Ozel kanal basvurulari gecici bir sure kapalidir. | msg $nick Lutfen daha sonra tekrar deneyiniz. | msg $nick KeyifTurk keyifli sohbetler diler. | halt }
    if ($1 == $null) { msg $nick kanal adi belirtmediniz | halt }
    elseif ($istok(%basvurukanal,$2,44)) { msg $nick $2 Kanali Kayit'i Bulunmakta Zaten.. | halt }
    else { msg $nick $2 odasi icin basvuru isleminiz tamamlanmistir. | msg $nick KeyifTurk yonetimi tarafindan onaylandiginda size MEMO ile bildirilicektir. | msg $nick KeyifTurk keyifli sohbetler diler. | msg #opers  $nick  tarafindan ozel kanal basvurusu yapildi. (KANAL: $2 ) | halt }
  }
}
alias tamam {
  if (%tamam == on) {
    msg $1 Merhaba  $1 ,
    msg $1 Ozel kanal basvurusu yapmak icin ozelkanalbasvuru #kanaladi yaziniz.
  }
}
alias sil { if $1 { if !$read(kanalkayit.txt,w,$+($1,*)) { .msg $chan  $1   listede bulunmamakta. | halt } | else { write $+(-dl,$readn) kanalkayit.txt | .msg $chan - $1 - listeden silinmistir. } } }
!basvuru sil #kanal

CipriX 29 Aralık 2009 16:13
Cevap: Özel kanal başvurusu hakkında..
 
Zaten yapmışım ben bu kodu, tekrar yaparak tam olarak ne diyorsun "bende kod yazabiliyorum mu ?" istenileni yaparken verilen kodu al düzenle sıfırdan yazma

KivanC 07 Şubat 2012 13:08
Cevap: Özel kanal başvurusu hakkında..
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1040282715)
Kod:
on *:text:*:#opers: {
  if ($1 == !basvuru) {
    if ($2 == $null) {
      .msg # Ozel kanal basvuru sistemi.
      .msg # -
      .msg # Lutfen kayit islemini onaylamadan once nick ve kanal'i kayitli olup olmadiginiz kontrol ediniz.
      .msg # -
      .msg # Kontrol icin: !basvuru <kontrol> komutunu kullanin
      .msg # Onaylamak icin: !basvuru <onayla> komutunu kullanin
      .msg # Reddetmek icin: !basvuru <reddet> komutunu kullanin.
      .msg # -
      .msg # Komut Listesi: !basvuru <on/off/listele/kontrol/onayla/reddet/sil> seklindedir
      halt
    }
    if ($2 == on) { set %ozelkanal on | .msg # Ozel kanal basvurulari acildi. | halt }
    if ($2 == off) { set %ozelkanal off | .msg # Ozel kanal basvurulari kapatildi. | halt }
    if ($2 == listele) {
      var %i 1
      while %i <= $lines(kanalkayit.txt) {
        msg #opers $read(kanalkayit.txt,%i)
        inc %i
      }
      msg #opers ßasvuru listesi sonu..
    }
    if ($2 == kontrol) {
      if ($3 == nick) { set %kontrol on | ns info $4 | halt }
      if ($3 == kanal) { set %kontrol on | cs info $4 | halt }
      if ($3 == $null) { msg # Kontrol icin: !basvuru kontrol <kanal/nick> <kanal/nick> | halt }
    }
    if ($2 == onayla) {
      if ($2 == $null) {  msg # Kontrol icin: !basvuru onayla <#kanal> <nick>  | halt }
      elseif ($istok(%basvurukanal,$3,44)) { msg # Bu Kanal Eskidende Baska Nick Tarafindan Basvuruda Bulunulmustur | msg # !basvuru sil #kanal Yazarak Basvurusunu Silebilirsiniz.. | halt }
      elseif ($3 == $null) {  msg # Kontrol icin: !basvuru onayla <#kanal> <nick>  | halt }
      else {
        msg #  Kanal basvurusunu onayladiniz. Lutfen bekleyiniz kayit islemini gerceklestiriyorum
        msg # Kanal kayit islemi tamamlandi: $3 kanali kayit islemi tamamlanip, kanal sahibi $4 olarak belirtilmistir.
        join $3 | mode $3 +o $me | set %pass $rand(0,9999999) | cs register $3 admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com %pass | cs set $3 founder $4
        ms send $4 Merhaba $4 , isteginiz uzerine $3 odasi nickinize kaydedilmistir. Kanalinizin sifresi; %pass olarak belirlenmistir. Guvenliginiz icin sifrenizi derhal degistirmeniz onerilir. Kanal sifrenizi degistirmek için; /msg ChanServ SET $3  PASSWORD <yeni sifreniz> komutunu uygulayiniz. KeyifTurk keyifli sohbetler diler.
        unset %pass
        part $3
        write kanalkayit.txt $3 Kanalina $4 Basvuruda Bulunmustur! - $time - $date -
        set %basvurukanal $addtok(%basvurukanal ,$3,44)
      }
    }
    if ($2 == reddet) {
      if ($2 == $null) { msg # Komut icin: !basvuru reddet <#kanal> <nick> | halt }
      else { ms send $4 Sayin kullanicimiz: $3 kanali icin yaptiginiz basvuru reddedilmistir. Bilginize | .msg # $4 nickli kisiye memo atilmistir. | halt }
    }
    if ($2 == sil) {
      if ($3 == $null) { msg # kanal belirtmeyi unuttunuz. | halt }
      else { set %basvurukanal $remtok(%basvurukanal,$3,44) | sil $3 }
    }
  }
}
on *:notice:*:?: {
  if ($nick == ChanServ) {
    if (*kanal*kay*degil* iswm $1-) && (%kontrol == on) { msg #opers $1 kanali kayit edilmeye uygundur | unset %kontrol | halt  }
    if (**Kanal*Sahibi* iswm $1-) && (%kontrol == on) { msg #opers Lutfen dikkat: %kntrlchan kanali daha onceden kayit edilmis | msg #opers Kanalin Sahibi : $3 | unset  %kontrol | halt }
  }
  if ($nick == NickServ) {
    if (*kay*bir*nick* iswm $1-) && (%kontrol == on) { msg #opers Lutfen dikkat: $1 nicki kayitli degildir. | unset %kontrol | halt }
    if (isim: isin $1-) && (%kontrol == on) { msg #opers $1 nicki kayitli bir nicktir | unset %kontrol | halt }
    if (*kay*bir*nick* iswm $1-) && (%nickkontrol == on) { msg %nick Uzgunum Sifresiz nickiniz kayitli degildir.  | msg %nick  Kanal basvurusu yapabilmek icin nickinizin kayitli olmasi gerekir | msg %nick  Nick kayit hakkinda detayli bilgi icin; /msg NickServ help REGISTER komutunu kullanin. | unset %nickkontrol | unset %nick |  halt  }
    if (isim: isin $1-) && (%nickkontrol == on) { unset %nickkontrol | unset %nick |  set %tamam on |  tamam $1 | halt }
  }
}
on *:text:*:?: {
  if ($1 == ozelkanal) {
    if (%ozelkanal == off) { msg $nick Ozel kanal basvurulari gecici bir sure kapalidir. | msg $nick Lutfen daha sonra tekrar deneyiniz. | msg $nick KeyifTurk keyifli sohbetler diler. | halt }
    if (%ozelkanal == on) { set %nickkontrol on | set %nick $nick | ns info $Nick | halt }
  }
  if ($1 == ozelkanalbasvuru) {
    if (%ozelkanal == off) { msg $nick Ozel kanal basvurulari gecici bir sure kapalidir. | msg $nick Lutfen daha sonra tekrar deneyiniz. | msg $nick KeyifTurk keyifli sohbetler diler. | halt }
    if ($1 == $null) { msg $nick kanal adi belirtmediniz | halt }
    elseif ($istok(%basvurukanal,$2,44)) { msg $nick $2 Kanali Kayit'i Bulunmakta Zaten.. | halt }
    else { msg $nick $2 odasi icin basvuru isleminiz tamamlanmistir. | msg $nick KeyifTurk yonetimi tarafindan onaylandiginda size MEMO ile bildirilicektir. | msg $nick KeyifTurk keyifli sohbetler diler. | msg #opers  $nick  tarafindan ozel kanal basvurusu yapildi. (KANAL: $2 ) | halt }
  }
}
alias tamam {
  if (%tamam == on) {
    msg $1 Merhaba  $1 ,
    msg $1 Ozel kanal basvurusu yapmak icin ozelkanalbasvuru #kanaladi yaziniz.
  }
}
alias sil { if $1 { if !$read(kanalkayit.txt,w,$+($1,*)) { .msg $chan  $1   listede bulunmamakta. | halt } | else { write $+(-dl,$readn) kanalkayit.txt | .msg $chan - $1 - listeden silinmistir. } } }
!basvuru sil #kanal
Admin.txt Icerisindeki Yetkili haric Kullanmasın engeli koyabilirmiyiz.

if !$read(admin.txt,w,$nick) { .msg $chan $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:28.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk