Web Puan Sistemi
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...]
Yapımcı: SuLh |
