ForumKelebek.COM | Paylaşımın Tadı Başka!

Yönetim Upload Toplist Sohbet İletişim Anasayfa

Geri Git   ForumKelebek.COM | Paylaşımın Tadı Başka! > >

Rastgele Günün Sözü:
Sohbet REKLAM ALANI





Yeni Konu aç  Cevapla
 
Seçenekler Stil
Alt 03.12.2018   #1
Kullanıcı Profili
diE
 diE - ait Kullanıcı Resmi (Avatar)
Standart Eglence Socket Bot

Eglence Socket Bot



Kod:
        if $regex($remove($4,:),/([.!]s[öÖo]z)/Si)  {
        if !$5 || !$6 { swextrabot privmsg $_nick($1) Lütfen .söz ekle SÖZÜNÜZ şekline kullanın.. | return }
        if $5 == ekle {
          write soz.txt $6- $+ ÷ $+ $_nick($1))
          swextrabot privmsg $_nick($1) $_nick($1) 2sözünüz listeye eklenmiştir. 3Söz numarası:5 $lines(soz.txt)
          swextrabot privmsg $_nick($1) 2Eklediğiniz Söz: 4"1 $6- 4"
          swextrabot privmsg $_botchan  -
          swextrabot privmsg $_botchan $_nick($1) 2bir söz ekledi 3Söz numarası:5 $lines(soz.txt)
          swextrabot privmsg $_botchan 2Eklediği Söz: 4"1 $6- 4"
          swextrabot privmsg $_botchan 2Ugunsuzsa Sözü Silmek İçin: .söz sil4 $lines(soz.txt) 2yapınız...
          swextrabot privmsg $_botchan  -
        }
      }
    }
    if *!* iswm $remove($4,:) || *.* iswm $remove($4,:) {
      var %::ii = 1
      while %::ii <= $lines(globalkanal.txt) {
        if $3 == $read(globalkanal.txt,%::ii) {
          if $regex($remove($4,:),/([.!]sen)/Si) { 
            if !$5 {  swextrabot privmsg $3 Lütfen .sen NİCK şeklinde kullanın. kendiniz için kullanacaksanız .ben | return }
            if $hget(sen,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sen Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .sen $5 komutunu kullandı.
            if !$hget(sen) { hmake sen }
            hinc -mu1 sen $_nick($1)
            swextrabot privmsg $3 $+(5,$5,2) $read(senben.txt)
          }

          if $remove($4,:) == .ben || $remove($4,:) == !ben {
            if $hget(ben,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ben Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .ben komutunu kullandı.
            if !$hget(ben) { hmake ben }
            hinc -mu1 ben $_nick($1)
            swextrabot privmsg $3 $+(5,$_nick($1),2) $read(senben.txt)
          }
          if $regex($remove($4,:),/([.!]benimtarz[iİı]m)/Si)  {
            if $hget(tarzim,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]benimtarzim Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .benimtarzim komutunu kullandı.
            if !$hget(tarzim) { hmake tarzim }
            hinc -mu1 tarzim $_nick($1)
            swextrabot privmsg $3 $_nick($1) $read(tarz.txt)
          }
          if $regex($remove($4,:),/([.!]tarz)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi tarzınızı yorumlatmak için .benimtarzim | return }
            if $hget(tarz,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tarz Komutunu Kullanabilirsiniz. | return }
            if !$5 { swextrabot privmsg $3 Lütfen .tarz NİCK şeklinde kullanınız. kendi tarzınızı görmek için .benimtarzim | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .tarz $5 komutunu kullandı.
            if !$hget(tarz) { hmake tarz }
            hinc -mu1 tarz $_nick($1)
            swextrabot privmsg $3 $5 $read(tarz.txt)
          }

          if $regex($remove($4,:),/([.!][oÖö]p)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendini mi öpecen kudurdunmu $_nick($1) :Dds | return }
            if $hget(opo,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]öp Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 $+(2,$_nick($1)) $5 1i kocaman öptü4  $gettok(%öpüş,$r(1,7),$asc(*)) 4:*
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .öp $5 $5 komutunu kullandı.
            if !$hget(opo) { hmake opo }
            hinc -mu1 opo $_nick($1)
          }
          if $regex($remove($4,:),/([.!]zar)/Si)  {
            if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...) 
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
            if !$hget(zar) { hmake zar }
            hinc -mu1 zar $_nick($1)
            var %dice $rand(1,6)
            var %dice2 $rand(1,6)
            swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2) 
            if (%dice == %dice2) {
              swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
              swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
            }
            elseif (%dice != $dice2) {
              swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
            }
          }

          if $regex($remove($4,:),/([.!]hed[iİı]ye)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendine hediyemi gönderecen egolu kardes | return }
            if !$5 { swextrabot privmsg $3 Lütfen .hediye NİCK şeklinde kullanınız | return }
            if $hget(hediye,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(hediye.txt) 1hediye etti.
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .hediye $5 komutunu kullandı.
            if !$hget(hediye) { hmake hediye }
            hinc -mu1 hediye $_nick($1)
          }
          if $regex($remove($1,:),/([.!]f[iIı]rlat)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendine ne firlatmayi deniyorsun ah be kardesim | return }
            if !$5 { swextrabot privmsg $3 Lütfen .fırlat NİCK şeklinde kullanınız | return }
            if $hget(firlat,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]firlat Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 -
            swextrabot privmsg $3 $+(2,$_nick($1)) 1nicki2 $5 1nickine4 $gettok($read(firlat.txt),1,$asc(=)) 1fırlattı.
            swextrabot privmsg $3 1aha2 $5 1in4 $gettok(%firlatymc,$r(1,5),$asc(*)) 1:Dd
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .fırlat $5 komutunu kullandı.
            if !$hget(firlat) { hmake firlat }
            hinc -mu1 firlat $_nick($1)
          }






Ayraç


 

İşlemler


diE isimli Üye şuanda  online konumundadır  
Alıntı ile Cevapla

Yeni Konu aç  Cevapla

Etiketler
bot, eglence, socket


Şu anda bu konuyu görüntüleyen kullanıcılar: 1 (0 ü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 kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı

Foruma Git:


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şu anki Zaman: 23:54.

Forum Kelebek, en iyi Google Chrome ile dolaşılır.



Forum Kelebek Yasal Uyarı
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
User Alert System provided by Advanced User Tagging (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
Kuruluş: ForumKelebek © 2018
Kurucu (Owner): diE & core
CEO: core

İçerik sağlayıcı paylaşım sitelerinden biri olan Kelebek Forum, Haber ve Güncel Paylaşım Platformu Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Kelebek Forum sitesindeki konular yada mesajlar hakkında yapılacak tüm hukuksal Şikayetler için iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 1 (Bir) Hafta içerisinde Kelebek Forum yönetimi olarak tarafımızdan gereken işlemler yapılacaktır.