Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 2,478
» Son Üye: Serkendiz
» Toplam Konular: 4,655
» Toplam Yorumlar: 9,085

Detaylı İstatistikler

Kimler Çevrimiçi
Toplam: 60 kullanıcı aktif
» 0 Kayıtlı
» 59 Ziyaretçi
Google

Son Aktiviteler
Numozzo Kadın Elbiseler
Forum: Web Site Tanıtımı
Son Yorum: benaykut
, 09:56 PM
» Yorumlar: 0
» Okunma: 14
RoyalPlatinumStore.com il...
Forum: Web Site Tanıtımı
Son Yorum: nullsix
, 04:09 PM
» Yorumlar: 0
» Okunma: 10
Bovbet
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:55 PM
» Yorumlar: 0
» Okunma: 12
Sovabet
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:43 PM
» Yorumlar: 0
» Okunma: 13
Enfesbet
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:10 PM
» Yorumlar: 0
» Okunma: 12
Basbahis
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 01:45 PM
» Yorumlar: 0
» Okunma: 15
Galatabahis
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 01:32 PM
» Yorumlar: 0
» Okunma: 12
Sbetin
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 01:12 PM
» Yorumlar: 0
» Okunma: 13
Casifame
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 12:49 PM
» Yorumlar: 0
» Okunma: 16
Casinodünya
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 12:21 PM
» Yorumlar: 0
» Okunma: 17

 
  Lamer Sohbet Teması
Yazar: Lamer - 02-23-2020, 08:32 PM - Forum: Wordpress Temaları - Yorumlar (1)

Lamer Sohbet Teması indir
Selam irc lamer forum ailesi bu gün sizlere görseli güzel vede en önemlisi seo acısından çok güzel bir  Sohbet teması sunu yorum Güle Güle kulanın.Kuramıyan arkadaşlarımız olursa yorum yazarak aldıkları hatayı belirtmeleri yeterli olur.Bizde Lamerler ekibi olarak siz değerli üyelerimize elimizden gelen desteği sunacaz.İyi Forumlar
7Q88Gr.png
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!

Bu konuyu yazdır

Heart GatherProxy Program Proxy Sock4 Sock5 LİSTE ÇEK
Yazar: Admin - 02-23-2020, 12:47 PM - Forum: GÜNCEL PROXY SOCK4 SOCK5 LİSTESİ - Yorumlar (2)

Cumleten Merhabalar arkadaşlar Bügun Size  GatherProxy GÜNCEL ( Proxy Sock4 Sock5 ) İp Listeleri Çekme Programını anlatıcam hem yazılı hem resimli şekilde 

Öncelikle Şunu Belirteyim bu Program sadece Proxy dil ( Proxy Sock4 Sock4 ) Hepsini  Çekebilirsiniz Bu programla ben genelde proxy cektim için proxy olarak ayarlı bu program ama siz Sock4 Sock5 çekmek isterseniz şu şekilde çekeceksiniz EXPORT BÖLÜMÜNE GELİN

Daha Sonra orada göreceksiniz zaten ( Proxy Sock4 Sock5 ) işaretliyeceksiniz Sonra Tekrar Başa gelip GatherProxy.com socks only

seçiniz Bu degiştirme bölümüydü tekrar proxy geçmek için ise tekrar EXPORT BÖLÜMÜNE GELİP PROXY SEÇİMİ YAPCAKSINIZ

Baştada İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir! işaretleyip ProxyLİSTENİZİ Çekeceksiniz Güncel  

NOT : İP LİSTENİZ GELDİGİ ZAMAN UFAK Bİ UYARI GELCEK GATHER PROXY HAS COMPLETED ŞEKLİNDE GELDİ ZAMAN PROXY LİSTENİZ GELMİŞ DEMEKTİR Masa ustune çekme için sag tıkla EXPORT All tıkla

DGkV9m.png

gbLzyN.png

