Yardıma Kanalına Giriş Uyarısı - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

cinaryigit · 12 Ekim 2020, 15:17

Selam Arkadaşlar.

Kod şu işe yarıyor;
Belirlediğiniz bir kanala giriş olduğu takdirde ekranınızda ufak bir kutucuk açılır.
Ben #Chanserv kanalı için kullanıyorum
Not: Diğer kodlara bakarak hazırladım. Aslında "memoserv" iletisiydi. Kodun orijinal hali bu.Hak geçmesin
dialog ms {
title "MemoServ Bilgi Kutusu"
size -1 -1 220 85
text "Yeni bir notunuz var.",2,10 10 220 200
text "Okumak için tamam butonuna basınız.",3,10 30 220 200
button "Tamam",4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}

menu status,menubar, {
.-
.• Chanserv Uyarı
..• Açık !:.enable #xchan | .echo -a 0,4 Giriş Uyarı AÇıldı
..• Kapalı !:.disable #xchan | .echo -a 0,4 Uyarı Kapatıldı
.-
}

#xchan on
on ^*:join:#kanaladı: { notice $me 10( $+ $time $+ ) $chan 4Kanalına Giriş Yapan 10 : $nick ( $+ $address $+ ) | dialog -ma chanserv chanserv | halt }
Oper/Admin host muaf.
if $regex($site,/(Root|Admin|Network|Services|Help|IRCOP|Oper|Local )/i) { return }
Nick Muaf.
elseif $regex($nick,/(Muaf|Muaf2|Muaf3/i) { return }
dialog chanserv {
title "Chanserv Yardım Uyarı"
size -1 -1 220 85
text "Lütfen #Chanserv Kanalına Bakınız",2,10 10 220 200
text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200
button "Tamam",4,70 50 85 25,ok
}

on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v chanserv }
}
on 1:dialog:chanserv:sclick:4:/join #kanaldı
}
#xchan end

Alt+R yaparak remote içine kopyalayın, tamam deyiniz.
İyi IF'ler

cinaryigit · 16 Ekim 2020, 21:36

cinaryigit Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Selam Arkadaşlar.

Kod şu işe yarıyor;
Belirlediğiniz bir kanala giriş olduğu takdirde ekranınızda ufak bir kutucuk açılır.
Ben #Chanserv kanalı için kullanıyorum
Not: Diğer kodlara bakarak hazırladım. Aslında "memoserv" iletisiydi. Kodun orijinal hali bu.Hak geçmesin

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog ms {
  title "MemoServ Bilgi Kutusu"
  size -1 -1 220 85
  text "Yeni bir notunuz var.",2,10 10 220 200
  text "Okumak için tamam butonuna basınız.",3,10 30 220 200
  button "Tamam",4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
  if ($nick == MemoServ) {
    dialog -ma ms ms
    halt
  }
}
on 1:ACTIVE:*:{
  if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

menu status,menubar, {
  .-
  .• Chanserv Uyarı
  ..• Açık !:.enable #xchan | .echo -a 0,4  Giriş Uyarı AÇıldı 
  ..• Kapalı !:.disable #xchan | .echo -a 0,4 Uyarı Kapatıldı
  .-
}

#xchan on
on ^*:join:#kanaladı: { notice $me 10( $+ $time $+ )  $chan  4Kanalına Giriş Yapan 10 : $nick ( $+ $address $+  ) | dialog -ma chanserv chanserv  | halt } 
 Oper/Admin host muaf.
if $regex($site,/(Root|Admin|Network|Services|Help|IRCOP|Oper|Local)/i) { return }
 Nick Muaf.
elseif $regex($nick,/(Muaf|Muaf2|Muaf3/i) { return }
dialog chanserv {
  title "Chanserv Yardım Uyarı"
  size -1 -1 220 85
  text "Lütfen #Chanserv Kanalına Bakınız",2,10 10 220 200
  text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200
  button "Tamam",4,70 50 85 25,ok
}

on 1:ACTIVE:*:{
  if ($dialog(idrqm)) { dialog -v chanserv }
}
on 1:dialog:chanserv:sclick:4:/join #kanaldı
}
#xchan end

Alt+R yaparak remote içine kopyalayın, tamam deyiniz.
İyi IF'ler

Arkadaşlar muaflar çalışmıyor. Düzeltemedim de açıkçası @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve diğer coder arkadaşlardan ricam muafları yaparlarsa çok sevinirim. Şimdiden teşekkür ederim.

cinaryigit · 17 Ekim 2020, 15:07

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on !*:join:#KANAL:{
  ;- Oper/Admin host muaf.
  if $regex($site,/(Root|Admin|Network|Services|Help|IRCOP|Oper|Local)/i) { return }
  ;- Nick Muaf.
  elseif $regex($nick,/(NİCK1|NİCK2|/i) { return }
  else { .enable #acc | cs status # $nick }
}
#acc off
on *:notice:*Status*:?:{
  if ($nick == ChanServ) && ($4 == 0) {
    timer 1 5 dialog -ma chanserv chanserv
    .disable #acc 
  }
}
#acc end

dialog chanserv {
  title "Chanserv Yardım Uyarı"
  size -1 -1 220 85
  text "Lütfen #X Kanalına Bakınız!",2,10 10 220 200
  text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200
  button "Tamam",4,70 50 85 25,ok
}

on 1:ACTIVE:*:{
  if ($dialog(idrqm)) { dialog -v chanserv }
}
on 1:dialog:chanserv:sclick:4:/join #KANAL
}

Bu da muaf host ve nick eklenmiş hali arkadaşlar.

diEfoRyoU · 17 Ekim 2020, 16:10

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on !*:join:#KANAL:{ timernickbak $+ $nick 1 3 Isprefx $nick $gettok($address($nick,1),2,64) # } alias Isprefx { if $regex($2,/Root|Admin|Network|Services|Help|IRCOP|Oper|Local/i) { return } if $regex($1,/NİCK1|NİCK2/i) { return } if $1 isreg $3 { echo -a 10( $+ $time $+ ) $chan 4Kanalına Giriş Yapan 10 : $nick ( $+ $address $+ ) | dialog -ma chanserv chanserv dialog -ma chanserv chanserv } } dialog chanserv { title "Chanserv Yardım Uyarı" size -1 -1 220 85 text "Lütfen #X Kanalına Bakınız!",2,10 10 220 200 text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200 button "Tamam",4,70 50 85 25,ok } on 1:ACTIVE:*:{ if ($dialog(idrqm)) { dialog -v chanserv } } on 1:dialog:chanserv:sclick:4: { /join #KANAL }

Umarım işine yarar.

cinaryigit · 18 Ekim 2020, 00:16

diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on !*:join:#KANAL:{ timernickbak $+ $nick 1 3 Isprefx $nick $gettok($address($nick,1),2,64) # } alias Isprefx { if $regex($2,/Root|Admin|Network|Services|Help|IRCOP|Oper|Local/i) { return } if $regex($1,/NİCK1|NİCK2/i) { return } if $1 isreg $3 { echo -a 10( $+ $time $+ ) $chan 4Kanalına Giriş Yapan 10 : $nick ( $+ $address $+ ) | dialog -ma chanserv chanserv dialog -ma chanserv chanserv } } dialog chanserv { title "Chanserv Yardım Uyarı" size -1 -1 220 85 text "Lütfen #X Kanalına Bakınız!",2,10 10 220 200 text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200 button "Tamam",4,70 50 85 25,ok } on 1:ACTIVE:*:{ if ($dialog(idrqm)) { dialog -v chanserv } } on 1:dialog:chanserv:sclick:4: { /join #KANAL }

Umarım işine yarar.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] eline, emeğine sağlık teşekkür ederim.

