Web Puan Sistemi - ForumTEK.Net

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.

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;
}
?>

Yapımcı: SuLh

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İp Analiz Sistemi	Che	Hazır Kodlar	0	01 Mart 2019 07:57
Socket Puan Botu	Toprak	Hazır Kodlar	2	13 Temmuz 2018 13:10
Backlink Takas Sistemi Yada Link Degişim Sistemi Sizlerle	lepel	Link değişimi	1	23 Temmuz 2016 14:34
!Bomba Nick - !Kes Nick Puan Oyunu	Code	Hazır Kodlar	0	09 Nisan 2016 08:58
Puan Sistemi .ini	Feragat	Hazır Kodlar	1	25 Şubat 2015 21:33

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)