GÜNCEL ( Proxy Sock4 Sock5 ) ÇEKER 2020 en taze paylaşım sitesi LAMERLER.COM ANLATIMI ANLAMAYAN OLURSA KONU ALTINA YAZABİLİRSİNİZ
YARDIMCI OLURUM BU TÜR KONULARIN DEVAMI GELECEKTİR HEP GÜNCEL PROGRAMLAR PAYLAŞILCAK TAKİPTE KALINIZ  LAMERLER.COM FORUM ÜYELERİMİZE ÖZEL PAYLAŞIMLAR ..

İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!

Bu konuyu yazdır

  Eggdrop Botların Kurulumu Nasıl Yapılır
Yazar: Admin - 02-23-2020, 09:58 AM - Forum: Eggdrop, NeoStats, BNC ,TCL ,IRCd Botlar - Yorum Yok

Eggdrop Botların Kurulumu Nasıl Yapılır



Sunucumuza eggdrop kurulumunu gayet açık ve net bir şekilde aşağıdan sırasıyla uygulayarak kurabilirsiniz.



Kurulum:



Öncelik olarak Putty veyahut hangi SSh programını kullanıyor iseniz SSh login olalım ve daha sonra aşağıdaki komutları sırasıyla uygulayalım.








Kod:
wget http://ftp.eggheads.org/pub/eggdrop/source/1.6/eggdrop1.6.18.tar.gz

tar -zxvf eggdrop1.6.18.tar.gz

cd eggdrop1.6.18

./configure

make config

make

make install




Eggdrop’umuz sorunsuz olarak kurulmuştur.

Bu konuyu yazdır

Heart Eggdrop Botları Hızlandırmak
Yazar: Admin - 02-23-2020, 09:51 AM - Forum: Eggdrop, NeoStats, BNC ,TCL ,IRCd Botlar - Yorum Yok

Eggdrop Botları Nasıl Hızlandırılır !

Merhaba arkadaşlar. Bu makelemizde Eggdrop son versiyonlarının hızlı çalışması için işlem uygulayacağız.
İlk önce FTP Giriş yapıyoruz.

Daha sonra eggdrop1.6.21/src/mod/server.mod bu yolu izlediğimizde server.c dosyasına ulaşıyoruz.

Dosya’yı masa üstümüze alıp Notepad ile düzenlemeye alıyoruz.

CTRL – F yaparak arama yerine giriyoruz ve msgrate aratıyoruz 4 defa.

Karşımıza msgrate=2; bu satır geliyor. 2 rakamını 0 olarak değişiyoruz ve kayıt ediyoruz dosyamızı.

Aldığımız dizine dosyamızı geri atıyoruz.
Daha sonra Putty’den SSh login oluyoruz ve aşağıdaki komutları sırasıyla uyguluyoruz.



Kod:
cd
cd eggdrop1.6.21
make clean
./configure
make config
make
make install

Komutlarını uygulayıp işlemi sonlandırıyoruz. En son olarak botu sunucudan kill’leyip tekrar aktif ediniz.

Bu konuyu yazdır

  Bölüm Kuralları
Yazar: Admin - 02-23-2020, 09:42 AM - Forum: Eggdrop, NeoStats, BNC ,TCL ,IRCd Botlar - Yorum Yok

Saygıdeğer LAMERLER.COM Kullanıcıları;

"Eggdrop - Bot - BNC ve ZNC" bölümüne ileti ekleyecek kullanicilar'in dikkatine!

  • Konu acarken kullanacağınız konu başlığı ve mesajın içeriğine dikkat ediniz ve kurallara uygun olarak şablon oluşturunuz.
  • Diğer Başlıkları eleştirirken tatlı dil kullanınız, saygı cervecesi icinde görüslerinizi bildirebilirsiniz.
  • Bu bölüme "Eggdrop - Bot - BNC ve ZNC" konusu haricindeki gelişmeleri yazmayiniz.
  • Polemik yaraticak başlıklar'dan lütfen kacininiz, unutmayin hepimiz ayni amac için çalışıyoruz.
