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

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

- - (Sock) Dosyadan satırı okutmada (https://www.ircforumlari.net/mirc-scripting-sorunlari/248096-sock-dosyadan-satiri-okutmada.html)

(Sock) Dosyadan satırı okutmada

merhaba arkadaşlar ,

PHP- Kodu:

   alias islemyap {
  var %n = $left($calc($ctime * $rand(1000,9999)),7)
  if ($hfind(kanallar,$1-,0,s).data) { .sw $sockname PRIVMSG %::chan Belirttiginiz kanal listede yok. | halt }
  .sw $sockname PRIVMSG %::chan Belirttiginiz kanal kapatilip kanal sahibine memo ile bildirildi.
}

yapmak istediğim şeyi yapabildiğim kadar yukarda anlattım:)

Bu bota başka bir kod ile kanalı ve sahibini yan yana gelecek şekilde kayıt ettirdim ve yaptirmak istedigimse islemyap alias'ını harekete geçirecek komut verildigi zaman (örnek .kapat #sohbet) bu kanalı "listede varsa" suspendleyip; yine listede yanında yazılı olan sahibine memo atması.
Bu aliasa gerekli eklemeyi yapmama yardımcı olursanız çok sevinirim.

Not : kanallar dosyasında kanalların yazılışı bu şekilde;

6641356
#istanbul Cemil
3499016
#Sohbet Murat
6463885
#izmir Gizem
1158586
#chat Ali
3824388
#Sevgi Taner

Cevap: (Sock) Dosyadan satırı okutmada

Kod:

alias islemyap {

  if $istok($read(kanallar.txt, w, * $+ $1 $+ *),$1,32) == $true { .sw $sockname cs suspend 9000 $gettok($read(kanallar.txt, w,  * $+ $1 $+ *),1,32) Sebep. | .sw $sockname privmsg memoserv send $gettok($read(kanallar.txt, w,  * $+ $1 $+ *),2,32) $gettok($read(kanallar.txt, w,  * $+ $1 $+ *),1,32) isimli kanalınız kapatılmıştır.! | halt }

  if $istok($read(kanallar.txt, w, * $+ $1 $+ *),$1,32) == $false { .sw $sockname privmsg Bilgi Verilecek Nick $1 İsminde Bir Kanal Listemde Yok }

}

$Sockname İdentifierini Algılayamıyabilir Direk Sock Adını Yazarsak Daha garanti olur.
/islemyap #kanal Şeklinde SockBotun Açık Oldugu Mircden yazıldıgı takdirde kanallar.txt de belirtilen #kanal adı var ise kanalı kapatır. ve listede yanında yazmış oldugu Nick'e memo gönderir.

Umarım işine Yarar..