10 Haziran 2016, 20:02
|
#1 |
| Çevrimdışı | 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: 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;
}
?>
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;
}
?>
|
|
|  |
| IRCForumu.Net - Reklam Alanı |
| |
Benzer Konular 
Normal