Not: Kendinize nasil davranilmasini istiyorsaniz, lütfen başkalarınada o şekilde davraniniz..

Bilgi: Kurallarimiz açık ve nettir, uymayan arkadaşlarımıza gereklı işlemler yapılacaktır.

  LAMERLER.COM Yönetim Adına.

Bu konuyu yazdır

  Bölüm Kuralları
Yazar: Admin - 02-23-2020, 09:35 AM - Forum: İRCD KORUMA BOTLARI - Yorum Yok

Saygıdeğer LAMERLER.COM Kullanıcıları;

"IRCd Botlar" bölümüne ileti ekleyecek kullanicilar'in dikkatine!

  • Konu acarken kullanacağınız konu başlığı ve mesajın içeriğine dikkat ediniz ve kurallara uygun olarak şablon oluşturunuz.
  • Diğer Başlıkları eleştirirken tatlı dil kullanınız, saygı cervecesi icinde görüslerinizi bildirebilirsiniz.
  • Bu bölüme "IRCd Botlar" konusu haricindeki gelişmeleri yazmayiniz.
  • Polemik yaraticak başlıklar'dan lütfen kacininiz, unutmayin hepimiz ayni amac için çalışıyoruz.
Not: Kendinize nasil davranilmasini istiyorsaniz, lütfen başkalarınada o şekilde davraniniz..

Bilgi: Kurallarimiz açık ve nettir, uymayan arkadaşlarımıza gereklı işlemler yapılacaktır.

LAMERLER.COM Yönetim Adına.

Bu konuyu yazdır

  Bölüm Kuralları
Yazar: Admin - 02-23-2020, 09:33 AM - Forum: TCL Scriptler - Yorum Yok

Saygıdeğer LAMERLER.COM Kullanıcıları;

"TCL Scriptler" bölümüne ileti ekleyecek kullanicilar'in dikkatine!

  • Konu acarken kullanacağınız konu başlığı ve mesajın içeriğine dikkat ediniz ve kurallara uygun olarak şablon oluşturunuz.
  • Diğer Başlıkları eleştirirken tatlı dil kullanınız, saygı cervecesi icinde görüslerinizi bildirebilirsiniz.
  • Bu bölüme "TCL Scriptler" konusu haricindeki gelişmeleri yazmayiniz.
  • Polemik yaraticak başlıklar'dan lütfen kacininiz, unutmayin hepimiz ayni amac için çalışıyoruz.
Not: Kendinize nasil davranilmasini istiyorsaniz, lütfen başkalarınada o şekilde davraniniz..

Bilgi: Kurallarimiz açık ve nettir, uymayan arkadaşlarımıza gereklı işlemler yapılacaktır.

  LAMERLER.COM Yönetim Adına.

Bu konuyu yazdır

Heart Rus Ruleti Oyun TCL
Yazar: Admin - 02-23-2020, 09:31 AM - Forum: TCL Scriptler - Yorum Yok

Rus Ruleti Oyun TCL

Kod:
###Rus Ruleti TCL
#istek ve önerileriniz için açığım. TCL Hakkında herhangi bir fikriniz var ise benimle irtibata geçiniz. DESTEK@LAMERLER.COM


#list lucky comments
set pull {
    "hizlica tetigi ceker..."
    "titreyerek elini tetige goturur ve silayi yavasca sakagina dayar...."
    "tetigi cekerken, yuzunde soguk ve sakin gulumseme belirir...."
    "tabancayi agzina sokar...."
    "tabancayi kaslarinin arasina yerlestirir ve sessizce dua eder..."
    "yavasca silahi kaldirir ve cenesinin altina sabitler...."
}

