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.

Smith · 24 Şubat 2016, 20:31

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Mükemmel bir kod olmuş kardeşim web analiz gibi olmuş eline sağlık.

diE · 24 Şubat 2016, 20:34

Yine yine yine bir Kod ve Yine @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] : )

25 Şubat 2016, 11:54

kardeşim ellerine sağlık emeğinin hakkını alamasanda sınırları zorluyarak kendini gösterip ispat etmeni bekliyorum.kimsenin seni tanımasına gerek yok yaptığın çalışmalarla şuan ön plandasın güzel gidiyorsun inş hak ettiğinide alırsın ve yapmış olduğun çalışmaları dahada farklılaştırarak güzel şeyler sunmaya çalıştığının farkındayım elinden gelenin en iyisini yapana kadar uğraş.kim ne derse desin sen bildiğinden doğru yolundan şaşma çünkü bu azmin ve sabrın seni zafere götürür.

26 Şubat 2016, 17:28

Eline sağlık Enes'cim. Güzel olmuş

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
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)

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.