Çözüldü .sopekle aop ekle - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

RahmetLi · 11 Şubat 2019, 03:43

s.a arkadar hayırlı geceler elımde .sopekle .aop ekle addonu var sorunsuz calısıyor

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias subroots {
  if $me ison #kelebek@ { 
    var %corenicks = $gettok($2-,1,32)
    .msg #kelebek@ $+(2Yetkili: 1 ,$gettok(%corenicks,1,61)) $+(2Ekleyen Yetkili: 1 ,$gettok(%corenicks,2,61)) $+(2Tarih:,$asctime($gettok($2-,2,32),dd-mm-yyyy )) $+(5Saat:,$asctime($gettok($2-,2,32),HH:nn))
  }
}

list yapınca ekleyen tarih cıkıyor buna aop ekledıgımı Yetki: AOP Sopekledıgıme yetki: SOP ek olarak eklemeye ugrastım sonuca ulasamadım yardımcı olabılırmısınız zahmet olmazsa sımdıden tşlker.

ÖRNEK : Yetkili: seda01 Ekleyen Yetkili: RahmetLi Yetki: AOP Tarih:11-02-2019 Saat:02:44
Yetkili: seda01 Ekleyen Yetkili: RahmetLi Yetki: SOP Tarih:11-02-2019 Saat:

Alper · 11 Şubat 2019, 09:45

Mantiken şöyle yapilabilir.

.sopekle komutuna değişken ekleyebilirsin.

.sopekle veya .aopekle yaptığın zaman set %yektituru yetki şeklinde.

.sopekle nick yaptın diyelim set %yetkituru Sop gibi kanala mesaj yazdıktan sonra unset yaptırabilirsin.

RahmetLi · 11 Şubat 2019, 14:01

tam anlamadım başkan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alper · 11 Şubat 2019, 18:53

Tam olarak anlaman için aop ekle kodunu paylaşman gerek.

RahmetLi · 11 Şubat 2019, 21:17

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#kelebek@: {
  var %rfile = $qt($scriptdirroots.ini)
  if $1 == .sopekle {
   if !$read(master.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE] 4 $nick 1Yetkili listesinde bulunmadıgınız için .sopekle komutunu kullanamazsınız. | return } 
   if $readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE]  4 $nick 1 $2  rumuzu #Kelebek kanalı Sop listesinde zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick $ctime
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Sop Listesine Eklendi. Access Listesini görmek için .acclist yazınız.
      cs access #kelebek add $2 100
      cs access #kelebek@ add $2 100
      return
    }
  }
  elseif $1 == .accdel {
if !$read(yetkili.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE]4 $nick 1 Yetkili listesinde bulunmadıgınız için .accdel komutunu kullanamazsınız. | return } 
    if !$readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Access listesinde bulunamadı. | return }
    else {
      remini %rfile roots $2 $ctime
     cs access #kelebek@ del $2 
     cs access #kelebek del $2 
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Access listesinden silindi.
      return
    }
  }
if $1 == .aopekle {
if !$read(yetkili.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE] 4 $nick 1Yetkili listesinde bulunamadıgınız için .aopekle komutunu kullanamazsınız. | return } 
    if $readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Aop listesinde zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick $ctime
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Aop Listesine Eklendi. Access Listesini görmek için .acclist yazınız.
      cs access #kelebek add $2 50
      cs access #kelebek@ add $2 50
      return
    }
  }

  elseif $1 == .acclist {
    if !$exists(%rfile) || $ini(%rfile,roots,0) <= 0 {
      .msg $chan 4 $nick $2 ACC-LIST  yönetici listesi boş.
    }
    else { 
      .msg $chan 4 $nick 1 $2 5#KELEBEK 1[ACC-LIST] 2Toplam Yetkili:  $ini(%rfile,roots,0)
      .msg $chan  $2 2- - - - - - - - - - - - - - - - - - - - - 

      .play -atroots subroots $chan %rfile
    }
  }
}
alias subroots {
  if $me ison #kelebek@ { 
    var %corenicks = $gettok($2-,1,32)
    .msg #kelebek@ $+(2Yetkili: 1 ,$gettok(%corenicks,1,61)) $+(2Ekleyen Yetkili: 1 ,$gettok(%corenicks,2,61)) $+(2Tarih:,$asctime($gettok($2-,2,32),dd-mm-yyyy )) $+(5Saat:,$asctime($gettok($2-,2,32),HH:nn))
  }
}

kod bu tamamı bu üstadım

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:17 -->-> Daha önceki mesaj 19:41 --

