IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   mIRc Operator Bar Toolbar gibi... (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/35238-mirc-operator-bar-toolbar-gibi.html)

LauReLL 31 Temmuz 2007 03:49

mIRc Operator Bar Toolbar gibi...
 
Sag Tarafta Resimdede Göreceğiniz gibi Operatorlerin Kullanması için böyle Bir Bar Yaptım Umarım Hoşunuza Gider...

Kod:

on *:connect: { dialog -m opsop opsop }
alias _opsop {
  if $dialog(opsop) {
    dialog -c opsop opsop
  }
  else {
    dialog -m opsop opsop
  }
}
dialog opsop {
  title "LauReLL"
  option dbu
  size -1 -1 35 51400
  button "+o", 1, 2 0 30 25
  button "-o", 7, 2 26 30 25
  button "+v", 2, 2 52 30 25
  button "-v", 8, 2 78 30 26
  button "kick", 3, 2 104 30 25
  button "ban", 4, 2 131 30 25
  button "K-B", 10, 2 156 30 25
  button "whois", 5, 2 182 30 25
  button "ping", 6, 2 209 30 25
  button "+MRc", 11, 2 236 30 25
  button "+m", 12, 2 262 30 25
  button "-m", 13, 2 289 30 25
  button "+c", 14, 2 315 30 25
  button "-c", 15, 2 342 30 25
  button "+R", 16, 2 369 30 25
  button "-R", 17, 2 396 30 25
  ;button "+m", 18, 2 423 30 25
  ;button "-m", 19, 2 450 30 25
}
on *:dialog:opsop:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdxdll SetDialog [ $dname ] bgcolor [ $rgb(191,216,156) ]
  rebar Dock $dialog(opsop).hwnd > left
}
on *:DIALOG:opsop:sclick:17:{
  if ($me isop $active) {
    mode $active -R
  }
}
on *:DIALOG:opsop:sclick:16:{
  if ($me isop $active) {
    mode $active +R
  }
}
on *:DIALOG:opsop:sclick:15:{
  if ($me isop $active) {
    mode $active -c
  }
}
on *:DIALOG:opsop:sclick:14:{
  if ($me isop $active) {
    mode $active +c
  }
}
on *:DIALOG:opsop:sclick:13:{
  if ($me isop $active) {
    mode $active -m
  }
}
on *:DIALOG:opsop:sclick:12:{
  if ($me isop $active) {
    mode $active +m
  }
}
on *:DIALOG:opsop:sclick:11:{
  if ($me isop $active) {
    mode $active +MRc
  }
}
on *:DIALOG:opsop:sclick:10:{
  if ($me isop $active) {
    ban $active $snick($active,1)10 | kick $active $snick($active,1)
  }
}
on *:DIALOG:opsop:sclick:1:{
  if ($me isop $active) {
    mode $active +o $snick($active,1)
  }
}
on *:DIALOG:opsop:sclick:7:{
  if ($me isop $active) {
    mode $active -o $snick($active,1)
  }
}
on *:DIALOG:opsop:sclick:2:{
  if ($me isop $active) {
    mode $active +v $snick($active,1)
  }
}
on *:DIALOG:opsop:sclick:8:{
  if ($me isop $active) {
    mode $active -v $snick($active,1)
  }
}
on *:DIALOG:opsop:sclick:3:{
  if ($me isop $active) {
    kick $active $snick($active,1)
  }
}
on *:DIALOG:opsop:sclick:4:{
  if ($me isop $active) {
    ban $active $snick($active,1) 10
  }
}
on *:DIALOG:opsop:sclick:5:{
  whois $snick($active,1)
}
on *:DIALOG:opsop:sclick:6:{
  ctcp $snick($active,1) ping
}
alias mdx { dll dll\mdx.dll $1- }
alias rebar { dll $shortfn(dll\rebar.dll) $$1- }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }

Görüntüsü

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Shot at 2007-07-30

LauReLL 31 Temmuz 2007 03:50

Cevap: mIRc Operator Bar Toolbar gibi...
 
mdx MarkDialog $dname
mdx SetDialog $dname style
mdxdll SetDialog [ $dname ] bgcolor [ $rgb(191,216,156) ]
rebar Dock $dialog(opsop).hwnd > left

Sadece bu kodlar sayesınde küçük dialog'u bu sekle soktum dll klasoru içersine bu dll leri atınız...
örnek C:\mIRc\dll\mdx.dll gib vs vs...

oSeNLuRDa_YaKa 31 Temmuz 2007 09:02

Yanıt: mIRc Operator Bar Toolbar gibi...
 