set lucky_msg {
    "...klik......Oops..bu silahi doldurmayi mi unuttum ?"
    ".....klik....Bu sansin daha fazla surmeyecek hahaha"
    ".klik........Gelecek sefere kursun ile bir randevun olacak hahaha"
    ".klik....... Seni sansli budala"
    "......klik....Sanslisin o kursun calismadi...Ping silaha yeni kursun doldurur"
    "....klik.....Bahse varim sen lotoda da bu kadar sansliydin"
    "....klik......Cevir ya da ates et umursamiyorum, eger kazanirsan seni kendi ellerimle oldururum"
    ".....klik.....iyi oldugunu saniyorsun.....birdahaki sefere karsina cikmaya curet ediyorum"
    "....klik......Eger senin gibi bi kafam olsaydi kaybedene kadar devam ederdim"
    ".....klik......Boyle cirkin biri nasil bu kadar sansli olabilir"
}

#set vars
set player1 ""
set player2 ""
set curplayer ""
set notcurplayer ""
set timeout_timer 0
set started 0
set turns 0
set bullit [rand 5]
#file you want scores to be written
set scorefile "roulette.txt"
set kill_count 0
set last_warn ""

#binds
bind pub - !cevir spin:gun
bind pub - !vur shoot:gun
bind pub - !rulet challenge:player
bind pub - !tekrar reply:player
bind pub - !kabul accept
bind pub - !tavuk chicken
bind pub - !skor show_player_score
bind pub - !skorlar showall


proc accept {nick host handle chan arg} {
    global rrstarttimer
            if {[utimerexists started]!=""} {killutimer $rrstarttimer}
    reply:player $nick $host $handle $chan "accept"
}

proc chicken {nick host handle chan arg} {
    reply:player $nick $host $handle $chan "chicken"
}

#proc to get somebody ro play with you
proc challenge:player {nick host handle chan arg} {
    global botnick player1 player2 started timeout_timer kill_count last_warn notcurplayer
    global rrstarttimer rrchannel
        if {$player1 != ""} {
            puthelp "PRIVMSG $chan :Kusura bakma $player1 zaten $player2 'a meydan okundu"
            return 0
        }
        if {![onchan $arg $chan]} {
            if {$nick == $last_warn} {
                puthelp "PRIVMSG $chan :Simdi beni rahatsiz etmeye basladin, seni vurmam gerek."
                kill $nick $chan
                return 0
            }
            puthelp "PRIVMSG $chan :Kusura bakma ama bu kanalda $arg diye birini bulamiyorum. ismini dogru aldigina emin misin?"
            puthelp "PRIVMSG $chan :Eger bunu tekrar yaparsan seni vururum."
            set last_warn $nick
            return 0
        }       
        if {$arg == ""} {
            puthelp "PRIVMSG $chan :Oyunu baslatmak icin !rulet <nick> komutunu yap"
            return 0
        }
        if {$started == 1} {
            puthelp "PRIVMSG $chan :Oyun zaten devam ediyor"
            return 0
        }
        if {$arg == $botnick} {
            puthelp "PRIVMSG $chan :Meydan okuma kabul edildi"
            puthelp "PRIVMSG $chan :RRRRRRRRRrrrrrrrr....."
            kill $nick $chan
            return 0
        }           
        set player1 $nick
        set player2 $arg
        set rrchannel $chan
        set timeout_timer 1
        utimer 20
[list timeout $chan ]
        set rrstarttimer [utimer 50 started]
        putquick "NOTICE $player2 :$nick Rus Ruleti oynamaniz icin size meydan okuyor."
        putquick "NOTICE $player1 :Meydan okuma $player2 a gonderildi"
        putquick "NOTICE $player2 :kabul etmek icin !kabul, korkup kacmak icin !tavuk"
        return 0
}

