mIRC Nick Karşılama Paneli

Kod hakkında bilgi: Bu ufak kod yardımıyla, kendi belirleyeceğimiz 12 nicke kadar karşılama mesajı ayarlayabiliriz. Bu nicklerden herhangi biri kanala girdikten 2 saniye sonra, onun için belirlediğimiz mesajla karşılama yapar. Kod sahibini bilmiyorum; yabancı bir siteden alıp Türkçe’ye çevirdim.

button “ 1 Karşılama”, 1, 10 23 50 15
button “ 2 Karşılama”, 2, 10 40 50 15
….. kısımlarında 1 Karşılama yerine, doğrudan nicki ekleyebilirsiniz.

button “SovaLyem”, 1, 10 23 50 15
button “Mysterious”, 2, 10 40 50 15 …. gibi

NOT2: Herhangi bir için belirlediğiniz mesajı silmek için, diyalogu açıp, o nickin butonuna tıklarsınız ve mesaj yazdığınız satırları boş bırakarak tamam dersiniz. Yani butona bastıktan sonra nick ve karşılama satırlarını boş bırakarak tamam dersiniz. nicki için karşılama mesajı ayarlandı: …. diye not çıkar.

menu * {
Nick Karşılama: {
dialog -dm greet greet
}
}
dialog Greet {
title "Karşılama Paneli"
size -1 -1 125 167
option dbu
box "Nick Karşılama Mesajı", 13, 33 8 5 10
button "Nick 1 Karşılama", 1, 10 23 50 15
button "Nick 2 Karşılama", 2, 10 40 50 15
button "Nick 3 Karşılama", 3, 10 57 50 15
button "Nick 4 Karşılama", 4, 10 74 50 15
button "Nick 5 Karşılama", 5, 10 1 50 15
button "Nick 6 Karşılama", 6, 10 108 50 15
button "Nick 7 Karşılama", 7, 65 23 50 15
button "Nick 8 Karşılama", 8, 65 40 50 15
button "Nick Karşılama", 9, 65 57 50 15
button "Nick 10 Karşılama", 10, 65 74 50 15
button "Nick 11 Karşılama", 11, 65 1 50 15
button "Nick 12 Karşılama", 12, 65 108 50 15
button "Açık", 14, 37 130 23 12
button "Kapalı", 15, 65 130 23 12
button "Tamam", 16, 37 147 51 15
}
alias greetmanager {
dialog -dm greet greet
}
on *:dialog:greet:sclick:16: {
dialog -x greet greet
}
on *:dialog:greet:sclick:14: {
set %nickgreet on
msg $active %c1 $+ 3Nick Karşılama Açık...
}
on *:dialog:greet:sclick:15: {
set %nickgreet off
msg $active %c1 $+ 4Nick Karşılama Kapalı...
}
on *:dialog:greet:sclick:1: {
set %nick#1 $input(Karşılamak istediğiniz 1. nicki girin.,e)
set %nick#1msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#1 nicki için karşılama mesajı ayarlandı: 12 %nick#1msg
}
on *:dialog:greet:sclick:2: {
set %nick#2 $input(Karşılamak istediğiniz 2. nicki girin.,e)
set %nick#2msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#2 nicki için karşılama mesajı ayarlandı: 12 %nick#2msg
}
on *:dialog:greet:sclick:3: {
set %nick#3 $input(Karşılamak istediğiniz 3. nicki girin.,e)
set %nick#3msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#3 nicki için karşılama mesajı ayarlandı: 12 %nick#3msg
}
on *:dialog:greet:sclick:4: {
set %nick#4 $input(Karşılamak istediğiniz 4. nicki girin.,e)
set %nick#4msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#4 nicki için karşılama mesajı ayarlandı: 12 %nick#4msg
}
on *:dialog:greet:sclick:5: {
set %nick#5 $input(Karşılamak istediğiniz 5. nicki girin.,e)
set %nick#5msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#5 nicki için karşılama mesajı ayarlandı: 12 %nick#5msg
}
on *:dialog:greet:sclick:6: {
set %nick#6 $input(Karşılamak istediğiniz 6. nicki girin.,e)
set %nick#6msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#6 nicki için karşılama mesajı ayarlandı: 12 %nick#6msg
}
on *:dialog:greet:sclick:7: {
set %nick#7$input(Karşılamak istediğiniz 7. nicki girin.,e)
set %nick#7sg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#7 nicki için karşılama mesajı ayarlandı: 12 %nick#7msg
}
on *:dialog:greet:sclick:8: {
set %nick#8$input(Karşılamak istediğiniz 8. nicki girin.,e)
set %nick#8sg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#8 nicki için karşılama mesajı ayarlandı: 12 %nick#8msg
}
on *:dialog:greet:sclick:9: {
set %nick#$input(Karşılamak istediğiniz 9. nicki girin.,e)
set %nick#9sg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#9 nicki için karşılama mesajı ayarlandı: 12 %nick#9msg
}
on *:dialog:greet:sclick:10: {
set %nick#10input(Karşılamak istediğiniz 10. nicki girin.,e)
set %nick#10g $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#10 nicki için karşılama mesajı ayarlandı: 12 %nick#10msg
}
on *:dialog:greet:sclick:11: {
set %nick#11 $input(Karşılamak istediğiniz 11. nicki girin.,e)
set %nick#11msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#11 nicki için karşılama mesajı ayarlandı: 12 %nick#11msg
}
on *:dialog:greet:sclick:12: {
set %nick#12 $input(Karşılamak istediğiniz 12. nicki girin.,e)
set %nick#12msg $input(Karşılama mesajınız ne olsun?,e)
echo -a 4 %nick#12 nicki için karşılama mesajı ayarlandı: 12 %nick#12msg
}
on *:JOIN:*: {
if (%nickgreet == on) && ($nick == %nick#1) {
timer 1 2 msg $chan %nick#1msg
}
if (%nickgreet == on) && ($nick == %nick#2) {
timer 1 2 msg $chan %nick#2msg
}
if (%nickgreet == on) && ($nick == %nick#3) {
timer 1 2 msg $chan %nick#3msg
}
if (%nickgreet == on) && ($nick == %nick#4) {
timer 1 2 msg $chan %nick#4msg
}
if (%nickgreet == on) && ($nick == %nick#5) {
timer 1 2 msg $chan %nick#5msg
}
if (%nickgreet == on) && ($nick == %nick#6) {
timer 1 2 msg $chan %nick#6msg
}
if (%nickgreet == on) && ($nick == %nick#7) {
timer 1 2 msg $chan %nick#7msg
}
if (%nickgreet == on) && ($nick == %nick#8) {
timer 1 2 msg $chan %nick#8msg
}
if (%nickgreet == on) && ($nick == %nick#9) {
timer 1 2 msg $chan %nick#9msg
}
if (%nickgreet == on) && ($nick == %nick#10) {
timer 1 2 msg $chan %nick#10msg
}
if (%nickgreet == on) && ($nick == %nick#11) {
timer 1 2 msg $chan %nick#11msg
}
if (%nickgreet == on) && ($nick == %nick#12) {
timer 1 2 msg $chan %nick#12msg
}
}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir