Paylaşımın Ve Sohbetin Tek Adresine HoşGeldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Web Puan Sistemi

  • Konbuyu başlatan Che
  • Başlangıç tarihi
  • Okuma süresi: 0:49

Che

uye
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
1
Cinsiyet
Erkek

İtibar Puanı:

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  T-Bot ChanServ NickServ OperServ Radyo AyNet-Kaos Aynet-Kelime Aynet-OXM }
alias basla { enable #puan | socklisten $+(puan,$r(1,9999)) 6667 }
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>
}




Kod:
<?php 
$socket = fsockopen("206.41.117.27","6667"); 
if ($socket) { 
$veri = "puangoster\n";  
fwrite($socket, $veri); 
while (($buffer = fgets($socket, 4096)) !== false) { 
  echo $buffer; 
} 
fclose($socket); 
  return true; 
} 
?>



Socketi başlatmak için /basla yazmanız yeterli.
 
Tüm sayfalar yüklendi.

Konuyu Görüntüleyen Kullanıcılar (Toplam:0)

Benzer konular Forum Tarih
Erroneous Hazır ve Mini Kodlar 0 300

Benzer konular