IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Kick sebeblerini, atasozu olarak "webden" belirleyin.

Az önce bir kullanıcı istemişti.
Benim'de hoşuma gitti bu düşünce, zaten boş vaktim vardı. Yazdım bende.

Kod; Her kick mesajınıza, gulum.net'den random(karışık) atasözü atamaktadır.
/kick #kanal nick sebeb (Eğer sebeb girerseniz, girdiğiniz sebeb ile kanal'dan kicklenir)
Eğer sebeb girmezseniz(/kick #kanal nick) random(karışık) atasözü atıyacaktır kick mesajına.

Kod:

on *:start:atasozu | .timerslct 0 5 slct

alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80)

on *:sockopen:atsz: { 

  var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1

  sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf

}

on *:sockread:atsz: {

  $iif($hget(atsz),hfree atsz) | var %s | sockread %s 

  if ($regex($gettok(%s,1,32),^&nbsp;$) && !$regex(%s,http) && $gettok(%s,3,32)) {

    hinc -m atsz $replacecs(%s,&nbsp;,•,$+($chr(38),#9829,$chr(59)),•,$chr(32),½) 1

    if ($hget(atsz,0).item == $r(1,10)) sockclose atsz 

  }

}

alias slct { var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32)) }

alias kick { kick $1 $2 $iif($3,$3-,%&) | atasozu }

İşinize yarar.