proc reply:player {nick host handle chan arg} {
    global botnick player1 player2 turns started curplayer timeout_timer notcurplayer
    global rrstarttimer rrchan
        if {$player1 == ""} {
            puthelp "NOTICE $nick :Henuz size meydan okuyan cikmadi"
            puthelp "NOTICE $nick :Birine meydan okumak icin !rulet <nick> yap"
            return 0
        }
        if {$nick != $player2} {
            puthelp "NOTICE $nick :Bu senin cagrin degil. $player1 $player2 ye meydan okudu"
            return 0
        }
        if {$arg == ""} {
            puthelp "NOTICE $nick :kabul etmek icin !kabul, redetmek icin !tavuk"
            return 0
        }
        if {$started == 1} {
            puthelp "PRIVMSG $chan :Oyun zaten devam ediyor"
            return 0
        }         
        if {$arg == "chicken"} {
            puthelp "PRIVMSG $chan :$nick korktu. $player2 sen odlegin birisin."
            set player1 ""
            set player2 ""
            return 0
        }
        if {$arg == "accept"} {
            set curplayer $player1
            set notcurplayer $player2
            set rrchan $chan
            putserv "notice $player1 :$nick meydan okumani kabul etti."
            putserv "notice $player1 :$curplayer once basliyor. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir"
            putserv "notice $player2 :$curplayer once basliyor. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir"
            incr_stats $curplayer "" "" "" "" ""
            incr_stats $notcurplayer "" "" "" "" ""
            set started 1
            set timeout_timer 0
            return 0
        }
}

proc spin:gun {nick host handle chan arg} {
    global botnick player1 player2 turns started bullit curplayer
    if {$nick != $curplayer} {
        puthelp "PRIVMSG $chan :Hey sahtekarlik yok, senin siran degil."
        return 0
    }
    if {$started == 0} {
        puthelp "PRIVMSG $chan :Oyun devam etmiyor. Oynamak icin !rulet <nick>"
        return 0
    }
    set bullit [rand 5]
    puthelp "PRIVMSG $chan :$curplayer tabancayi cevirir.....RRRRRRRRRrrrrrrrrre..."
    incr_stats $curplayer "" "" "" "+ 1" ""
    shoot:gun $nick $host $handle $chan $started
    return 0
}

proc shoot:gun {nick host handle chan arg} {
    global botnick player1 player2 turns curplayer started bullit lucky_msg pull notcurplayer playerstat
    if {$started == 0} {
        puthelp "PRIVMSG $chan :Oyun devam etmiyor. Oynamak icin !rulet <nick>"
        return 0
    }
    if {$nick != $curplayer} {
        puthelp "PRIVMSG $chan :Hey sahtekarlik yok, senin siran degil."
        return 0
    }
    set checknr1 [rand [llength $pull]]
    set temp_pull $pull
    set temp_pull [lindex $temp_pull $checknr1]
    puthelp "PRIVMSG $chan :$nick $temp_pull"
    incr_stats $curplayer "" "" "+ 1" "" ""
    #check if bullit is on position 0 if it is then your dead
    if {$bullit != 0} {
        #if not then set bullit - 1 like in a real fun
        set bullit [expr $bullit - 1]
        #increase turns taken for stats
        set turns [expr $turns + 1]
        #insert random msg
            set checknr [rand [llength $lucky_msg]]
            set temp_lol $lucky_msg
            set temp_lol [lindex $temp_lol $checknr]
            puthelp "PRIVMSG $chan :$temp_lol"
         #switch playsers so nobody can before there turn
        if {$curplayer == $player1} {
            set curplayer $player2
            set notcurplayer $player1
            } else {
                set curplayer $player1
                set notcurplayer $player2
                }
                puthelp "notice $curplayer :Senin siran !vur ya da  !cevir"
                puthelp "notice $notcurplayer :$curplayer'nin sirasi"
        return 0
    #if bullit was on position 0 kick loser from chan and reset all used variables
    } else {
        incr_stats $curplayer "" "+ 1" "" "" "+ 1"
        incr_stats $notcurplayer "+ 1" "" "" "" "+ 1"
        show_score $notcurplayer
        putlog "$playerstat"
        puthelp "KICK $chan $curplayer :\002 \00304 *BANG*!! Sen bir Olusun!! Kazanan $playerstat"
        puthelp "PRIVMSG $chan :\002 \00312Oynamak icin -> !rulet <nick> , skorlar icin -> !skorlar nick , skor sorgulamak icin ->!skor <nick>"
        set player1 ""
        set player2 ""
        set curplayer ""
        set bullit [rand 5]
        set started 0
        return 0
    }
}

