IRCDForum - IRC ve mIRC Kullanıcı Topluluğu  
Geri Git   IRCDForum - IRC ve mIRC Kullanıcı Topluluğu > IF- mIRC Scripting > mIRC Scripting Hazır Kodlar


Oper/Admin Paneli

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.


Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
Konu Araçları Görünüm Modları
Old 05 Aralık 2023, 16:52   #1
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan Oper/Admin Paneli

Kod
####################
menu menubar { 
  Admin Paneli:/Adminmenu
} 
####################
## Admin Paneli:Adminmenu
alias Adminmenu { dialog -m Adminmenu Adminmenu }
dialog Adminmenu {
  title "Admin Paneli"
  size -1 -1 247 223
  option dbu
  button "« « KAPAT » »", 10, 3 208 242 13, flat ok
  list 1, 2 10 71 139, size
  text "Nickin üstünü Tıklayın ve işlem yapın", 8, 5 153 122 8, center
  button "Gline", 2, 2 164 64 13, flat
  button "Shun", 4, 69 164 63 13, flat
  button "Kill", 3, 135 164 58 13, flat
  button "Tüm Kanaldan Çıkar", 5, 2 180 64 12, flat
  button "Tüm Kanallara Al", 6, 69 180 63 12, flat
  button "Ban (+b)", 7, 194 180 51 12, flat
  text "Tüm Nickler", 11, 3 2 69 8, center
  list 12, 73 10 56 139, size
  text "Ident", 13, 73 2 56 8, center
  list 14, 129 10 65 139, size
  text " ip", 15, 130 2 65 8, center
  text "", 16, 137 153 53 7, center
  box "", 17, 2 148 129 14
  box "", 18, 135 148 58 14
  button "Değiştir", 20, 135 195 58 12, flat
  edit "", 19, 69 195 63 10, multi autohs
  text "User Nicki değistir :", 21, 4 196 55 8, center
  box "", 22, 3 192 61 14
  text " Global Odalar", 23, 194 2 50 8, center
  list 24, 194 10 51 66, size
  text " Yönetici odaları", 25, 194 76 53 8, center
  list 26, 194 84 51 40, size
  button " Sajoin", 27, 194 151 51 12, flat
  button "Sapart", 28, 194 165 51 12, flat
  button "Bütün +b Kaldır", 29, 135 180 58 12, flat
  button "Alban (+b)", 30, 194 195 51 12, flat
  list 31, 194 125 51 24, size
  box "", 9, 392 89 0 88
}


