05 Haziran 2016, 13:59
|
#1 |
| Çevrimdışı | 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: Kodu kopyalamak için üzerine çift tıklayın! 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: Kodu kopyalamak için üzerine çift tıklayın! <?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;
}
?>
Yapımcı: SuLh
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: Kodu kopyalamak için üzerine çift tıklayın! 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: Kodu kopyalamak için üzerine çift tıklayın! <?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;
}
?>
Yapımcı: SuLh |
|
|  |
| IRCForumu.Net - Reklam Alanı |
| |
Benzer Konular 
Normal
