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

Basit bir html sayfası üzerine aktardım, geliştirmek isteyen htmli süsleyebilir. Kullanılan makinadaki açılan portun yerini işaretledim. Puana yansımamasını istediğiniz kanalları ve nickleri alias üzerinden düzenleyebilirsiniz.

Socketi başlatmak için /basla yazmanız yeterli.

Kod:

alias siralama { filter -ffctu 2 12 puanlar.txt siralamalar.txt }

alias siraladik { write -c yazdir.txt | var %x = $calc($lines(siralamalar.txt) - 10),%y = $lines(siralamalar.txt) | while (%y >= %x) { write yazdir.txt $read(siralamalar.txt,%y) | dec %y }  }

alias muafk { return #opers #adwords #opersohbet #operhelp #egitim }

alias muafn { return NoMercy ChanServ NickServ OperServ ESohbet-RADYO Yarismaci Kelime Oyuncu OXM }

alias basla { enable #puan | socklisten $+(puan,$r(1,9999)) 2016 }

alias durdur { disable #puan | sockclose puan* }

#puan on

;puan sistem

on *:text:*:#: {

  if !$istok($muafk,$chan,32) && !$istok($muafn,$nick,32) {

    if !$read(puanlar.txt,w,$+($nick,$chr(12),*)) {

      write puanlar.txt $nick $+ $chr(12) $+ $calc($hget(puan,$nick) + $numtok($1-,32))

    }

    else {

      var %s $gettok($read(puanlar.txt,w,$+ $nick $+ $chr(12) $+ *),2,12)

      write -l $+ $read(puanlar.txt,w,$+ $nick $+ $chr(12) $+ *),2,12) puanlar.txt $+($nick,$chr(12),$calc($numtok($1-,32) + %s))

    }

  }

}

#puan end

on *:socklisten:puan*: { sockaccept $+(puanci,$r(1,9999)) }

on *:sockread:puanci*: {

  var %s | sockread %s | set %a sockwrite -n $sockname

  if $regex(%s,/puangoster/i) {

    siralama

    siraladik

    webolustur

    sockclose $sockname

  }

}

alias webolustur {

  %a <html><head>$&

    <title>Puan Sayfası</title></head><body bgcolor="black"><font color="white">

  var %x 1

  while (%x <= $lines(yazdir.txt)) { %a Nick: $gettok($read(yazdir.txt,%x),1,12) $+ $chr(32) $+ $str($chr(124),2) $+ $chr(32) $+ Kelime sayısı: $+ $chr(32) $gettok($read(yazdir.txt,%x),2,12) <br> | inc %x }

  %a </font></body></html>

}

Php Sayfası:

Kod:

<?php

$socket = fsockopen("192.168.1.92","2016");

if ($socket) {

$veri = "puangoster\n"; 

fwrite($socket, $veri);

while (($buffer = fgets($socket, 4096)) !== false) {

  echo $buffer;

}

fclose($socket);

  return true;

}

?>

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]