Code
15 Mart 2016, 22:16
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.
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ı:
<?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;
}
?>
[Only Registered Users Can See Links]
Yapımcı: SuLh
Socketi başlatmak için /basla yazmanız yeterli.
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ı:
<?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;
}
?>
[Only Registered Users Can See Links]
Yapımcı: SuLh