;alias sonuc { noop $tip(b, %kn_, Kanalından4 $iif(%k-nick,%k-nick, $iif(%bnick, %bnick, Kullanıcı)) Ban Yedi,9999999999999) }
;alias knk { .timerbnb 1 2 sonuc } 
on *:ban:#:{ unset %k-nick | set -e %bnick $bnick | set -e %kn_ # } 
on *:kick:#:{ set -e %k-nick $knick }
on *:dialog:Adminmenu:sclick:26:{
  if $did(Adminmenu,26).sel { did -u Adminmenu 24 | did -u Adminmenu 31 }
}
on *:dialog:Adminmenu:sclick:24:{ 
  if $did(Adminmenu,24).sel { did -u Adminmenu 26 | did -u Adminmenu 31  }
}
on *:dialog:Adminmenu:sclick:31:{ 
  if $did(Adminmenu,31).sel { did -u Adminmenu 26 | did -u Adminmenu 24 }
}
on *:dialog:Adminmenu:sclick:30:{ albans $did(1).seltext  }
alias albans {
  var %l_ 1, %l- $did(Adminmenu,24).lines
  while %l_ <= %l- { samode $did(Adminmenu,24,%l_).text +b $1 | inc %l_ }
}
alias -l ksec { 
  if $did(24).sel { return $did(24).seltext }
  elseif $did(26).sel { return $did(26).seltext }
  elseif $did(31).sel { return $did(31).seltext }
}
on *:dialog:Adminmenu:sclick:29:{ .bn #Radyo #Kelime #isLam #Test #Bilgi #Yarisma #SaNCaK #Admin #Services #Kontrol #Help #Opers #Dj }
alias bn {
  var %a 1 ,%b $numtok($1-,32)
  while %a <= %b { 
    var %c 1
    while %c <= $ibl($gettok($1-,%a,32),0)  {
    samode $gettok($1-,%a,32) -b $ibl($gettok($1-,%a,32),%c) | inc %c } 
    inc %a 
  } 
}
on *:dialog:Adminmenu:sclick:27:{ 
  if $did(1).sel && $did(24).sel || $did(26).sel || $did(31).sel { sajoin $did(1).seltext $ksec }  
}
on *:dialog:Adminmenu:sclick:28:{
  if $did(1).sel && $did(24).sel || $did(26).sel || $did(31).sel { sapart $did(1).seltext $ksec }  
}
on *:dialog:Adminmenu:sclick:1: { did -c $dname 1 $did(1).sel | did -c $dname 12 $did(1).sel | did -c $dname 14 $did(1).sel }
on *:dialog:Adminmenu:dclick:1: { !query $$did(1).seltext }
on *:dialog:Adminmenu:dclick:24: { join $$did(24).seltext }
on *:dialog:Adminmenu:dclick:26: { join $$did(26).seltext }
on *:dialog:Adminmenu:dclick:31: { join $$did(31).seltext }
on *:dialog:Adminmenu:sclick:12: { did -c $dname 12 $did(12).sel | did -c $dname 14 $did(12).sel | did -c $dname 1 $did(12).sel }
on *:dialog:Adminmenu:sclick:14: { did -c $dname 1 $did(14).sel | did -c $dname 14 $did(14).sel | did -c $dname 12 $did(14).sel }

on *:dialog:Adminmenu:*:*: {
  if $devent == init { 
    set %Adminmenu on | who +I 
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(237,241,219)
    mdx SetFont $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,33,34 +b Turkish 15 950 Tahoma
    mdx SetColor $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31,32,33,33,34 textbg $rgb(237,241,219)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31,32,33,33,34 background $rgb(237,241,219)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21 text $rgb(0,0,0)
    mdx SetColor $dname 11,13,15,16,8,21,23,25l text $rgb(199,92,2)
    did -a $dname 24 #Radyo
    did -a $dname 24 #Sohbet
    did -a $dname 24 #Chat
    did -a $dname 24 #Felsefe
    did -a $dname 24 #İzmir
    did -a $dname 24 #İstanbul
    did -a $dname 24 #SaNCaK
    did -a $dname 26 #Master
    did -a $dname 26 #Xline
    did -a $dname 26 #Admin
    did -a $dname 26 #OperSohbet
    did -a $dname 31 #Operhelp
    did -a $dname 31 #Help
  }
  if $devent == sclick && $status == connected {
    if $did == 2 { gzline $did(1).seltext 8,115Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. } 
    if $did == 3 { kill $did(1).seltext Kill }
    if $did == 20 { /operserv badnick $did(1).seltext } 
    if $did == 30 { cs unban $did(24).seltext,$did(26).seltext$did(31).seltext all  }
    if  $did == 4 { shun $did(1).seltext 8,115Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. } 
    if $did == 5 { 
      set %offlan $did(Adminmenu,1).seltext
      kapats
    }
    if $did == 6 { 
      set %offlan $did(Adminmenu,1).seltext
      yetergir
    }
    if $did == 7 { 
      if $did(24).sel { ksecb $did(Adminmenu,24).seltext } 
      elseif $did(26).sel { ksecb $did(Adminmenu,26).seltext }
      elseif $did(31).sel { ksecb $did(Adminmenu,31).seltext }
      else { ksecb $active }
    }
  }
  if $devent == close { 
    write -c wholist.txt 
    unset %Adminmenu
  }
}

alias ksecb { os mode $1 +b $did(Adminmenu,1).seltext }


raw 352:*: { 
  if (%Adminmenu == on) {
    if ($8 == 1) { halt }
    if ($6 == S-Bot) { halt }
    if ($3 == SekerShell) { halt }
    if (*B* iswm $7) { halt }
    write wholist.txt $6
    did -a Adminmenu 16 Toplam = $lines(wholist.txt) Kişi
    did -a Adminmenu 1 $6
    did -a Adminmenu 12 $3
    did -a Adminmenu 14 $4  
    .timer 1 2 unset %Adminmenu
    /halt
  }
}
raw 315:*: { /halt }

alias yetergir {
  set %veri4 1
  set %veri5 $chan(0)
  while %veri4 <= %veri5 {
    if $regex($chan(%veri4),/operhelp|opers|log|services|x|dj|op|admin|help|kontrol/i) { halt }
    sajoin %offlan $chan(%veri4) 
    inc %veri4 
  }
}
alias kapats {
  set %kapats1 1
  set %kapats2 $chan(0)
  while %kapats1 <= %kapats2 {
    sapart %offlan $chan(%kapats1) 
    inc %kapats1 
  }
}

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29

Cevapla

Yer İmleri

Etiketler
oper or admin, paneli

Konu Araçları
Görünüm Modları

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı