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

1Beğeni(ler)
  • 1 Post By TiPiTiP

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Kasım 2007, 13:04   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Meşgul Menü




Bazı meşgul (away) fonksiyonlarını yapabileceğiniz bir menüdür.

Kurulum:

Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz.

1) Kodları ALT+R yapıp açılan pencereye yapıştırın.
2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın.

Görünüm:


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.




Kodlar:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;-------------------------------- ; Meşgul Menü ; KOD ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ; -------------------------------- ; => alias meşgul { dialog - $+ $iif($dialog(meşgul),v,md) meşgul meşgul } dialog meşgul { title "Meşgul Menü" size -1 -1 200 170 option dbu tab "Genel", 1, 0 -3 202 174 box "Rumuz Ayarları", 2, 5 15 190 35, tab 1 check "Meşgul olunca", 3, 11 24 42 10, tab 1 edit "", 4, 55 24 24 9, autohs, tab 1 text "ekini rumuzuma ekle.", 5, 82 25 50 10, tab 1 check "Meşgulden çıkınca rumuzuma dön ve şifresini gir. Şifrem:", 6, 11 34 141 10, tab 1 edit "", 7, 155 34 24 9, autohs, tab 1 box "Meşgul Ayarları", 8, 5 54 190 35, tab 1 check "Meşguldeyken her", 9, 11 63 52 10, tab 1 edit "", 10, 65 63 24 9, limit 2, tab 1 text "dakikada bir hatırlat.", 11, 93 64 50 10, tab 1 radio "ame", 12, 145 62 20 10, group 1, tab 1 radio "amsg", 13, 167 62 22 10, tab 1 check "Otomatik meşgulu aktifleştir. (", 14, 11 73 80 10, tab 1 edit "", 15, 93 73 24 9, limit 2, tab 1 text "dakika boyunca yazmazsam. )", 16, 120 74 82 10, tab 1 box "Diğer", 17, 5 94 190 45, tab 1 check "Meşgul olunca tüm kanallardan deop ol.", 18, 11 113 102 10, tab 1 check "Meşgul zamanımı belirli aralıklarla mesajımın sonuna ekle.", 19, 11 123 144 10, tab 1 check "Meşgulde kanal seslenmelerini takip et.", 20, 11 103 102 10, tab 1 radio "echo -a", 21, 118 102 27 10, group 4, tab 1 radio "(@Kanal)", 22, 150 102 30 10, tab 1 tab "Mesajlar", 100 box "Mesaj Ayarları", 101, 5 15 190 58, tab 100 text "Meşgul Mesajı:", 102, 10 23 40 10, tab 100 edit "", 103, 10 32 180 10, autohs, tab 100 text "Meşgul Konumdan Çıkma Mesajı:", 104, 10 45 130 10, tab 100 edit "", 105, 10 54 180 10, autohs, tab 100 box "Açık/Kapalı", 106, 5 78 105 35, tab 100 check "Meşgul mesajını aktifleştir." 107, 10 88 70 10, tab 100 check "Meşgulden çıkma mesajını aktifleştir.", 108, 10 98 94 10, tab 100 box "Kayıt", 109, 118 78 75 35, tab 100 radio "Açık", 110, 126 87 25 10, group 2, tab 100 radio "Kapalı", 111, 156 87 25 10, tab 100 radio "echo -a", 112, 126 97 27 10, group 3, tab 100 radio "(@Kayıt)", 113, 156 97 29 10, tab 100 box "Ekstralar", 114, 5 115 105 35, tab 100 check "Meşgul iken özelleri kapat.", 115, 11 124 73 10, tab 100 check "Meşgulde mIRC'i sağ alt köşeye at.", 116, 11 134 93 10, tab 100 button "<<< Genel Ayarlara Dön", 997, 115 132 77 17, tab 100 button "Kapat", 999, 158 146 33 17, ok, tab 1 } on *:DIALOG:meşgul:*:*:{ if ($devent == init) { did -a meşgul 4 %meşgul-ek did -a meşgul 7 %meşgul-şifre did -a meşgul 10 $calc(%meşgul-hatırlat / 60) did -a meşgul 15 $calc(%meşgul-dakika / 60) did -a meşgul 103 %meşgul-mesajı did -a meşgul 105 %meşgul-geridönüş if (%meşgul-id-3 == on) { did -c meşgul 3 | did -n meşgul 4 } | else { did -u meşgul 3 | did -m meşgul 4 } if (%meşgul-id-6 == on) { did -c meşgul 6 | did -n meşgul 7 } | else { did -u meşgul 6 | did -m meşgul 7 } if (%meşgul-id-9 == on) { did -c meşgul 9 | did -n meşgul 10 | did -e meşgul 12,13 } | else { did -u meşgul 9 | did -m meşgul 10 | did -b meşgul 12,13 } if (%meşgul-id-14 == on) { did -c meşgul 14 | did -n meşgul 15 } | else { did -u meşgul 14 | did -m meşgul 15 } $iif(%meşgul-id-18 == on, did -c meşgul 18, did -u meşgul 18) $iif(%meşgul-id-19 == on, did -c meşgul 19, did -u meşgul 19) if (%meşgul-id-20 == on) { did -c meşgul 20 | did -e meşgul 21,22 } | else { did -u meşgul 20 | did -b meşgul 21,22 } $iif(%meşgul-kanaltakip == echo, did -c meşgul 21, did -c meşgul 22) if (%meşgul-id-107 == on) { did -c meşgul 107 | did -n meşgul 103 } | else { did -u meşgul 107 | did -m meşgul 103 } if (%meşgul-id-108 == on) { did -c meşgul 108 | did -n meşgul 105 } | else { did -u meşgul 108 | did -m meşgul 105 } $iif(%meşgul-id-115 == on, did -c meşgul 115, did -u meşgul 115) $iif(%meşgul-id-116 == on, did -c meşgul 116, did -u meşgul 116) $iif(%meşgul-hatırla-tip == ame, did -c meşgul 12, did -c meşgul 13) if (%meşgul-kayıt == açık) { did -c meşgul 110 | did -e meşgul 112,113 } | else { did -c meşgul 111 | did -b meşgul 112,113 } $iif(%meşgul-kayıt-tip == echo, did -c meşgul 112, did -c meşgul 113) } if ($devent == sclick) { if ($did == 3) { if (%meşgul-id-3 == on) { set %meşgul-id-3 off | did -m meşgul 4 } | else { set %meşgul-id-3 on | did -n meşgul 4 } } if ($did == 6) { if (%meşgul-id-6 == on) { set %meşgul-id-6 off | did -m meşgul 7 } | else { set %meşgul-id-6 on | did -n meşgul 7 } } if ($did == 9) { if (%meşgul-id-9 == on) { set %meşgul-id-9 off | did -m meşgul 10 | did -b meşgul 12,13 } | else { set %meşgul-id-9 on | did -n meşgul 10 | did -e meşgul 12,13 } } if ($did == 14) { if (%meşgul-id-14 == on) { set %meşgul-id-14 off | did -m meşgul 15 } | else { set %meşgul-id-14 on | did -n meşgul 15 | uyar } } if ($did == 18) { if (%meşgul-id-18 == on) { set %meşgul-id-18 off } | else { set %meşgul-id-18 on } } if ($did == 19) { if (%meşgul-id-19 == on) { set %meşgul-id-19 off } | else { set %meşgul-id-19 on } } if ($did == 20) { if (%meşgul-id-20 == on) { set %meşgul-id-20 off | did -b meşgul 21,22 } | else { set %meşgul-id-20 on | did -e meşgul 21,22 } } if ($did == 21) { set %meşgul-kanaltakip echo } if ($did == 22) { set %meşgul-kanaltakip @Kanal } if ($did == 107) { if (%meşgul-id-107 == on) { set %meşgul-id-107 off | did -m meşgul 103 } | else { set %meşgul-id-107 on | did -n meşgul 103 } } if ($did == 108) { if (%meşgul-id-108 == on) { set %meşgul-id-108 off | did -m meşgul 105 } | else { set %meşgul-id-108 on | did -n meşgul 105 } } if ($did == 115) { if (%meşgul-id-115 == on) { set %meşgul-id-115 off } | else { set %meşgul-id-115 on } } if ($did == 116) { if (%meşgul-id-116 == on) { set %meşgul-id-116 off } | else { set %meşgul-id-116 on } } if ($did == 12) { set %meşgul-hatırla-tip ame } if ($did == 13) { set %meşgul-hatırla-tip amsg } if ($did == 110) { set %meşgul-kayıt açık | did -e meşgul 112,113 } if ($did == 111) { set %meşgul-kayıt kapalı | did -b meşgul 112,113 } if ($did == 112) { set %meşgul-kayıt-tip echo } if ($did == 113) { set %meşgul-kayıt-tip @kayıt } if ($did == 997) { did -f meşgul 1 } } if ($devent == edit) { if ($did == 4) { set %meşgul-ek $did(4).text } if ($did == 7) { set %meşgul-şifre $did(7).text } if ($did == 10) { set %meşgul-hatırlat $calc($did(10).text * 60) } if ($did == 15) { set %meşgul-dakika $calc($did(15).text * 60) } if ($did == 103) { set %meşgul-mesajı $did(103).text } if ($did == 105) { set %meşgul-geridönüş $did(105).text } } } alias uyar { $iif($input(Otomatik meşgul modu bir sonraki bağlantınızdan itibaren çalışmaya başlayacak.,oi,Bilgi) == $true, dialog -v meşgul meşgul) } alias meşgulkontrol { if (%meşgul-id-14- == on) && (%meşgul-dakika !== $Null) { if ($idle == %meşguldakika] { ame [Oto. mşgl mod: $calc(%meşgul-dakika / 60) $+ ] | away [Oto. mşgl mod: $calc(%meşgul-dakika / 60) $+ ] } } } alias meşgul-zamanla { var %mşgl3 $ctime set %mşgl2 $replace($duration($calc(%mşgl3 - %mşgl1)),hrs,saat,mins,dakika,secs,saniye,sec,saniye,min,dakika,hr,saat,wks,hafta,wk,hafta,days,gün,day,gün) } alias meşgul-ekle { /away [Msg: $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,%meşgul-mesajı,Belirtilmemiş...) $+ ] [Bşlngç: %meşgul-zaman $+ ] [Zmn: %mşgl2 $+ ] } alias deopall { var %. $chan(0) while %. { if $me isop $chan(%.) { mode $chan(%.) -aoh $me $me $me } dec %. } } alias notlarım { $iif(%meşgul-kayıt-tip == echo,enotlarım,wnotlarım) } alias enotlarım { echo -a [Kayıtlı Notlarınız] linesep var %1 = 1, %2 = $lines(kayıt.txt) while %1 <= %2 { echo $active $read(Kayıt.txt,%1) inc %1 } linesep write -c Kayıt.txt unset %mesaj-sayısı } alias wnotlarım { if !$window(@Kayıt) { window -g1k0n @Kayıt } aline -p @Kayıt [Kayıtlı Notlarınız] aline -p @Kayıt - var %1 = 1, %2 = $lines(kayıt.txt) while %1 <= %2 { aline -p @Kayıt $read(Kayıt.txt,%1) inc %1 } aline -p @Kayıt - write -c Kayıt.txt unset %mesaj-sayısı } alias mesaj-uyar { linesep echo -a Size bırakılmış  $+ %mesaj-sayısı $+  adet not var. echo -a Okumak için /Notlarım yazın. linesep } alias kanal-uyar { linesep echo -a Size kanallarda  $+ %mesaj-takip $+  defa seslenilmiş. echo -a Okumak için /Kanaltakip yazın. linesep } alias kanaltakip { $iif(%meşgul-kanaltakip == echo, ekanaltakip, wkanaltakip) } alias ekanaltakip { echo -a [Kanal Takip Mesajlarınız] linesep var %^ = 1, %^^ = $lines(Takip.txt) while %^ <= %^^ { echo $active $read(Takip.txt,%^) inc %^ } linesep write -c takip.txt unset %mesaj-takip } alias wkanaltakip { if !$window(@Kanal) { window -g1k0n @Kanal } aline -p @Kanal [Kanal Takip Mesajlarınız] aline -p @Kanal - var %^ = 1, %^^ = $lines(Takip.txt) while %^ <= %^^ { aline -p @Kanal $read(Takip.txt,%^) inc %^ } aline -p @Kanal - write -c Takip.txt unset %mesaj-takip } alias mşgl { set %meşgul-zaman $time if (%meşgul-id-3 == on) && (%meşgul-ek !== $Null) { nick $+($me,%meşgul-ek) } if (%meşgul-id-18 == on) { .timermşgl2 1 1 /deopall } if (%meşgul-id-9 == on) && (%meşgul-hatırlat !== $Null) { .timermşgl1 0 %meşgul-hatırlat /$iif(%meşgul-hatırla-tip == ame,ame,amsg) $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,[Mşgl: Aktif] [Msg: %meşgul-mesajı $+ ] [Bşlngç: %meşgul-zaman $+ ],[Mşgl: Aktif] [Bşlngç: %meşgul-zaman $+ ]) } if (%meşgul-id-19 == on) { set %mşgl1 $ctime .timermşgl4 0 39 meşgul-zamanla .timermşgl3 0 41 meşgul-ekle } /away $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,[Msg: %meşgul-mesajı $+ ],[Msg: Belirtilmemiş...]) [Bşlngç: %meşgul-zaman $+ ] /ame $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,[Msg: %meşgul-mesajı $+ ],[Meşgul konuma geçildi.]) [Bşlngç: %meşgul-zaman $+ ] if (%meşgul-id-116 == on) { .timermşgl116 1 2 /showmirc -t } } alias mşgldön { /away if (%meşgul-id-6 == on) && (%meşgul-şifre !== $Null) { nick $remove($me,%meşgul-ek) .timer 1 2 /ns identify %meşgul-şifre } .timermşgl* off unset %meşgul-zaman ame $iif(%meşgul-id-108 == on && %meşgul-geridönüş !== $Null,[ $+ %meşgul-geridönüş $+ ],[Meşgul konumdan çıkıldı...]) $iif(%mşgl2,[Zmn: %mşgl2 $+ ]) if (%mesaj-sayısı > 0) { mesaj-uyar } if (%mesaj-takip > 0) { kanal-uyar } } on *:CONNECT:{ if (%meşgul-id-14 == on) { .timermşglkntrl 0 1 /meşgulkontrol } } on *:DISCONNECT:{ .timermşgl* off } on 1:TEXT:*:?:{ if $away { if (%meşgul-kayıt == açık) { if ($1 !== !Not) { msg $nick [Mşgl: Aktif] [Not bırakın:] < !Not Mesajınız > } elseif ($1 == !Not) && ($2- !== $Null) { msg $nick Teşekkürler $nick $+ , mesajınız kaydedildi. write Kayıt.txt [ $+ $nick $+ ] [ $+ $address $+ ] [ $+ $fulldate $+ ] [Mesaj: $2- $+ ] inc %mesaj-sayısı } elseif ($1 == !Not) && ($2- == $Null) { msg $nick Not belirtmediniz, lütfen notunuzu yazın. } } if (%meşgul-id-115 == on) { closemsg $nick } } } on *:TEXT:*:#:{ if (%meşgul-id-20 == on) { if ($me isin $1-) { write Takip.txt [ $+ $server $+ ] [ $+ $chan $+ ] [ $+ $nick $+ ] [ $+ $fulldate $+ ] [Mesaj: $1- $+ ] inc %mesaj-takip } } } menu status,channel { Meşgul Modu < $+ $iif($away,Açık,Kapalı) $+ > .$iif($away,Meşgulden çık,Meşgule geç):if ($away == $true) /mşgldön | else /mşgl .- .Ayarlar:/meşgul } on *:LOAD:{ linesep echo -a [Meşgul Menü] Başarıyla yüklendi. echo -a [KOD] linesep set %meşgul-ek [YOK] set %meşgul-id-3 on set %meşgul-id-6 off set %meşgul-id-9 on set %meşgul-hatırlat 900 set %meşgul-hatırla-tip ame set %meşgul-id-14 on set %meşgul-dakika 600 set %meşgul-id-18 on set %meşgul-id-19 on set %meşgul-mesajı Bilgisayar başında değilim... set %meşgul-geridönüş Geri Geldim... set %meşgul-id-107 on set %meşgul-id-108 on set %meşgul-kayıt kapalı set %meşgul-id-115 on } on *:UNLOAD:{ linesep echo -a [Meşgul Menü] Başarıyla kaldırıldı. linesep unset %meşgul-* } ; <=