proc kill {nick chan} {
    global botnick
    set bullit [rand 5]
    for {set x 1} {$x < $bullit} {incr x} {
        puthelp "PRIVMSG $chan :klik..."
    }
    puthelp "PRIVMSG $chan :...BANG!!! Kaybettin! "
    puthelp "KICK $chan $nick : Evet kral hala benim =p"
    return 0
}

proc timeout { chan } {
    global botnick player1 player2 turns curplayer started bullit lucky_msg pull timeout_timer
    if {$timeout_timer == 1} {
        puthelp "PRIVMSG $chan : $player2 muhtemelen tavuk gibi korktu"
        set player1 ""
        set player2 ""
        set curplayer ""
        set bullit [rand 5]
        set timeout_timer 0
        set started 0
        return 0
    }
}

proc get_scores {} {
global botnick scorefile rrscoresbyname rrscorestotal rrscores rrranksbyname rrranksbynum
if {[file exists $scorefile]&&[file size $scorefile]>2} {
  set _sfile [open $scorefile r]
  set rrscores [lsort -dict -decreasing [split [gets $_sfile] " "]]
  close $_sfile
  set rrscorestotal [llength $rrscores]
} else {
  set rrscores ""
  set rrscorestotal 0
}
    if {[info exists rrscoresbyname]} {unset rrscoresbyname}
        if {[info exists rrranksbyname]} {unset rrranksbyname}
            if {[info exists rrranksbynum]} {unset rrranksbynum}       
set i 0
while {$i<[llength $rrscores]} {
  set _item [lindex $rrscores $i]
            set _nick [lindex [split $_item ,] 5]
            set _win [lindex [split $_item ,] 0]
            set _lost [lindex [split $_item ,] 1]
            set _shots [lindex [split $_item ,] 2]
            set _spins [lindex [split $_item ,] 3]
            set _played [lindex [split $_item ,] 4]
  set rrscoresbyname($_nick) $_win
  set rrranksbyname($_nick) [expr $i+1],$_win
  set rrranksbynum([expr $i+1]) $_nick,$_win
  incr i
}
return
}
proc incr_stats {who win loss shots spins played} {
    global botnick scorefile rrscoresbyname rrscorestotal rrscores rrranksbyname rrranksbynum
    set who [lindex [split $who "|"] 0]
    set who [lindex [split $who "_"] 0]
    get_scores
    if {$rrscorestotal>0} {
        set i 0
        if {[lsearch $rrscores "*,*,*,*,*,$who"]==-1} {
            append _newscores "0,0,0,0,0,$who "
        }
        while {$i<[expr [llength $rrscores] - 1]} {
            set _item [lindex $rrscores $i]
            set _nick [lindex [split $_item ,] 5]
            set _win [lindex [split $_item ,] 0]
            set _lost [lindex [split $_item ,] 1]
            set _shots [lindex [split $_item ,] 2]
            set _spins [lindex [split $_item ,] 3]
            set _played [lindex [split $_item ,] 4]
            if {[strlwr $who]==[strlwr $_nick]} {
                append _newscores "[expr $_win $win],[expr $_lost $loss],[expr $_shots $shots],[expr $_spins $spins],[expr $_played $played],$_nick "
            } else {
                append _newscores "$_win,$_lost,$_shots,$_spins,$_played,$_nick "
            }
            incr i
        }
    } else {
        append _newscores "0,0,0,0,0,$who "
    }
    set _sfile [open $scorefile w]
    puts $_sfile "$_newscores" 
    close $_sfile
    return 0
}

