Kick sebeblerini, atasozu olarak "webden" belirleyin.

[Otium]

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.

Kodlar Remote'ye yazılacak.

on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 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),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) {
    hinc -m atsz $replacecs(%s, ,•,♥,•,$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

 

[ufukcingay]

script güzel ancak bazen (0) olarak kickliyor parametrelerde sorun var sanırım

* You were kicked from #betatest by Retromaster (• ♥ Ağaçtan maşa, aptaldan (çingenden) paşa olmaz.)
-
* You were kicked from #betatest by Retromaster (0)
-
* You were kicked from #betatest by Retromaster (• ♥ Kaşıkla verip, sapıyla gözünü çıkartma.)
-
* You were kicked from #betatest by Retromaster (0)
-
* You were kicked from #betatest by Retromaster (0)
-
* You were kicked from #betatest by Retromaster (• ♥ Demir nemden insan gamdan çürür.)
-
* You were kicked from #betatest by Retromaster (0)

 

[esma_85]

müzik

[ya ben bu yeni yıl şarkısını tersten diniyemedim nasıl dinliyebilirim bana yardımcı olurmusunuz:melek

 

[dejavulife]

teşekkürler