IRCDefteri - En İyi IRCForum Sayfasi
  SohbetYaz.Com


 Kayıt ol  Bugünkü Mesajlar  Arama

Etiketlenen üyelerin listesi

Yeni Konu Aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 14.Haziran.2022   #1
Çevrimiçi
~ Www.ircforumda.net ~
Power menu addonu

Düz mIRC‘lerde kullandığımız Popup özellikleri görsellik bakımından sınırlıdır.
Görsellik bakımından biraz değişiklik ve birazda ek özelliklerle Popup özelliğini andıran bu çalışmamı sizlerle paylaşıyorum.

Aşağıda gördüğünüz görüntülerde hiçbir DLL , resim yada ek materyal kullanılmamıştır.mIRC kendine özgü Picture Window özellikleriyle derlenmiştir.

Chanserv SET , CLEAR , PROTECT , OP , VOICE , DEPROTECT , DEOP , DEVOICE özelliklerine daha kolay erişim(Levels düzeyiniz varsa) sağlayabilirsiniz.

SET ve CLEAR komutularına alt erişim için Submenu‘yu andıran bir görsellik oluşturdum.Ok işaretlerini tıkladığınızda Submenu açılımını göreceksiniz.
Popup menulerde alt bilgi açılımı sağa (veya) sola doğru oluşurken bu çalışmada menu içinde aşağıya doğru açılmaktadır.

Bu çalışmayı örnek alıp kendinize yeni menuler oluşturabilirsiniz.

