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/)
-   -   Yardıma Kanalına Giriş Uyarısı (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/884983-yardima-kanalina-giris-uyarisi.html)

cinaryigit 12 Ekim 2020 15:17
Yardıma Kanalına Giriş Uyarısı
 
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
Cevap: Yardıma Kanalına Giriş Uyarısı
 
Alıntı:
cinaryigit Nickli Üyeden Alıntı (Mesaj 1042379049)
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:
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:
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
Cevap: Yardıma Kanalına Giriş Uyarısı
 
Kod:
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
Cevap: Yardıma Kanalına Giriş Uyarısı
 
Kod:
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
Cevap: Yardıma Kanalına Giriş Uyarısı
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042381620)
Kod:
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
Cevap: Yardıma Kanalına Giriş Uyarısı
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042381620)
Kod:
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:
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:)


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

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