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

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

- - !soz nick (https://www.ircforumlari.net/mirc-scripting-sorunlari/388655-soz-nick.html)

Merhaba,

Komut: !soz nick
Mesaj: Nick mesaj

Örnek: !soz aslı
Mesaj: Aslı, güldür güldür, değdir büldür belki birgün ölür.

+

Kanalda konusanlara normal puanlama sistemide ihtiyacim vardir. Kisiler puanlarını;
!puan seklinde görebilcekler.

Teşekkürler şimdiden.

Cevap: !soz nick

on *:text:!soz*:#: {
msg # 0,4 $+ $upper($+ • $+ $nick $+ • $+ ) $+ 9,1 Güzel söz isteginiz4:1 $read(soz.txt) }

Osman, işini görür belki ;))

Cevap: !soz nick

Kod:

;Edit #kanal belirtiniz.

;Herhangi bir belge oluşturmanıza gerek yoktur.

;Kod dizini kaynak siteden otomatik olarak söz seçecektir.

on $*:text:/[!]soz\s(\S+)/ASi:#kanal:{

  if $sock(Mark,1).status == active { notice $nick Kaynak yapma!Sıranı bekle. } 

  else { set %sozchan.nick # $regml(1) | soz }

}

alias soz {

  sockopen Mark anlamliguzelsozler.com 80

  sockmark Mark msg %sozchan.nick

}

on *:sockopen:Mark:{

  var %dify = sockwrite -n $sockname

  %dify GET / HTTP/1.1

  %dify Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:Mark:{

  if $sockerr { $sock(Mark).mark $sock(Mark).wsmsg | halt }

  else {

    var %Mark | sockread %Mark

    if $regex(%Mark,/<font color="#FF\d+"><strong>(.+)<\/strong><\/font>/i) { 

      $sock(Mark).mark $qt($regml(1)) | sockclose Mark 

    }

  }

}

Puanlama sistemi hakkında : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: !soz nick

Cenk, Usta !soz Aslı diyelim 1 nick 1 dakika içinde 1 defa komut uygulayabilsin mümkünmüdür.