üstadım bıde lıstelemeyı cok yavas yapıyor admın flagı var ama lıstelerken cok yavas neden olabılır acaba?

Alper · 11 Şubat 2019, 22:42

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 on *:text:*:#kelebek@: {
  var %rfile = $qt($scriptdirroots.ini)
  if $1 == .sopekle {
    if !$read(master.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE] 4 $nick 1Yetkili listesinde bulunmadıgınız için .sopekle komutunu kullanamazsınız. | return } 
    if $readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE]  4 $nick 1 $2  rumuzu #kelebek kanalı Sop listesinde zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick SOP $ctime
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #kelebek kanalı Sop Listesine Eklendi. Access Listesini görmek için .acclist yazınız.
      cs access #kelebek add $2 100
      cs access #kelebek@ add $2 100
      return
    }
  }
  elseif $1 == .accdel {
    if !$read(yetkili.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE]4 $nick 1 Yetkili listesinde bulunmadıgınız için .accdel komutunu kullanamazsınız. | return } 
    if !$readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #kelebek kanalı Access listesinde bulunamadı. | return }
    else {
      remini %rfile roots $2 $ctime
      cs access #kelebek@ del $2 
      cs access #kelebek del $2 
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #kelebek kanalı Access listesinden silindi.
      return
    }
  }
  if $1 == .aopekle {
    if !$read(yetkili.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE] 4 $nick 1Yetkili listesinde bulunamadıgınız için .aopekle komutunu kullanamazsınız. | return } 
    if $readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #kelebek kanalı Aop listesinde zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick AOP $ctime
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #kelebek kanalı Aop Listesine Eklendi. Access Listesini görmek için .acclist yazınız.
      cs access #kelebek add $2 50
      cs access #kelebek@ add $2 50
      return
    }
  }

  elseif $1 == .acclist {
    if !$exists(%rfile) || $ini(%rfile,roots,0) <= 0 {
      .msg $chan 4 $nick $2 ACC-LIST  yönetici listesi boş.
    }
    else { 
      .msg $chan 4 $nick 1 $2 5#kelebek 1[ACC-LIST] 2Toplam Yetkili:  $ini(%rfile,roots,0)
      .msg $chan  $2 2- - - - - - - - - - - - - - - - - - - - - 

      .play -atroots subroots $chan %rfile
    }
  }
}
alias subroots {
  if $me ison #kelebek@ { 
    var %corenicks = $gettok($2-,1,32)
    .msg #kelebek@ $+(2Yetkili: 1 ,$gettok(%corenicks,1,61)) $+(2Ekleyen Yetkili: 1 ,$gettok(%corenicks,2,61)) $+(2Yetki: 1 ,$gettok($2-,2,32)) $+(2Tarih:,$asctime($gettok($2-,3,32),dd-mm-yyyy )) $+(5Saat:,$asctime($gettok($2-,3,32),HH:nn))
  }
}

RahmetLi · 11 Şubat 2019, 23:21

Yetkili: IşıLada Ekleyen Yetkili: RahmetLi Access Yetkisi: 11549886248 Tarih:11-02-2019 Saat:13:57

bu sekılde cıkıyor ustadım :S bide cok yavas sıralıyor admın flagı var nasıl hızlandırabılırız. senıde ugrastırıyorum kusura bakma

Alper · 11 Şubat 2019, 23:25

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kodun tamamını değişmedin sanırım sadece alias kısmını değişmişsin ben denedim çalıştı.

[ 22:38:40 ] <pC`kOpAt> .acclist
[ 22:38:40 ] <Deneme> pC`kOpAt #sohbet [ACC-LIST] Toplam Yetkili: 1
[ 22:38:41 ] <Deneme> - - - - - - - - - - - - - - - - - - - - -
[ 22:38:41 ] <Deneme> Yetkili: elif Ekleyen Yetkili: pC`kOpAt Yetki: AOP Tarih:11-02-2019 Saat:22:38

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
op sop ekle tcl	alphae	Eggdrop, NeoStats, BNC	0	02 Temmuz 2016 14:25
Tek komut ile kanal şifrele/topic ekle/koruma ekle.	Prens	mIRC Scripting Sorunları	3	23 Nisan 2014 11:17
Toplist.Name.Tr - Toplist Sitesi Siteni Ekle Site Ekle	armoking_yesiI	Toplist - Hitlist	2	12 Şubat 2010 22:24
2 kod ver tek kod ekle	Onur55	Link değişimi	2	15 Ocak 2009 21:31

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.