proc show_score {text} {
    global rrscoresbyname rrscores playerstat
    get_scores
    set idx [lsearch -glob $rrscores "*,*,*,*,*,$text"]
    putlog "[lindex $rrscores $idx]"
    set _item [lindex $rrscores $idx]
    set _nick [lindex [split $_item ,] 5]
    set _win [lindex [split $_item ,] 0]
    set _lost [lindex [split $_item ,] 1]
    set _shots [lindex [split $_item ,] 2]
    set _played [lindex [split $_item ,] 4]
    set playerstat "$_nick \00307oynanan $_played oyun, \00309kazanilan $_win, \00304kaybedilen $_lost, \00313hedefe $_shots atis"
    return
}

proc showall {nick uhost handle chan arg} {
    global botnick scorefile rrscoresbyname rrscorestotal rrscores rrranksbyname rrranksbynum
    get_scores
    set totallength 16
    if {$rrscorestotal>0} {
        putquick "PRIVMSG $nick :\00304*****************Rulet Skor**********************"
        putquick "PRIVMSG $nick :\00304**| NickName        | Toplam |  Kazanılan  | Kayıp | Atışlar \00304|**"
        putquick "PRIVMSG $nick :\00304**|-----------------|-------|-------|------|-------|**"
        set i 0
        while {$i<[expr [llength $rrscores] - 1]} {
            set checked 0
            set _item [lindex $rrscores $i]
            set _nick [lindex [split $_item ,] 5]
            set _win [lindex [split $_item ,] 0]
            if {$_win < 10} {
                set _win "   $_win   "
                } elseif {$_win < 100} {
                    set _win "   $_win  "
                    }
            set _lost [lindex [split $_item ,] 1]
            if {$_lost < 10} {
                set _lost "   $_lost  "
                } elseif {$_lost < 100} {
                    set _lost "  $_lost  "
                    }
            set _shots [lindex [split $_item ,] 2]
            if {$_shots < 10} {
                set _shots "   $_shots   "
                } elseif {$_shots < 100} {
                    set _shots "   $_shots  "
                    }
            set _played [lindex [split $_item ,] 4]
            if {$_played < 10} {
                set _played "   $_played   "
                } elseif {$_played < 100} {
                    set _played "   $_played  "
                    }
            set checknick [split $_nick ""]
            set who [lindex [split $nick "|"] 0]
            set who [lindex [split $who "_"] 0]
            if {[string tolower $who] == [string tolower $_nick]} {set checked 1}
            set long [llength $checknick]
            set spaces ""
            for {set i2 $long} {$i2 < $totallength} {incr i2} {
                append spaces " "
            }
            if {$checked == 1} {
                putquick "PRIVMSG $nick :\00304**| \00312$_nick$spaces\00304|\00312$_played\00304|\00312$_win\00304|\00312$_lost\00304|\00312$_shots\00304|**"
            } else {
                putquick "PRIVMSG $nick :\00304**| \00310$_nick$spaces\00304|\00310$_played\00304|\00310$_win\00304|\00310$_lost\00304|\00310$_shots\00304|**"
            }
            incr i
        }
        putquick "PRIVMSG $nick :\00304********************Liste Sonu**********************"
    }
    return 0
}


proc show_player_score {nick host handle chan arg} {
    global rrscoresbyname rrscores playerstat
     if {$arg == ""} { set arg $nick } else { set arg [lindex [split $arg " "] 0] }
     show_score $arg
     puthelp "PRIVMSG $chan : $playerstat"
     return 1     
}

proc started {} {
    putlog "starttimer ended"
}


proc tggamemsg {what} {global rrchannel;putquick "PRIVMSG $rrchannel :[tgbold]$what"}
putlog "\Rus Ruleti Yuklendi.By yok"

Bu konuyu yazdır

  Karşılama TCL
Yazar: Admin - 02-23-2020, 09:25 AM - Forum: TCL Scriptler - Yorum Yok

Karşılama TCL

