lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting Hazır Kodlar


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 15 Mart 2016, 22:16   #1
 
Code - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 01 Mart 2015
Mesajlar: 203
WEB Sitesi: www.code.com
IRC Sunucusu: irc.code.com
İlgi Alanı:
Alınan Beğeni: 33
Standart Web Puan Sistemi

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
 Code isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
puan, sistemi, web


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
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
Komut Sistemi Code Hazır Kodlar 0 15 Mart 2016 22:26
Puan Sistemi .ini Feragat Hazır Kodlar 1 25 Şubat 2015 21:33

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.