chat eczaonline.com yazılım uzmanı gaziantep web tasarım

Kick sebeblerini, atasozu olarak "webden" belirleyin.

L4roXyL

Profesyonel
Katılım
16 Eki 2011
Mesajlar
124
Beğeniler
2
#1
Yazan: L4roXyL - Hasan AYDENİZ

-

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 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(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.
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur. iyinet.com sayfalarında yer alan yazı, görsel ve linklerle ilgili hukuki şikayetleriniz için Buradan iletişime geçmeniz durumunda, ilgili kanunlar ve yönetmelikler çerçevesinde en geç 7 gün içerisinde iyinet yönetimince tarafınıza dönüş sağlanacaktır. Betcup Artemisbet Forum canlı bahis sohbet - - chat
Üst