Web puan sistemi, socklisten. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SuLh · 24 Şubat 2016, 18:13

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

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
EsOkey - Puan ve Profil sistemi	ysfm	Unreal IRCd	3	26 Mart 2015 17:14
Eggdrop Puan sistemi	Rhall	Eggdrop, NeoStats, BNC	2	28 Ocak 2013 13:03
SBS’de Puan Sistemi Değişiyor	Zen	Ödev ve Tezler	0	09 Aralık 2012 15:40
Üniversiteye girişte yeni puan sistemi	Lucifer	YGS ve LYS'ye Hazırlık	0	15 Ocak 2010 13:33

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.