LauReLL ; arkadaşım yine güzeL bir çaLışma çıkarmışsın ortaya tbr. güzeL bir çaLışma eLine sağLık....

Mc_AyALa 31 Temmuz 2007 09:37

Yanıt: mIRc Operator Bar Toolbar gibi...
 
LauReL çok güzelde demsem yalan olar. :D
Muhteşem ... Muteeşemm ....
Bir teşekkür'ü Katıpın ;)

Kan 31 Temmuz 2007 11:08

Cevap: mIRc Operator Bar Toolbar gibi...
 
Guzel calismaya benziyor eline saglik.

LauReLL 31 Temmuz 2007 13:31

Cevap: mIRc Operator Bar Toolbar gibi...
 
Saolun ArkadaşLar aslında incelticektim ama dialog studio programım farklı...

Mc_AyALa 31 Temmuz 2007 14:04

Yanıt: mIRc Operator Bar Toolbar gibi...
 
LauReLL Pki Onu Sağ Tarafa Nick Listin Yanına Koyamazmısın ?

Kan 31 Temmuz 2007 15:27

Cevap: mIRc Operator Bar Toolbar gibi...
 
Kod:


on *:dialog:opsop:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdxdll SetDialog [ $dname ] bgcolor [ $rgb(191,216,156) ]
  rebar Dock $dialog(opsop).hwnd > left
}


Surda left yazan yeri right olarak ayarlarsan olur herhalde emin degilim tam

fener1907 22 Aralık 2009 05:43

Cevap: mIRc Operator Bar Toolbar gibi...
 
bu ekranın tam ortasında duruyo neden acaba?

muratcelik 16 Şubat 2010 10:04

Cevap: mIRc Operator Bar Toolbar gibi...
 
on *:connect: { dialog -m opsop opsop }
alias _opsop {
if $dialog(opsop) {
dialog -c opsop opsop
}
else {
dialog -m opsop opsop
}
}
dialog opsop {
title "LauReLL"
size -1 -1 16 259
option dbu
button "+o", 1, 2 0 15 15
button "-o", 7, 2 16 15 15
button "+v", 2, 2 32 15 15
button "-v", 8, 2 48 15 15
button "kick", 3, 2 64 15 15
button "ban", 4, 2 80 15 15
button "K-B", 10, 2 96 15 15
button "whois", 5, 2 112 15 15
button "ping", 6, 2 128 15 15
button "+MRc", 11, 2 144 15 15
button "+m", 12, 2 160 15 15
button "-m", 13, 2 176 15 15
button "+c", 14, 2 192 15 15
button "-c", 15, 2 208 15 15
button "+R", 16, 2 224 15 15
button "-R", 17, 2 240 15 15
}
on *:dialog:opsop:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdxdll SetDialog [ $dname ] bgcolor [ $rgb(191,216,156) ]
rebar Dock $dialog(opsop).hwnd > right
}
on *:DIALOG:opsop:sclick:17:{
if ($me isop $active) {
mode $active -R
}
}
on *:DIALOG:opsop:sclick:16:{
if ($me isop $active) {
mode $active +R
}
}
on *:DIALOG:opsop:sclick:15:{
if ($me isop $active) {
mode $active -c
}
}
on *:DIALOG:opsop:sclick:14:{
if ($me isop $active) {
mode $active +c
}
}
on *:DIALOG:opsop:sclick:13:{
if ($me isop $active) {
mode $active -m
}
}
on *:DIALOG:opsop:sclick:12:{
if ($me isop $active) {
mode $active +m
}
}
on *:DIALOG:opsop:sclick:11:{
if ($me isop $active) {
mode $active +MRc
}
}
on *:DIALOG:opsop:sclick:10:{
if ($me isop $active) {
ban $active $snick($active,1)10 | kick $active $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:1:{
if ($me isop $active) {
mode $active +o $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:7:{
if ($me isop $active) {
mode $active -o $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:2:{
if ($me isop $active) {
mode $active +v $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:8:{
if ($me isop $active) {
mode $active -v $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:3:{
if ($me isop $active) {
kick $active $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:4:{
if ($me isop $active) {
ban $active $snick($active,1) 10
}
}
on *:DIALOG:opsop:sclick:5:{
whois $snick($active,1)
}
on *:DIALOG:opsop:sclick:6:{
ctcp $snick($active,1) ping
}
alias mdx { dll dll\mdx.dll $1- }
alias rebar { dll $shortfn(dll\rebar.dll) $$1- }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }




bazı kodları değiştirerek incelttim..

LaureLL teşekkürler.. Emeğine sağlık


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:32.

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