cinaryigit · 18 Ekim 2020, 16:19

diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on !*:join:#KANAL:{ timernickbak $+ $nick 1 3 Isprefx $nick $gettok($address($nick,1),2,64) # } alias Isprefx { if $regex($2,/Root|Admin|Network|Services|Help|IRCOP|Oper|Local/i) { return } if $regex($1,/NİCK1|NİCK2/i) { return } if $1 isreg $3 { echo -a 10( $+ $time $+ ) $chan 4Kanalına Giriş Yapan 10 : $nick ( $+ $address $+ ) | dialog -ma chanserv chanserv dialog -ma chanserv chanserv } } dialog chanserv { title "Chanserv Yardım Uyarı" size -1 -1 220 85 text "Lütfen #X Kanalına Bakınız!",2,10 10 220 200 text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200 button "Tamam",4,70 50 85 25,ok } on 1:ACTIVE:*:{ if ($dialog(idrqm)) { dialog -v chanserv } } on 1:dialog:chanserv:sclick:4: { /join #KANAL }

Umarım işine yarar.

$nick $chan çalışmıyor nedense echo kısmında da ya da başka bir yere koysan da. Bakabilir misin sana zahmet.
Ben şöyle düzelttim $nick yerine $1 $chan yerine $3 öyle.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on !*:join:#KANAL:{
  timernickbak $+ $nick 1 3 Isprefx $nick  $gettok($address($nick,1),2,64) #
}
alias Isprefx {
  if $regex($2,/Root|Admin|Network|Services|Help|IRCOP|Oper|Local/i) { return }
  if $regex($1,/NoMercy|Geveze/i) { return }
  if $1 isreg $3 {
    noop $tip(x, Giriş Uyarısı, $1 $3 Kanalına Girdi!, 15)
  }

isteyen bunu da kullanabilir @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] notify için baloncuk isteyen birisi için yazmıştı oradan devşirme oldu biraz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
23-24 Ocak AÖF Sınav Giriş Yerleri belirlendi - 2016 AÖF giriş yeri sorgula	NarÇiçeği	AÖF	0	18 Ocak 2016 19:12
Proxy Giriş Yapanları #proxy Kanalına Almak !	diyorumki	mIRC Scripting Sorunları	30	04 Nisan 2013 15:14
2010 YGS Giriş Belgesini Kaybedenler Veya Giriş Belgesi Gelmeyenler İçin	Pentagram	YKS ve LGS`ye Hazırlık	0	05 Nisan 2010 13:48
Help ve OperHelp Giriş Uyarısı	FLu	mIRC Scripting Sorunları	10	12 Mayıs 2009 19:14
op kanalına girene ident ve setname uyarısı	SaintCty	mIRC Scripting Sorunları	10	12 Haziran 2007 12:35

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.

Canlı Akış 0

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.

Canlı Akış 0

Reaksiyonlar