Lütfen kodda herhangi bir yanlışlık varsa belirtin.
Umarım yararlı olmuştur.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 25 Kasım 2007, 13:40   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Emeğine Sağlık Güzel Birşeye Benziyor Henüz Denemedim

 
Alıntı ile Cevapla

Alt 25 Kasım 2007, 14:20   #3
goKhaN`
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Bende Yeni Yapacagim mIRC'e Away Menusu Bunu ekLerim Hep Ayni Menu Olmaz dımı. Emegne Ellerine sagLik KOD
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


 
Alıntı ile Cevapla

Alt 25 Kasım 2007, 14:22   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Güzel özellikleri varmış.

Yapanın ellerine sağlık..

 
Alıntı ile Cevapla

Alt 01 Eylül 2013, 09:42   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Arkadaslar Bu Away Menüsü Güzel Fakat 1-2 Sıkıntısı Var Asagıdaki Resimde Göründüğü Gibi Surekli Meşgul Durumuna Geçtiniz Diye Uyarı Verıyor

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu Uyarıyı Nasıl Kapatabılırız Birde Bu Mesgul Menuye Ek Olarak Kanalda Biri Seslenince Mesgul Mesajımın Ona Gıtmesını Nasıl Saglarım ?

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 28 Şubat 2014, 13:30   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Konu Güncel...

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 28 Şubat 2014, 17:20   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Kod'u paylaşırsan yardımcı olabiliriz.

__________________
kS.-.cMGz
 
Alıntı ile Cevapla

Alt 28 Şubat 2014, 21:59   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $me isin $strip($1-) && $away { describe #  $nick su anda away'im (sebep: $awaymsg $+ ) özelime not bırakabilirsiniz. }

Yukarda ki kodu,

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{ if (%meşgul-id-20 == on) {

Altına ekle.

Muhtemelen çalışması lazım StanteaR Dörtyol güzeli
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Ayrıca, echo olarak çalışan Meşgul Duruma Geçtiniz. olan kısmını kaldır bence. Zira, senin bildiğin senin ekranında çıkması biraz saçma olmuş.

 
Alıntı ile Cevapla

Alt 28 Şubat 2014, 22:24   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Meşgul Menü




IRC-Dancer Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod'u paylaşırsan yardımcı olabiliriz.

Kod Yukarda Var Zaten..

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Cevapla

Etiketler
menu, menü, mesgul, meşgul, mirc, mirc download, mirc indir


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

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
DEVAMLI BAKİ KALAN İŞLERLE MEŞGUL OL Desmont Tarih 0 19 Kasım 2014 16:02
Ya Rab Beni Kendinle Meşgul Eyle! MasteR06 İslamiyet 0 07 Kasım 2010 16:32
Hadisçiler Sadece Senedle mi Meşgul Olmuşlardır? YapraK Hadis-i Şerifler 0 20 Mart 2009 04:16
Beni Kendinle Meşgul Eyle ''YA RABBİ! BaRoN İslamiyet 1 10 Mart 2009 06:57
155'i Meşgul Eden Çocuklara Suçüstü Kralice Haber Arşivi 0 12 Haziran 2008 13:40