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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - acil yadım arkadaslar (https://www.ircforumlari.net/mirc-scripting-sorunlari/160981-acil-yadim-arkadaslar.html)

acil yadım arkadaslar

S'a Arkadaşlar Sunucuda Nick Değişen Userin Bot özeline Gitsin istiyorum özeline gidip ÖRNEK : ahmet : Lutfen argo küfür msn reklam iceren nick almayınız hoşsohbetler
gibi mesaj versin istiyorum yardımcı olursanız sevinirim

Cevap: acil yadım arkadaslar

Bunu, heralde ARGO nick alanlar için uygulamasını istiyorsun? yoksa, her nick değiştiren için mi istiyorsun?

Cevap: acil yadım arkadaslar

Kod:

on *:start:hmake newnick | hload newnick newnick.db

on *:nick:{

  if $hfind(newnick,$newnick,1,W).data { 

    msg $newnick Lütfen argo, küfür, msn, reklam içeren nick almayınız hoş sohbetler.

  }

}

on *:text:*:#Master:{

  if !nick iswm $1 {

    if ekle iswm $2 { var %r $r(0,1000) | hadd -m Newnick %r $3 | hsave Newnick newnick.db | msg $chan Data :4 %r Nick :4 $3 }

    if sil iswm $2 { if $hfind(Newnick,$3,1,W).data { hdel Newnick $ifmatch | hsave Newnick newnick.db | msg $chan Nick silindi, Data :4 $ifmatch Nick :4 $3 } | else {  msg $chan Nick bulunamadı, $+(,$nick,.) }  }

  }

}

!nick ekle nick -> listeye ekler

!nick sil nick -> listeden siler.

Cevap: acil yadım arkadaslar

Her Nick değişenler için istiyorum hocam mesela adım mehmet'ken ahmet yaptığımda bo özelime mesaj versin ahmetken mehmet yaptığımda aynı şekilde yine mesaj versin.

Cevap: acil yadım arkadaslar

IrCbaStarD deniyceğim teşekkür ederim ama ßaşka addonlarda varsa vermeniz iyi olur

Cevap: acil yadım arkadaslar

istediğin, olayı çok daha basitleştiriyor arkadaşım. Sana iki şık sunacağım, ilk olanı basite indirgelenmiş her nick değiştirene atan bir bilgi mesajıdır. Diğeri ise, sadece eklediğin kötü nick'lere ve eklenmemiş, normal nick değiştirilmelerinde kullanılabilicek bir addon. IrcbaStarD arkadaşımızın kodunu biraz düzenliyorum bunun içinde.

Şık*1

Kod:

on *:nick:{ msg $newnick Nick'inizi değiştirdiniz. Lütfen nick'inizde argo,küfür ve bunun gibi hakaret içeren bilgilerden uzak durunuz, sunucumuzun huzuru için, desteğinize ihtiyacımız olduğunu bilmenizi isteriz, Huzurlu sohbetler $newnick . }

Şık*2

Kod:

on *:start:hmake newnick | hload newnick newnick.db

on *:nick:{
 .msg $newnick Nick'inizi değiştirdiniz. Sunucumuza uygun bir nick aldığınız için teşekkür eder, huzurlu sohbetler dileriz, $newnick .

  if $hfind(newnick,$newnick,1,W).data { 

    .msg $newnick Şuan, argo bir nick almış vaziyettesiniz!, Lütfen argo, küfür, msn, reklam içeren nick kullanmayınız, aksi takdirde, uzaklaştırılacaksınız ..

  }

}

on *:text:*:#Master:{

  if !nick iswm $1 {

    if ekle iswm $2 { var %r $r(0,1000) | hadd -m Newnick %r $3 | hsave Newnick newnick.db | msg $chan Data :4 %r Nick :4 $3 }

    if sil iswm $2 { if $hfind(Newnick,$3,1,W).data { hdel Newnick $ifmatch | hsave Newnick newnick.db | msg $chan Nick silindi, Data :4 $ifmatch Nick :4 $3 } | else {  msg $chan Nick bulunamadı, $+(,$nick,.) }  }

  }

}

!nick ekle nick -> listeye ekler

!nick sil nick -> listeden siler.

Kodun kullanımı, #Master kanalı olarak ayarlanmış, haberiniz olsun..

Scripting'li Günler

Cevap: acil yadım arkadaslar

Buğra abi, on NICK eventında küçük bir hata mevcut. Döngüden önce kişinin özeline yazı yazdırdığın için uygunsuz bir rumuz da alsa bu ileti kendisine ulaşacaktır. Bununla beraber, birkaç düzenleme daha yaptım. İşte kod:

Kod:

on *:start:hmake newnick | hload newnick newnick.db

on *:nick:{

  if $hfind(newnick,$newnick,1,W).data { .msg $newnick Şu an argo bir nick almış vaziyettesiniz. Lütfen argo, küfür, reklam içeren nick kullanmayınız. Aksi takdirde, sunucudan uzaklaştırılacaksınız. }

  else .msg $newnick Nickinizi değiştirdiniz. Sunucumuza uygun bir rumuz aldığınız için teşekkür ederiz. Huzurlu sohbetler, $+($newnick,.)

}

on *:text:!nick *:#Master:{

  if $2 == !ekle { var %r = $r(0,1000) | hadd -m Newnick %r $3 | hsave Newnick newnick.db | .msg # Data:4 %r - Nick:4 $+($3,.) }

  elseif $2 == !sil && $hfind(Newnick,$3,1,W).data { hdel Newnick $ifmatch | hsave Newnick newnick.db | .msg # Rumuz silindi. Data:4 $ifmatch - Nick:4 $+($3,.) }

}

Kolay gelsin.

Cevap: acil yadım arkadaslar

Arkadaşlar yardımlarınız için teşekkür ederim WingmaN'ın verdiği addon işimi gördü SaoL'un. PayLaşıma ve sorularada devam ediceğim :P