IRCDefteri - En İyi IRCForum Sayfasi

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:
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*