| immortaL | 10 Haziran 2016 20:02 |
Web puan sistemi, socklisten.
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 $&
Puan Sayfası
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) | inc %x }
%a
}
Php Sayfası Kod:
$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;
}
?>
|