Kod:
proc join_greet {nick uhost handle channel } { 
putserv "privmsg $nick :4M2erhaba 3 $nick "
putserv "privmsg $nick :14irc.Sunucu.Com 4s2ohbet 4s2unucusuna 4h2oşgeldiniz."
putserv "privmsg $nick :4S2unucu 4k2urallarına4 v2e 4g2örev 4d2ağılımına 14/motd 4y2azarak 4u2laşabilirsiniz."
putserv "privmsg $nick :4S2unucu4 y2ardım 4k2analımız14: 7#Help 14~&~ 4G2enel 4s2ohbet 4k2analımız14: 7#Sohbet 14~&~ 4O2yun 4k2analımız14: 7#Oyun 14~&~ 4R2adyo 4k2analımız14: 7#Radyo 14'4d2ur."
putserv "privmsg $nick :4W2eb 4c2hat 4a2dresimiz14: 3http://www.Sunucu.Com 14'4d2ur."
putserv "privmsg $nick :4D2ilek4 v2e 4ş2ikayetlerinizi, 7admin@Sunucu.Com 4a2dresine 4e14-2mail4 y2oluyla 4i2letebilirsininiz."
putserv "privmsg $nick :3S6izlere 3e7n 3g4üzel14, 3e7n 3s2eviyeli 3s10ohbet 3o13rtamı 3d12ileriz.3 http://www.Sunucu.Com 14~&~ 3irc.Sunucu.Com" 
putserv "NOTICE  $nick : 0,4Ş0,2iir 0,4b0,2otumuzdan 0,4g0,2üzel 0,4s0,2öz 0,4o0,2kumak 0,4i0,2sterseniz 0,4l0,2ütfen 0,4g0,2enel 0,4s0,2ohbet 0,4k0,2analımızda0,3 !soz 0,4y0,2azınız."   
}
bind join - * join_greet

Bu konuyu yazdır

  youtubemp3 dönüştürücü script indir
Yazar: Lamer - 02-23-2020, 09:07 AM - Forum: Php Scriptler - Yorum Yok

Ücretsiz Youtube mp3/mp4 İndirme Scripti
Boş vaktimde kendim için geliştirmiş olduğum bir youtube mp3 indirme scripti istediğiniz videoyu mp3/mp4 olarak indirebilir. ( farklı formatlar eklenebilir )
mp3-indir.org alan adını gelen teklifler doğrultusunda yazılım ile birlikte satmayı düşünebilirim çünkü ilgilenemiyorum.
oynGDb.png

Pek fazla özellik olmasa da aklıma gelen özellikler:
Çevirilen videoyu veya mp3'ü her seferinde tekrar çevirmez sadece 1 sefere mahsus download & convert işlemini gerçekleştir.
Herhangi bir admin paneli yok sadece indirilen/çevirilen videoları loglamakta.
Veritabanı bağlantısı gerektirmez.
Mobil Uyumluluk.
Google Auto-Suggestion Özelliği ( Kota sorunu olmadığı sürece çalışır. )
Youtube Video Arama ( Youtube videolarını aratabilir, standart bot mantığı ile çalışır banlanması durumunda çalışmaz ancak sistem değiştirebilir direkt google api entegre edilebilir. )
Popüler Videolar, Yabancı Listeler ( Youtube üzerinde yapılan listelerden alınmaktadır. )
Arayüz ve yazılım tarafımdan yapılmıştır yaklaşık 1-2 saat içerisinde yapılan bir sistem eksiklikleri mevcut ancak şu hali ilede kullanılabilir ben iş yoğunluğundan dolayı geliştiremedim.
Gereksinimler:
youtube-dl
ffmpeg
popen ( fonksiyonu açık olması gerekmekte bu açık olmadığında maksimum dosya limiti hatası vb uyarılar verebilir veya popen fonksiyonu yerine başka bir fonksiyon kullanabilirsiniz. )
[b]Maksimum dosya boyutu limitleri bulunmakta kaldırabilir veya değiştirebilirsiniz.[/b]
mp3 için maksimum boyut 15 MB
mp4 için maksimum boyut 100 MB
bu ayarları [b][b]ajax.php[/b] dosyasını açarak "--max-filesize" parametresini aratıp değiştirebilirsiniz.[/b]
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!

İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!

Bu konuyu yazdır