Ekteki çalışmayı scriptinizin remote kısmına ekleyiniz.Herhangi bir kanalda sağ tıkladığınızda Power Menu‘ye ulaşacaksınızdır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:notice:*:*:{
  if $nick == Chanserv && %difychan && $regex($1-,/ekler\x3A/i) {
    if $regex($1-,/hatirlama/iS) { set %difykeeptopic on | drawtext -o @Pop %difycolor.text Tahoma 11 170 189 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 189 [Kapalı] }
    if $regex($1-,/gizli/iS) { set %difyprivate on | drawtext -o @Pop %difycolor.text Tahoma 11 170 97 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 97 [Kapalı] }
    if $regex($1-,/kisitli op/iS) { set %difysecureops on | drawtext -o @Pop %difycolor.text Tahoma 11 170 166 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 166 [Kapalı] }
    if $regex($1-,/leave/iS) { set %difyleaveops on | drawtext -o @Pop %difycolor.text Tahoma 11 170 143 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 143 [Kapalı] }
    if $regex($1-,/giris/iS) { set %difyrestricted on | drawtext -o @Pop %difycolor.text Tahoma 11 170 212 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 212 [Kapalı] }
    if $regex($1-,/guvenlik/iS) { set %difysecure on | drawtext -o @Pop %difycolor.text Tahoma 11 170 51 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 51 [Kapalı] }
    if $regex($1-,/notice/iS) { set %difyopnotice on | drawtext -o @Pop %difycolor.text Tahoma 11 170 120 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 120 [Kapalı] }
    if $regex($1-,/koruma/iS) { set %difyenforce on | drawtext -o @Pop %difycolor.text Tahoma 11 170 74 (Açık) } | else { drawtext -o @Pop %difycolor.text Tahoma 11 165 74 [Kapalı] }
  }
}
menu channel {
  Power Menu:pop
}
alias pop {
  $iif($active ischan,goto yeah,return)
  :yeah
  set %difychan $chan
  set %difycolor.text 1
  window -pad +lbn @Pop $mouse.dx $mouse.dy 230 300
  set %difycolor1 $rgb($r(80,255),$r(80,255),$r(80,255))
  set %difycolor2 $rgb($r(80,255),$r(80,255),$r(80,255))
  drawrect -rf @Pop %difycolor1 1 40 0 190 300
  drawrect -rf @Pop %difycolor2 1 0 0 40 300
  var %difyangle 249
  drawline @Pop 1 2 40 0 40 300
  drawtext -o @Pop 1 Impact 30 3 260 P
  drawrot -b @Pop 1 %difyangle 0 260 32 32 
  drawtext -o @Pop 1 Impact 30 3 228 o
  drawrot -b @Pop 1 %difyangle 0 228 32 32 
  drawtext -o @Pop 1 Impact 30 3 196 w
  drawrot -b @Pop 1 %difyangle 0 196 32 32 
  drawtext -o @Pop 1 Impact 30 3 164 e
  drawrot -b @Pop 1 %difyangle 0 164 32 32 
  drawtext -o @Pop 1 Impact 30 3 132 r
  drawrot -b @Pop 1 %difyangle 0 132 32 32 
  drawtext -o @Pop 1 Impact 30 3 90 M
  drawrot -b @Pop 1 %difyangle 0 90 32 32 
  drawtext -o @Pop 1 Impact 30 3 58 e
  drawrot -b @Pop 1 %difyangle 0 58 32 32 
  drawtext -o @Pop 1 Impact 30 3 26 n
  drawrot -b @Pop 1 %difyangle 0 26 32 32 
  drawtext -o @Pop 1 Impact 30 3 0 u
  drawrot -b @Pop 1 %difyangle 0 0 32 32 
  drawrect @Pop 14 1 42 23 190 1 
  drawrect @Pop 14 1 42 46 190 1 
  drawrect @Pop 14 1 42 69 190 1 
  drawrect @Pop 14 1 42 115 190 1 
  drawrect @Pop 14 1 42 138 190 1 
  drawrect @Pop 14 1 42 184 190 1
  drawrect @Pop 14 1 42 207 190 1
  drawrect @Pop 14 1 42 230 190 1
  drawrect @Pop 14 1 42 253 190 1
  drawrect @Pop 14 1 42 276 190 1
  drawtext @Pop 14 "Comic Sans MS" 11 83 280 Product by Difuzyon
  drawtext -o @Pop %difycolor.text Tahoma 11 60 5 Yazı stili (Font) 
  drawtext -o @Pop %difycolor.text Tahoma 11 60 29 Chanserv SETTING
  drawtext -o @Pop %difycolor.text Webdings 22 195 22 6
  senkronise
}
alias senkronise {
  drawtext -o @Pop %difycolor.text Tahoma 11 60 51 $iif($away,Away'dan çık,Away ol)
  drawtext -o @Pop %difycolor.text Tahoma 10 60 71 Kanal:  %difychan
  drawtext -o @Pop %difycolor.text Tahoma 10 60 86 Kullanıcı Sayısı: $nick(%difychan,0) kişi
  drawtext -o @Pop %difycolor.text Tahoma 10 60 101 Kanal Modeleri: $chan(%difychan).mode
  drawtext -o @Pop %difycolor.text Tahoma 11 60 121 Kanal Ekranını Temizle
  drawtext -o @Pop %difycolor.text Tahoma 11 60 155 mIRC Çıkış (Exit)
  drawtext -o @Pop %difycolor.text Tahoma 11 60 190 Chanserv CLEARS
  drawtext -o @Pop %difycolor.text Webdings 22 195 183 6
  drawtext -o @Pop %difycolor.text Tahoma 11 60 213 $iif(*&* iswm $nick(%difychan,$me).pnick,Chanserv deprotect (-a),Chanserv Protect (+a))
  drawtext -o @Pop %difycolor.text Tahoma 11 60 236 $iif(*@* iswm $nick(%difychan,$me).pnick,Chanserv deop (-o),Chanserv OP (+o))
  drawtext -o @Pop %difycolor.text Tahoma 11 60 260 $iif(*+* iswm $nick(%difychan,$me).pnick,Chanserv devoice (-v),Chanserv Voice (+v))
}
menu @pop {
  mouse:{
    if $inrect($mouse.x,$mouse.y,42,0,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 0 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 0 190 23 }
    if $inrect($mouse.x,$mouse.y,42,24,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 24 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 24 190 23 } 
    if !%difyclick {
      if $inrect($mouse.x,$mouse.y,42,47,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 47 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 47 190 23 }
      if $inrect($mouse.x,$mouse.y,42,116,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 116 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 116 190 23 }
      if $inrect($mouse.x,$mouse.y,42,139,190,45) { drawreplace -r @Pop %difycolor1 %difycolor2 42 139 190 45 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 139 190 45 }
      if $inrect($mouse.x,$mouse.y,42,185,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 185 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 185 190 23 }
      if $inrect($mouse.x,$mouse.y,42,208,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 208 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 208 190 23 }
      if $inrect($mouse.x,$mouse.y,42,231,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 231 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 231 190 23 }
      if $inrect($mouse.x,$mouse.y,42,254,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 254 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 254 190 23 }
    }
    if %difyclick {
      if $inrect($mouse.x,$mouse.y,42,47,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 47 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 47 190 23 }
      if $inrect($mouse.x,$mouse.y,42,70,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 70 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 70 190 23 }
      if $inrect($mouse.x,$mouse.y,42,93,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 93 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 93 190 23 }
      if $inrect($mouse.x,$mouse.y,42,116,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 116 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 116 190 23 }
      if $inrect($mouse.x,$mouse.y,42,139,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 139 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 139 190 23 }
      if $inrect($mouse.x,$mouse.y,42,162,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 162 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 162 190 23 }
      if $inrect($mouse.x,$mouse.y,42,185,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 185 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 185 190 23 }
      if $inrect($mouse.x,$mouse.y,42,208,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 208 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 208 190 23 }
      if $inrect($mouse.x,$mouse.y,42,231,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 231 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 231 190 23 }
      if $inrect($mouse.x,$mouse.y,42,254,190,22) { drawreplace -r @Pop %difycolor1 %difycolor2 42 254 190 23 } | else { drawreplace -r @Pop %difycolor2 %difycolor1 42 254 190 23 }
    }
  }
  sclick:{
    if $inrect($mouse.x,$mouse.y,42,0,190,22) { window -c @Pop | font }
    if $inrect($mouse.x,$mouse.y,42,139,190,45) && !%difyclick { EXIT -n }
    if $inrect($mouse.x,$mouse.y,42,48,190,22) && !%difyclick { window -c @Pop | if $away { away | echo 7 -at Away konumundan çıktınız. } | else { away Meşgul | echo 4 -at Şuanda03 Away konumuna geçtiniz } }
    if $inrect($mouse.x,$mouse.y,42,116,190,22) && !%difyclick { clear %difychan | window -c @Pop }
    if %difyclick {
      if $inrect($mouse.x,$mouse.y,42,47,190,22) { cs set %difychan secure $iif(%difysecure,off,on) | window -c @Pop }
      if $inrect($mouse.x,$mouse.y,42,70,190,22) { cs set %difychan enforce $iif(%difyenforce,off,on) | window -c @Pop }
      if $inrect($mouse.x,$mouse.y,42,93,190,22) { cs set %difychan private $iif(%difyprivate,off,on) | window -c @Pop }
      if $inrect($mouse.x,$mouse.y,42,116,190,22) { cs set %difychan opnotice $iif(%difyopnotice,off,on) | window -c @Pop }
      if $inrect($mouse.x,$mouse.y,42,139,190,22) { cs set %difychan leaveops $iif(%difyleaveops,off,on) | window -c @Pop }
      if $inrect($mouse.x,$mouse.y,42,162,190,22) { cs set %difychan secureops $iif(%difysecureops,off,on) | window -c @Pop }
      if $inrect($mouse.x,$mouse.y,42,185,190,22) { cs set %difychan keeptopic $iif(%difykeeptopic,off,on) | window -c @Pop }
    }
    if $inrect($mouse.x,$mouse.y,42,208,190,22) { 
      if %difyclick1 { cs clear %difychan users }
      if %difyclick { cs set %difychan restricted $iif(%difyrestricted,off,on) }
      if !%difyclick && !%difyclick1 { cs $iif(*&* iswm $nick(%difychan,$me).pnick,deprotect,protect) %difychan $me }
      window -c @Pop
    }
    if $inrect($mouse.x,$mouse.y,42,231,190,22) { 
      if %difyclick1 { cs clear %difychan ops }
      if %difyclick { cs set %difychan mlock + }
      if !%difyclick && !%difyclick1 { cs $iif(*@* iswm $nick(%difychan,$me).pnick,deop,op) %difychan $me }
      window -c @Pop
    }
    if $inrect($mouse.x,$mouse.y,42,254,190,22) {
      if %difyclick1 { cs clear %difychan voices }
      if %difyclick { cs access %difychan del 1-999 }
      if !%difyclick && !%difyclick1 { cs $iif(*+* iswm $nick(%difychan,$me).pnick,devoice,voice) %difychan $me }
      window -c @Pop
    }
    if $inrect($mouse.x,$mouse.y,198,30,15,10) { 
      unset %difyclick1
      if !%difyclick {
        set %difyclick yeah
        cs info %difychan
        drawrect -rf @Pop %difycolor1 1 42 47 188 228
        drawrect @Pop 14 1 42 69 190 1 | drawrect @Pop 14 1 42 92 190 1 | drawrect @Pop 14 1 42 115 190 1 | drawrect @Pop 14 1 42 138 190 1
        drawrect @Pop 14 1 42 161 190 1 | drawrect @Pop 14 1 42 184 190 1 | drawrect @Pop 14 1 42 207 190 1 | drawrect @Pop 14 1 42 230 190 1 | drawrect @Pop 14 1 42 253 190 1
        drawtext -o @Pop %difycolor.text Tahoma 11 60 51 * Secure 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 74 * Enforce 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 97 * Private 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 120 * Opnotice 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 143 * Leaveops 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 166 * Secureops 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 189 * Keeptopic 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 212 * Restricted 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 235 * Clear Mlock
        drawtext -o @Pop %difycolor.text Tahoma 11 60 258 * Clear Access
        drawrect -rf @Pop %difycolor2 1 42 24 190 22 | drawtext -o @Pop %difycolor.text Tahoma 11 60 29 Chanserv SETTING | drawtext -o @Pop 4 Webdings 22 195 22 5
      }
      else { 
        unset %difyclick
        drawrect -rf @Pop %difycolor1 1 42 24 190 22 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 29 Chanserv SETTING 
        drawtext -o @Pop %difycolor.text Webdings 22 195 22 6 
        drawrect -rf @Pop %difycolor1 1 42 47 188 228
        drawrect @Pop 14 1 42 69 190 1 
        drawrect @Pop 14 1 42 115 190 1 
        drawrect @Pop 14 1 42 138 190 1 
        drawrect @Pop 14 1 42 184 190 1 
        drawrect @Pop 14 1 42 207 190 1 
        drawrect @Pop 14 1 42 230 190 1 
        drawrect @Pop 14 1 42 253 190 1
        senkronise
      }
    }
    if $inrect($mouse.x,$mouse.y,200,193,15,10) {
      unset %difyclick
      if !%difyclick1 {
        set %difyclick1 yeah
        drawrect -rf @Pop %difycolor1 1 42 208 188 67
        drawrect @Pop 14 1 42 230 190 1 | drawrect @Pop 14 1 42 253 190 1
        drawtext -o @Pop %difycolor.text Tahoma 11 60 213 * Users 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 236 * Ops 
        drawtext -o @Pop %difycolor.text Tahoma 11 60 260 * Voices 
        drawrect -rf @Pop %difycolor1 1 42 185 190 22 | drawtext -o @Pop %difycolor.text Tahoma 11 60 190 Chanserv CLEARS | drawtext -o @Pop %difycolor.text Webdings 22 195 183 $iif(%difyclick1,5,6)
      }
      else { 
        unset %difyclick1
        drawrect -rf @Pop %difycolor1 1 42 185 190 22 | drawtext -o @Pop %difycolor.text Tahoma 11 60 190 Chanserv CLEARS | drawtext -o @Pop %difycolor.text Webdings 22 195 183 $iif(%difyclick1,5,6)
        drawrect -rf @Pop %difycolor1 1 42 208 188 67
        drawrect @Pop 14 1 42 230 190 1 | drawrect @Pop 14 1 42 253 190 1
        drawtext -o @Pop %difycolor.text Tahoma 11 60 213 $iif(*&* iswm $nick(%difychan,$me).pnick,Chanserv deprotect (-a),Chanserv Protect (+a))
        drawtext -o @Pop %difycolor.text Tahoma 11 60 236 $iif(*@* iswm $nick(%difychan,$me).pnick,Chanserv deop (-o),Chanserv OP (+o))
        drawtext -o @Pop %difycolor.text Tahoma 11 60 260 $iif(*+* iswm $nick(%difychan,$me).pnick,Chanserv devoice (-v),Chanserv Voice (+v))     
      }
    }
  }
}
on *:active:*:if (!$regex($active,@Pop)) { window -c @Pop | unset %dify* }
on *:close:@Pop:unset %dify*
  Alıntı ile Cevapla

IRCForumda.Net Reklamlar
sohbet isami sohbet
Cevapla


« Önceki Konu | Sonraki Konu »

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık



Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumda.Net hiçbir yasal sorumluluk kabul etmemektedir. Illegal herhangi bir faaliyet görülmesi durumunda iletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı Git
Teknosa Sohbet Sohbet MobilSohbet
Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.