IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
derya sohbet


mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

12Beğeni(ler)


 
 
Seçenekler Stil
Alt 12 Eylül 2021, 21:38   #1
Bu saatten sonra acın acıkırsa, anca ekmek olur koşarım sana.
BlackForce - ait Kullanıcı Resmi (Avatar)

Standart Sunucunuz için sosyal medya / Bot kontrollü

Merhaba, fazla uzatmadan direkt dosya bilgilerine geçeceğim,
Sistem Sunucunuzdaki kullanıcılar için bot ile yönetilebilir bir sosyal medya içeriğidir.

Sisteme girerken sunucudaki nick ve şifreleriniz ile giriş yapmalısınız. Eğer nick şifrenizi unuttuysanız, siteden nick ve email vererek mail adresinize şifre hatırlatıcı bir eposta alacaksınız.

#Hashtag, @-etiket, kullanıcı engelleme, kullanıcı bildirme, takip isteği, beğeni, yorum, repost gibi özellikler mevcuttur. İstediğiniz kadar sunucuyu aynı çatı altında toplayabilirsiniz.
Kullanıcılar, açıklama gibi web üzerinde gösterilen bilgileri sunucu üzerinden de değiştirebilir.

Sistemde sesli bildirim mevcuttur, Mobil uyumludur.

Sunucuya giriş yapan bir kişi eğer sitede görmediği bir bildirimi varsa özel mesajla uyarılır.
Mysql 5x ile uyumludur, mysqli local olarak kurarsanız hızlandırırsınız,
Bot mysql phpye ihtiyac duymadan mysql islemleri gerçekleştirebilmektedir.
Bot ile mail gönderebilirsiniz. (Bunu php tarafında nick şifremi unuttum kısmında kullanıyorum. Bu da mIRC kodlarıyla)


Kullanıcılar sunucunuzdaki nick ve şifresiyle giriş yapabilir.

PHP kısmı %98 Türkçeye çevrilmiştir. Çevrilmeyen kısımlar zaten gereksiz yerler.

Bot Komutları:

Kod

.yasakla nick
AÇIKLAMA: Sistemden banlar.
.yasakac nick
AÇIKLAMA: Sistem banını açar.
.raporlar
AÇIKLAMA: Kullanıcıların gönderdiği raporları (post, fotoğraflar vs.) listeler.
.onayla nick
AÇIKLAMA: Nick'e Orjinal nick tagı ekler.
.adminekle nick
AÇIKLAMA: Nick'e tam erişim verir.
.adminsil nick
AÇIKLAMA: Nick'i admin listesinden siler.
.yetkiliekle nick
AÇIKLAMA: Nick'e moderatör yetkisi verir.
.yetkilisil nick
AÇIKLAMA: Nick'in moderatör yetkisini alır.
.adminlist
AÇIKLAMA: Admin listesini listeler.
.yetkililist
AÇIKLAMA: Yetkili listesini listeler.
.ozelkapa nick
AÇIKLAMA: Nick'in profilini gizler.
.ozelac nick
AÇIKLAMA: Nick'in profilini tekrar açar.
.baslik cümle
AÇIKLAMA: Sosyal Medya ismini değiştirir.
.kelimebanla kelime,kelime,kelime
AÇIKLAMA: Belirtilen kelimeyi/kelimeleri yasaklar. Çoklu eklemelerde virgül kullanılmalıdır.
.kelimebanac kelime
AÇIKLAMA: Yasaklı kelimeyi siler.
.puanver nick puan
AÇIKLAMA: Nick'e puan verir.
.isimdegistir nick isim soyisim
AÇIKLAMA: Nick'in profil ve görüntülenen ismini değiştirir. Normalde bütün isimler sadece nick olarak görülür. Bunu yaparsanız, profil linki ve adresi değişmez, sadece görünen isim değişir.
.hakkindadegistir nick aciklama
AÇIKLAMA: Nick'in profilindeki hakkında açıklamasını değiştirir.
Görseller:

Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü
Sunucunuz için sosyal medya / Bot kontrollü

PHP'de değiştirilecek yerler:

Kod

[*]core\classes\Database.php
SQL'de değiştirilecek yerler:

Kod

[*]settings --> url (Tam URL girin.)
social_bot.mrc'de değiştirilecek yerler:

PHP- Kodu

alias bot_nick return BFServices
alias bot_pass 
return SIFRE
alias bot_oper_pass 
return OPER_ADI OPER_SIFRESI
alias bot_full_name 
return BF Services tarafindan saglanmistir
alias sunucu 
return 185.114.23.187 6667
alias owner 
return BlackForce
alias kanal 
return #bf
alias _site_ return https://mircsystem.com/bf
alias mysql_sunucu return localhost
alias mysql_kullanici 
return MYSQL_K_ADI
alias mysql_sifre 
return MYSQL_SIFRE
alias db 
return DB_ADI
alias email_sunucusu 
return mircsystem.com 
alias email_portu 
return 465 
alias e_ssl 
return evet
alias email_kullanici 
return destek@mircsystem.com
alias email_sifre 
return email_sifre 
alias email_sunucu_adi 
return BFServices
alias email_baslik 
return Nick Sifreniz $email_sunucusu

];Port Bilgileri

alias dinlenecek_port 
return 5002
;burayı değiştirirsenizcore\classes\user.php --> 43. ve 62. satırları ve pages\lost_password.php --> 15. satırı da değiştirin

PHP klasörünü istediğiniz FTP dizinine atın. .Sql dosyasını databaseye boşaltın.
mIRC klasörünün içindeki dosyaları mIRC klasörünüze atın. .Mrc dosyalarını mIRC'inize tanımlayın.

Kod

/*
	Yazan: <BlackForce> | Test eden: <Subzero> (:*)
	 
	Açıklama:
	Selam kardeşim, bu işleyiş sadece bir ön çalışmadır.
	Açıkcası benim ilk serverside-clientside çalışmamdı.
	O yüzden, şimdi tekrar incelesem büyük ihtimal 'bunu niye böyle yapmışım yaw' diyeceğim pek çok satır barındırıyordur. 
	Ama yine de, umarım ihtiyaçlarını karşılar, kullanıcılarına başka bir platform sunabilir ve daha da geliştirirsin. Emin ol, IRC topluluğu için içerik ürettikçe insanlar sana bir teşekkürü çok görmezler(!)
	Keyifli kullanımlar bro, soru(n)'lar için: live:.cid.ae2f3bd6c3a66ba9 adresini ekleyebilirsin.
*/

/*
	Bilgiler
*/

;Bot Bilgileri

alias bot_nick return BFServices
alias bot_pass return SIFRE
alias bot_oper_pass return OPER_ADI OPER_SIFRESI
alias bot_full_name return BF Services tarafindan saglanmistir
alias sunucu return 185.114.23.187 6667
alias owner return BlackForce
alias kanal return #bf

;MySQL Bilgileri

alias _site_ return https://mircsystem.com/bf
alias mysql_sunucu return localhost
alias mysql_kullanici return MYSQL_K_ADI
alias mysql_sifre return MYSQL_SIFRE
alias db return DB_ADI

;Email Bilgileri

alias email_sunucusu return mircsystem.com 
alias email_portu return 465 
alias e_ssl return evet
alias email_kullanici return destek@mircsystem.com 
alias email_sifre return email_sifre 
alias email_sunucu_adi return BFServices
alias email_baslik return Nick Sifreniz - $email_sunucusu

;Port Bilgileri

alias dinlenecek_port return 5002
;burayı değiştirirseniz,
;core\classes\user.php --> 43. ve 62. satırları ve pages\lost_password.php --> 15. satırı da değiştirin.

/*
	Bilgiler Sonu - Bu satırdan sonrası keyfe girer aga :D
*/

on *:START:{ set %baglanti $mysql_connect($mysql_sunucu, $mysql_kullanici, $mysql_sifre) | if (!%baglanti) { echo -st MySQL bağlantısı başarısız. | echo -st - %mysql_errstr | halt } | elseif ($mysql_select_db(%baglanti, $db)) { mysql_set_charset %baglanti utf8 } | sosyal.medya }
menu * {
  MySQL Baglanti &Bilgisi:echo -at Bağlantı $iif($mysql_is_valid_connection(%baglanti),başarılı.,başarısız.)
}
alias sifre_hatirlat { if !%kontrol.dur. [ $+ [ $1 ] ] { set -u3 %kontrol.dur. [ $+ [ $1 ] ] 1 | if $hget(email) { hfree email } | mail_sw_bilgi $email_kullanici $email_sunucu_adi | mail_gd_bilgi $1 | email.baslik $email_baslik | email.icerik Merhaba! nick sifreniz $+($2,'dir.) Lutfen kayip etmeyiniz. | email.icerik Eger bu E-Posta spama dustuyse lutfen spam degil olarak isaretleyiniz. | email.icerik Iyi sohbetler dileriz! | email.icerik . | mail_gonder hts } }
alias social_bot $iif($sock($+(social_bot)).status == active,sockwrite -nt $+(social_bot) $1-)
alias cevirbkm { if $1 == NEW_FOLLOWER { return Yeni Takipçi } | elseif $1 == NEW_MESSAGE { return Yeni Mesaj } | elseif $1 == FOLLOWER_REQUEST { return Yeni Takip İsteği } | elseif $1 == REPOST { return Yeni İçerik Paylaşımı } | elseif $1 == PHOTO_LIKE { return Yeni Fotoğraf Beğenisi } | elseif $1 == PHOTO_COMMENT { return Yeni Fotoğraf Yorumu } }
alias hts { if ($0) echo -b $1- | else { echo -b Mail gönderildi! } }
alias site { return $_site_ $+ $1 }
alias mail_gd_bilgi { if ($regex($1,/^(.*?)@(.*?)$/)) { hadd -m email gd_mail $1 | hadd -m email gd_host $regml(2) | hadd -m email gd_isim $2- } }
alias mail_sw_bilgi { if ($regex($1,/^(.*?)@(.*?)$/)) { hadd -m email mailim $1 | hadd -m email mail_host $regml(2) | hadd -m email mail_isim $2- } }
alias email.baslik { hadd -m email baslik $1- }
alias email.icerik { hadd -m email icerik_ $+ $calc($hfind(email,icerik_*,0,w) + 1) $1- }
alias mail_gonder { hadd -m email hata $1 | mail_baglan | .timeremail 1 5 sockclose BF_SERVICES_MAIL }
alias mail_baglan { if (!$sock(email)) { sockopen $iif($e_ssl == evet,-e,) BF_SERVICES_MAIL $email_sunucusu $email_portu } | else { email_hata Sistem kullanımda. } }
alias mail_yazdir { sockwrite -n BF_SERVICES_MAIL $iif($1 == -bf_services, $2-, $1-) }
alias email_hata { if ($hget(email,hata)) $v1 $1- }
alias msgat { if !%bilgi. [ $+ [ $strip($gettok($1-,10,32)) ] ] { social_bot privmsg $kanal $1- | inc -u5 %bilgi. [ $+ [ $strip($gettok($1-,10,32)) ] ] 1 } }
alias msgat2 { if !%bilgi. [ $+ [ $strip($gettok($1-,12,32)) ] ] { social_bot privmsg $kanal $1- | inc -u5 %bilgi. [ $+ [ $strip($gettok($1-,12,32)) ] ] 1 } }
alias msgat22 { if !%bilgi. [ $+ [ $strip($gettok($1-,10,32)) ] ] { social_bot privmsg $kanal $1- | inc -u5 %bilgi. [ $+ [ $strip($gettok($1-,10,32)) ] ] 1 } }
alias sc.temiz return $mysql_escape_string($1-)
alias sc.tirnak return $+($chr(39),$1-,$chr(39))
alias sosyal.medya { if (!$sock(sosyal.medya)) socklisten sosyal.medya $dinlenecek_port } 
on *:socklisten:sosyal.medya:{ sockaccept sosyal.medya.gelen. $+ $ticks }
on *:sockclose:social_bot:{ timer 1 2 sockopen social_bot $sunucu } 
on *:sockclose:BF_SERVICES_MAIL:{ .timeremail off }
on *:sockopen:social_bot:{ if ($sockerr) { timer 1 2 sockopen social_bot $sunucu } | social_bot NICK $+($bot_nick,$r(10,99999)) | social_bot USER $bot_nick "" " $+ $iif($host,$host,$ip) $bot_full_name }
on *:sockopen:BF_SERVICES_MAIL:{ if ($sockerr) { email_hata Mail sunucusunda hata. } | else { hadd -m email email_adim 1 } }
on *:sockread:social_bot:{
  if ($sockerr) { sockclose $sockname | return }
  var %:<gln> | sockread %:<gln> | tokenize 32 %:<gln>
  if ($1 = ping) social_bot pong $remove($2,:) 
  elseif $regex($2,/(001|433)/) { social_bot join 0,0 | social_bot oper $bot_oper_pass | social_bot ns ghost $bot_nick $bot_pass | social_bot ns release $bot_nick $bot_pass | $+(.timer,botnck,$r(1,232)) 1 2 social_bot nick $bot_nick }
  elseif $1 == error && $2 == :closing { sockclose $sockname | timer 1 2 sockopen social_bot $sunucu }   
  elseif $regex($2,/(473|475|471|474)/) { social_bot sajoin $bot_nick $4 }
  elseif $2 = 307 {
    var %slqmrb = SELECT user_id FROM `users` WHERE `username` = ?
    var %sonucssssss = $mysql_fetch_single($mysql_query(%baglanti, %slqmrb, $strip($4)))
    if %sonucssssss {
      var %SqlBFa = SELECT * FROM `notifications` WHERE `to_user_id` = ? AND `botbildirim` = ? AND `status` = ?
      var %datam = $mysql_query(%baglanti, %SqlBFa, %sonucssssss, 0, 0)
      while ($mysql_fetch_row(%datam, sonucamk)) {
        dll $qt($mircdirwhilefix.dll) WhileFix . 
        var %SqlBFaa = UPDATE `notifications` SET `botbildirim` = 1 WHERE `notification_id` = $hget(sonucamk, notification_id)
        noop $mysql_query(%baglanti, %SqlBFaa) 
        social_bot privmsg $strip($4) Merhaba $strip($4) $+ , $cevirbkm($hget(sonucamk, type)) bildiriminiz var. Hemen profilinize girerek bildirimi görebilirsiniz -->> Profil link'iniz: $site($strip($4))
      }
      mysql_free %datam
    } 
  } 
  elseif ($2 == NOTICE) { 
    if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { social_bot who +I $regml(3) }
    if *changed his/her nickname* iswm $1- { if $timer(111 $+ $7) { $+(.timer,111,$7) off | $+(.timer,111,$14) 1 5 social_bot whois $14 } }
    if $remove($gettok($1,1,33),:) == NickServ {
      if @ isin $1- && $gettok(%sock. [ $+ [ $5 ] ],2,32) == $5 && $6 == $gettok(%sock. [ $+ [ $5 ] ],3,32) { set -u2 %sifrehatirlatici [ $+ [ $5 ] ] $6 | set -u2 %sifrehatirlatici $5 | social_bot nickserv getpass $5 }
      elseif @ isin $1- && $gettok(%sock. [ $+ [ $5 ] ],2,32) == $5 && $6 != $gettok(%sock. [ $+ [ $5 ] ],3,32) { if !%bilgi.hatirlatici. [ $+ [ %sifrehatirlatici ] ] { social_bot privmsg $kanal 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Şifre Hatırlatma Talebi - Nick: %sifrehatirlatici  - Sebep: Yanlış Email Adresi Verildi. | inc -u5 %bilgi.hatirlatici. [ $+ [ %sifrehatirlatici ] ] 1 } | sockwrite %socks YE | unset %socks }
      elseif *Uyan veri bulunamadi* iswm $1- { if !%bilgi.hatirlatici. [ $+ [ %sifrehatirlatici ] ] { social_bot privmsg $kanal 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Şifre Hatırlatma Talebi - Nick: %sifrehatirlatici  - Sebep: Email bulunamadı. | inc -u5 %bilgi.hatirlatici. [ $+ [ %sifrehatirlatici ] ] 1 } | sockwrite %socks KO | unset %socks }
      elseif *Kullanimi* iswm $1- { sockwrite $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],1,32) YK HesapYok | unset %sock. [ $+ [ $removecs($4,:,) ] ] $+ * | msgat2 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Giriş Denemesi - Nick: $removecs($4,:,)  - Sebep: Nick Şifreli Değil. }
      elseif kayitli bir nick degil. isin $strip($remove($1-,:)) { sockwrite $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],1,32) YK HesapYok | unset %sock. [ $+ [ $removecs($4,:,) ] ] $+ * | msgat2 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Giriş Denemesi - Nick: $removecs($4,:,)  - Sebep: Nick Şifreli Değil. } 
      elseif *nick'inin sifresi* iswm $strip($remove($1-,:)) {
        if %sifrehatirlatici [ $+ [ $removecs($4,:,) ] ] { sockwrite %socks TM %sifrehatirlatici [ $+ [ $removecs($4,:,) ] ] | sifre_hatirlat %sifrehatirlatici [ $+ [ $removecs($4,:,) ] ] $removecs($8,,.) | if !%bilgi.hatirlatici. [ $+ [ $gettok(%gelen,1,32) ] ] { social_bot privmsg $kanal 2BILGI: - Sosyal Medya (Profil Sistemi) Şifre Hatırlatma Talebi - Nick: $removecs($4,:,) - Mail: %sifrehatirlatici [ $+ [ $removecs($4,:,) ] ] | inc -u5 %bilgi.hatirlatici. [ $+ [ $gettok(%gelen,1,32) ] ] 1 } | return }
        var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
        var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $removecs($4,:,)))
        if !%sonucs {
          var %SqlBF2 = INSERT INTO `users` (`username`,`password`,`email`,`email_activation_code`,`name`,`active`,`ip`,`date`) VALUES (?,?,?,?,?,?,?,SYSDATE())
          noop $mysql_query(%baglanti, %SqlBF2, $removecs($4,:,),$removecs($8,,.),user@hotmail.com,123,$removecs($4,:,),1,31.31.31.31)
          if $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],3,32) == $removecs($8,,.) { var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ? | var %sonucsa = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $removecs($4,:,))) | sockwrite $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],1,32) OK %sonucsa | unset %sock. [ $+ [ $removecs($4,:,) ] ] $+ * | msgat 2BILGI: - Sosyal Medya (Profil Sistemi) Girişi - Nick: $removecs($4,:,)  Kisi ilk defa giris yapti. }
          else { sockwrite $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],1,32) YOK | unset %sock. [ $+ [ $removecs($4,:,) ] ] $+ * | msgat2 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Giriş Denemesi - Nick: $removecs($4,:,)  - Sebep: Nick Şifresi Yanlış Girildi }
        }
        elseif %sonucs { if $strip($gettok(%sock. [ $+ [ $removecs($4,:,) ] ],3,32)) == $removecs($8,.,) { sockwrite $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],1,32) OK %sonucs | unset %sock. [ $+ [ $removecs($4,:,) ] ] $+ * | msgat 2BILGI: - Sosyal Medya (Profil Sistemi) Girişi - Nick: $removecs($4,:,)  } | else { sockwrite $gettok(%sock. [ $+ [ $removecs($4,:,) ] ],1,32) YOK | unset %sock. [ $+ [ $removecs($4,:,) ] ] $+ * | msgat2 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Giriş Denemesi - Nick: $removecs($4,:,)  - Sebep: Nick Şifresi Yanlış Girildi } }
      }
    }
  } 
  elseif ($2 == NICK) { if ($remove($gettok($1,1,33),:) == $bot_nick) { social_bot ns ghost $bot_nick $bot_pass | social_bot ns release $bot_nick $bot_pass | $+(.timer,botnck,$r(1,232)) 1 3 social_bot nick $bot_nick } | elseif ($right($3,-1) == $bot_nick) { social_bot nickserv identify $bot_pass | social_bot oper $bot_oper_pass } }
  elseif $regex($2,/(PRIVMSG)/Si) {
    if $3 == $kanal && $remove($gettok($1,1,33),:) == $owner {
      if ($regex($remove($4,:),/^([!.&]yasakla)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `active` = 0 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]yasakac)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `active` = 1 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]raporlar)$/Si)) {
        var %SqlBFads SELECT * FROM `reports`
        var %counfat = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFads))	
        if %counfat {
          var %SqlBFaf = SELECT * FROM `reports`
          var %datam = $mysql_query(%baglanti, %SqlBFaf, %counfat)
          while ($mysql_fetch_row(%datam, sonucamkq)) {
            dll $qt($mircdirwhilefix.dll) WhileFix . 
            var %bildiren = SELECT username FROM `users` WHERE `user_id` = $hget(sonucamkq, user_id)
            var %user_nicki = $mysql_fetch_single($mysql_query(%baglanti, %bildiren))
            social_bot privmsg $3 Rapor Tarihi: $hget(sonucamkq, date)  Rapor ID: $hget(sonucamkq, id) Bildiren: %user_nicki Raporlanan ID: $hget(sonucamkq, reported_id) Rapor Mesajı: $hget(sonucamkq, message) 
          }
          mysql_free %datam
        } 
        else {
          social_bot privmsg $3 Hiç yeni rapor yok.
        }
      }  
      if ($regex($remove($4,:),/^([!.&]onayla)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `verified` = 1 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]adminekle)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `verified` = 2 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]adminsil)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `verified` = 0 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      elseif ($regex($remove($4,:),/^([!.&]sosyalkomutlar)$/Si)) {
        var %iOzel 1
        while %iOzel <= $lines(sosyalkomutlar.txt) {
          dll $qt($mircdirwhilefix.dll) WhileFix . 
          social_bot privmsg $3 $read(sosyalkomutlar.txt,%iOzel)
          inc %iOzel
        }
      }
      if ($regex($remove($4,:),/^([!.&]yetkiliekle)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `verified` = 1 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]yetkilisil)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `verified` = 0 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]adminlist)$/Si)) {
        var %SqlBF = SELECT * FROM `users` WHERE `type` = ?
        var %data = $mysql_query(%baglanti, %SqlBF, 2)
        var %SqlBFadsada = SELECT type FROM users WHERE type = ?
        if !$mysql_fetch_single($mysql_query(%baglanti, %SqlBFadsada, 1)) {
          social_bot privmsg $3 Hiç yetkili yok!
        }
        else {
          while ($mysql_fetch_row(%data, getiramk)) {
            var %songiris $datebilgi($hget(getiramk, last_activity),ayinkaci) $datebilgi($hget(getiramk, last_activity),aysöyle) $datebilgi($hget(getiramk, last_activity),hangiyil) $datebilgi($hget(getiramk, last_activity),günsöyle)
            if !%songiris {
              var %songiris = Henüz giriş yapmamış.
            }
            dll $qt($mircdirwhilefix.dll) WhileFix . 
            social_bot privmsg $3 Nick: $hget(getiramk, username)  -- İsim: $hget(getiramk, name)  -- Hakkında: $iif($hget(getiramk, about),$hget(getiramk, about),Açıklaması yok.)  -- Son Görülme: %songiris  
          }
          mysql_free %data
        }
      } 
      if ($regex($remove($4,:),/^([!.&]yetkililist)$/Si)) {
        var %SqlBF = SELECT * FROM `users` WHERE `type` = ?
        var %data = $mysql_query(%baglanti, %SqlBF, 1)
        var %SqlBFadsada = SELECT type FROM users WHERE type = ?
        if !$mysql_fetch_single($mysql_query(%baglanti, %SqlBFadsada, 1)) {
          social_bot privmsg $3 Hiç yetkili yok!
        }
        else {
          while ($mysql_fetch_row(%data, getiramk)) {
            var %songiris $datebilgi($hget(getiramk, last_activity),ayinkaci) $datebilgi($hget(getiramk, last_activity),aysöyle) $datebilgi($hget(getiramk, last_activity),hangiyil) $datebilgi($hget(getiramk, last_activity),günsöyle)
            if !%songiris {
              var %songiris = Henüz giriş yapmamış.
            }
            dll $qt($mircdirwhilefix.dll) WhileFix . 
            social_bot privmsg $3 Nick: $hget(getiramk, username)  -- İsim: $hget(getiramk, name)  -- Hakkında: $iif($hget(getiramk, about),$hget(getiramk, about),Açıklaması yok.)  -- Son Görülme: %songiris  
          }
          mysql_free %data
        }
      } 
      if ($regex($remove($4,:),/^([!.&]ozelac)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `private` = 1 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]ozelkapat)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen nick belirtin. }
        elseif $5 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `private` = 0 WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]baslik)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen mesajinizi belirtin. }
        elseif $5 {
          var %SqlBFBF = UPDATE `settings` SET `title` = $sc.tirnak($sc.temiz($strip($5-))) WHERE `id` = ?
          noop $mysql_query(%baglanti, %SqlBFBF, 1)
          social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
        }
      }
      if ($regex($remove($4,:),/^([!.&]kelimebanla)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen mesajinizi belirtin. }
        elseif $5 && $6 { social_bot privmsg $3 Yanlis ekleme yapiyorsunuz. Coklu kelime ekleyecekseniz, virgul ile ayirin. Mesela: kelime,kelime2,kelime3 gibi.. | return }
        elseif $5 {
          var %SqlBF = SELECT banned_words FROM `settings` WHERE `id` = ?
          var %sonucssds = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, 1))
          var %say = 1
          var %eklenmekistenen $strip($5)
          while (%say <= $gettok($strip($5),0,44)) {
            if $findtok(%sonucssds,$gettok($strip($5),%say,44),44) { social_bot privmsg $3 Eklemek istediginiz $gettok($strip($5),%say,44) kelimesi zaten banlı. | var %eklenmekistenen = $remtok(%eklenmekistenen,$gettok($strip($5),%say,44),44) }
            else {
              social_bot privmsg $3  $+ $gettok($strip($5),%say,44) kelimesi ekleniyor.
            }
            inc %say
          }
          if !%eklenmekistenen {
            social_bot privmsg $3 İşlem tamamlanamadı!
            return
          }
          var %kelime_bani = $addtok(%sonucssds,%eklenmekistenen,44)
          var %SqlBFBF = UPDATE `settings` SET `banned_words` = $sc.tirnak($sc.temiz(%kelime_bani)) WHERE `id` = ?
          noop $mysql_query(%baglanti, %SqlBFBF, 1)
          social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
        }
      }
      if ($regex($remove($4,:),/^([!.&]kelimebanac)$/Si)) {
        if !$5 { social_bot privmsg $3 Lutfen mesajinizi belirtin. }
        elseif $5 {
          var %SqlBF = SELECT banned_words FROM `settings` WHERE `id` = ?
          var %sonucssds = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, 1))
          if !$findtok(%sonucssds,$strip($5),44) { social_bot privmsg $3 Eklemek istediginiz kelime zaten banlı degil. | return }
          var %kelime_bani = $remtok(%sonucssds,$strip($5),44)
          var %SqlBFBF = UPDATE `settings` SET `banned_words` = $sc.tirnak($sc.temiz(%kelime_bani)) WHERE `id` = ?
          noop $mysql_query(%baglanti, %SqlBFBF, 1)
          social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır.
        }
      }
      if ($regex($remove($4,:),/^([!.&]puanver)$/Si)) {
        if !$5 || !$6 { social_bot privmsg $3 Lutfen nick ve puan belirtin. -->> $remove($4,:) $remove($gettok($1,1,33),:) 100 }
        elseif $5 && $6 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFdfdfdm = SELECT points FROM `users` WHERE `user_id` = ?
            var %sonucsdfdfdt = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFdfdfdm, %sonucs))
            var %SqlBFBF = UPDATE `users` SET `points` = $calc(%sonucsdfdfdt + $strip($6)) WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır. Kisinin toplam puani: $calc(%sonucsdfdfdt + $strip($6))
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]isimdegistir)$/Si)) {
        if !$5 || !$6 { social_bot privmsg $3 Lutfen nick ve isim belirtin. -->> $remove($4,:) $remove($gettok($1,1,33),:) Gökhan ÇARKACI }
        elseif $5 && $6 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `name` = $sc.tirnak($sc.temiz($strip($6-))) WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır. Kisinin guncel ismi: $strip($6-)
          }
        }
      }
      if ($regex($remove($4,:),/^([!.&]hakkindadegistir)$/Si)) {
        if !$5 || !$6 { social_bot privmsg $3 Lutfen nick ve isim belirtin. -->> $remove($4,:) $remove($gettok($1,1,33),:) Gökhan ÇARKACI }
        elseif $5 && $6 {
          var %SqlBF = SELECT user_id FROM `users` WHERE `username` = ?
          var %sonucs = $mysql_fetch_single($mysql_query(%baglanti, %SqlBF, $strip($5)))
          if !%sonucs {
            social_bot privmsg $3 Bu kişi henüz sisteme giriş yapmamış, haliyle mysql tablosunda görünmediği için işlem yapılamıyor.
          }
          else {
            var %SqlBFm = SELECT last_activity FROM `users` WHERE `user_id` = ?
            var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, %sonucs))
            var %songiris $datebilgi(%sonuc,ayinkaci) $datebilgi(%sonuc,aysöyle) $datebilgi(%sonuc,hangiyil) $datebilgi(%sonuc,günsöyle)
            if !%songiris {
              var %songiris = henüz giriş yapmamış.
            }
            social_bot privmsg $3 $5 son görülme günü: %songiris
            var %SqlBFBF = UPDATE `users` SET `about` = $sc.tirnak($sc.temiz($strip($6-))) WHERE `user_id` = ?
            noop $mysql_query(%baglanti, %SqlBFBF, %sonucs)
            social_bot privmsg $3 İşleminiz başarıyla tamamlanmıştır. Kisinin guncel aciklamasi: $strip($6-)
          }
        }
      }
    }
  } 
}
on *:sockread:BF_SERVICES_MAIL:{
var %;<email_gelen> | var %email_adim $hget(email,email_adim) | sockread %;<email_gelen>
  if $regex(%;<email_gelen>,/^(\d\d\d)([ -])(.*)$/) && $regml(2) != - {
    var %;<kod> $regml(1) | var %;<cvp> $regml(3)
    if %email_adim == 1 && %;<kod> == 220 { mail_yazdir $+($chr(69),$chr(72),$chr(76),$chr(79)) | hinc email email_adim 1 } 
    elseif %email_adim == 2 && %;<kod> == 250 { mail_yazdir $+($chr(65),$chr(85),$chr(84),$chr(72)) $+($chr(76),$chr(79),$chr(71),$chr(73),$chr(78)) | hinc email email_adim 1 }
    elseif %email_adim == 3 && %;<kod> == 334 && %;<cvp> == VXNlcm5hbWU6 { mail_yazdir -bf_services $encode($email_kullanici,m) | hinc email email_adim 1 }
    elseif %email_adim == 4 && %;<kod> == 334 && %;<cvp> == UGFzc3dvcmQ6 { mail_yazdir -bf_services $encode($email_sifre,m) | hinc email email_adim 1 }    
    elseif %email_adim == 5 && %;<kod> == 235 { mail_yazdir $+($chr(77),$chr(65),$chr(73),$chr(76)) $+($chr(70),$chr(82),$chr(79),$chr(77),$chr(58)) $+(<,$hget(email,mailim),>) | hinc email email_adim 1 } 
    elseif %email_adim == 6 && %;<kod> == 250 { mail_yazdir $+($chr(82),$chr(67),$chr(80),$chr(84)) $+($chr(84),$chr(79),$chr(58)) $+(<,$hget(email,gd_mail),>) | hinc email email_adim 1 }
    elseif %email_adim == 7 && %;<kod> == 250 { mail_yazdir $+($chr(68),$chr(65),$chr(84),$chr(65)) | hinc email email_adim 1 }
    elseif %email_adim == 8 && %;<kod> == 354 { mail_yazdir $+($chr(70),$chr(114),$chr(111),$chr(109),$chr(58)) $iif($hget(email,mail_isim),$qt($v1),) $+(<,$hget(email,mailim),>) | mail_yazdir $+($chr(84),$chr(111),$chr(58)) $iif($hget(email,gd_isim),$qt($v1),) $+(<,$hget(email,gd_mail),>) | mail_yazdir $+($chr(83),$chr(117),$chr(98),$chr(106),$chr(101),$chr(99),$chr(116),$chr(58)) $hget(email,baslik) | mail_yazdir | var %;<toplam> = $hfind(email,icerik_*,0,w), %i = 1 | while (%i <= %;<toplam>) { mail_yazdir $hget(email,$+(icerik_,%i)) | inc %i 1 } | mail_yazdir . | hinc email email_adim 1 }
    elseif %email_adim == 9 && %;<kod> == 250 { mail_yazdir $+($chr(81),$chr(85),$chr(73),$chr(84)) | hinc email email_adim 1 } | elseif %email_adim == 10 && %;<kod> == 221 {  } | else { email_hata %;<email_gelen> } 
  }
}
on *:sockread:sosyal.medya.gelen.*:{ 
  sockread %gelen 
  if GRS isin %gelen { set %sock. [ $+ [ $gettok(%gelen,1,32) ] ] $sockname $gettok(%gelen,1,32) $gettok(%gelen,2,32) | social_bot nickserv getpass $gettok(%gelen,1,32) }
  elseif CKS isin %gelen { var %SqlBFm = SELECT username FROM `users` WHERE `user_id` = ? | var %sonuc = $mysql_fetch_single($mysql_query(%baglanti, %SqlBFm, $gettok(%gelen,1,32))) | msgat 2BILGI: - Sosyal Medya (Profil Sistemi) Çıkış - Nick: %sonuc  }
  elseif UNTT isin %gelen { if $sock(BF_SERVICES_MAIL) { sockwrite $sockname SD | if !%bilgi.hatirlatici. [ $+ [ $gettok(%gelen,1,32) ] ] { social_bot privmsg $kanal 4BILGI: - Sosyal Medya (Profil Sistemi) Başarısız Şifre Hatırlatıma Talebi - Nick: $gettok(%gelen,1,32)	 - Sebep: Sistem Kullanımda. | inc -u5 %bilgi.hatirlatici. [ $+ [ $gettok(%gelen,1,32) ] ] 1 } | return } | set %sock. [ $+ [ $gettok(%gelen,1,32) ] ] $sockname $gettok(%gelen,1,32) $gettok(%gelen,2,32) | set -u2 %socks $sockname | set -u2 %sifrehatirlatici $gettok(%gelen,1,32) | social_bot nickserv listemail $gettok(%gelen,1,32) }
}

Kod

alias MYSQL_OK                   return 0

alias MYSQL_BOTH                 return 1
alias MYSQL_NUM                  return 2
alias MYSQL_ASSOC                return 3

alias MYSQL_ALL                  return 1
alias MYSQL_BOUND                return 2

alias MYSQL_ERROR_OK             return 0
alias MYSQL_ERROR_INVALIDARG     return 3000
alias MYSQL_ERROR_BIND           return 3001
alias MYSQL_ERROR_NOMOREROWS     return 3002
alias MYSQL_ERROR_FETCH          return 3003
alias MYSQL_ERROR_NOMOREFIELDS   return 3004
on *:LOAD:{ echo 3 -a mIRC MySQL yüklendi. }
alias mysql_dll return $qt($+($scriptdir,mmysql.dll))
alias -l mysql_param return $qt($replace($1, \, \\, ", \"))
alias mysql_help {
  run $+($scriptdir,mmysql.chm)
}
alias mysql_version {
  return $dll($mysql_dll, mmysql_version,)
}
alias mysql_qt {
  return $+(',$1-,')
}
alias mysql_connect {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  if ($0 >= 3) %params = %params $mysql_param($3)
  if ($0 >= 4) %params = %params $mysql_param($4)
  return $dll($mysql_dll, mmysql_connect, %params)
}
alias mysql_close {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_close, %params)
}
alias mysql_select_db {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_select_db, %params)
}
alias mysql_ping {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_ping, %params)
}
alias mysql_set_charset {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($1)
  return $dll($mysql_dll, mmysql_set_charset, %params)
}
alias mysql_autocommit {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($1)
  return $dll($mysql_dll, mmysql_autocommit, %params)
}
alias mysql_get_client_info {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_get_client_info, %params)
}
alias mysql_get_host_info {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_get_host_info, %params)
}
alias mysql_get_proto_info {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_get_proto_info, %params)
}
alias mysql_get_server_info {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_get_server_info, %params)
}
alias mysql_client_encoding {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_client_encoding, %params)
}
alias mysql_escape_string {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_escape_string, %params)
}
alias mysql_real_escape_string {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_real_escape_string, %params)
}
alias mysql_query {
  var %params
  if ($0 >= 1) {
    %params = $mysql_param($1) 1
    if (!$mysql_is_valid_statement($1)) {
      %params = %params $iif($isid && $prop == file, 1, 0)
      if (!$isid) {
        var %query, %i = 2
        while (%i <= $0) {
          %query = %query $ [ $+ [ %i ] ]
          inc %i
        }
        %params = %params $mysql_param(%query)
      }
    }
    if ($isid) {
      var %i = 2
      while (%i <= $0) {
        %params = %params $mysql_param($ [ $+ [ %i ] ])
        inc %i
      }
    }      
  }
  return $dll($mysql_dll, mmysql_query, %params)
}
alias mysql_unbuffered_query {
  var %params
  if ($0 >= 1) {
    %params = $mysql_param($1) 2
    if (!$mysql_is_valid_statement($1)) {
      %params = %params $iif($isid && $prop == file, 1, 0)
      if (!$isid) {
        var %query, %i = 2
        while (%i <= $0) {
          %query = %query $ [ $+ [ %i ] ]
          inc %i
        }
        %params = %params $mysql_param(%query)
      }
    }
    if ($isid) {
      var %i = 2
      while (%i <= $0) {
        %params = %params $mysql_param($ [ $+ [ %i ] ])
        inc %i
      }
    }      
  }
  return $dll($mysql_dll, mmysql_query, %params)
}
alias mysql_exec {
  var %params
  if ($0 >= 1) {
    %params = $mysql_param($1) 3
    if (!$mysql_is_valid_statement($1)) {
      %params = %params $iif($isid && $prop == file, 1, 0)
      if (!$isid) {
        var %query, %i = 2
        while (%i <= $0) {
          %query = %query $ [ $+ [ %i ] ]
          inc %i
        }
        %params = %params $mysql_param(%query)
      }
    }
    if ($isid) {
      var %i = 2
      while (%i <= $0) {
        %params = %params $mysql_param($ [ $+ [ %i ] ])
        inc %i
      }
    }      
  }
  return $dll($mysql_dll, mmysql_query, %params)
}
alias mysql_exec_file {
  if ($isid) {
    var %params, %i = 1
    while (%i <= $0) {
      %params = $+(%params,$iif(%params,$chr(44)),$ $+ %i)
      inc %i
    }
    var %cmd = $!mysql_exec( $+ %params $+ ).file
    return [ [ %cmd ] ]
  }
  return $mysql_exec($1, $2).file
}
alias mysql_free {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_free, %params)
}
alias mysql_free_result {
  return $mysql_free($1)
}
alias mysql_num_rows {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_num_rows, %params)
}
alias mysql_num_fields {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_num_fields , %params)
}
alias mysql_affected_rows {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_affected_rows, %params)
}
alias mysql_insert_id {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_insert_id, %params)
}
alias mysql_fetch_row {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($gettok($2,1,32))
  if ($0 >= 3) %params = %params $mysql_param($3)
  return $dll($mysql_dll, mmysql_fetch_row, %params)
}
alias mysql_fetch_num {
  return $mysql_fetch_row($1, $2, $MYSQL_NUM)
}
alias mysql_fetch_assoc {
  return $mysql_fetch_row($1, $2, $MYSQL_ASSOC)
}
alias mysql_fetch_bound {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  tokenize 32 $dll($mysql_dll, mmysql_fetch_bound, %params)
  if ($0 == 1) {
    return $1
  }
  if ($0 == 3) {
    var %file = $1, %i = 1, %total = $numtok($2, 124), %offset = 0
    while (%i <= %total) {
      var %size = $gettok($2, %i, 124), %bvar = $gettok($3, %i, 124)
      bread %file %offset %size %bvar
      inc %offset %size
      inc %i
    }
    return 1
  }
  return $null
}
alias mysql_fetch_single {
  if ($0 < 2) {
    return $dll($mysql_dll, mmysql_fetch_single, $iif($0 >= 1, $mysql_param($1)))
  }
  else {
    tokenize 32 $dll($mysql_dll, mmysql_fetch_single, $mysql_param($1) $mysql_param($2))
    if ($0 == 3) {
      bread $1 0 $2 $3
      return $bvar($3, 0)
    }
    return $null
  }
}
alias mysql_fetch_field {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) {
    var %name = $iif($2 !isnum || $prop == name, 1, 0)
    %params = %params %name $mysql_param($2) 0
  }
  if ($0 < 3) {
    return $dll($mysql_dll, mmysql_fetch_field, %params)
  }
  else {
    %params = %params $mysql_param($3)
    tokenize 32 $dll($mysql_dll, mmysql_fetch_field, %params)
    if ($0 == 3) {
      bread $1 0 $2 $3
      return $bvar($3, 0)
    }
    return $null
  }
}
alias mysql_fetch_all {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  if ($0 >= 3) %params = %params $mysql_param($3)
  return $dll($mysql_dll, mmysql_fetch_all, %params)
}
alias mysql_result {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) {
    var %name = $iif($2 !isnum || $prop == name, 1, 0)
    %params = %params %name $mysql_param($2) 1
  }
  if ($0 < 3) {
    return $dll($mysql_dll, mmysql_fetch_field, %params)
  }
  else {
    %params = %params $mysql_param($3)
    tokenize 32 $dll($mysql_dll, mmysql_fetch_field, %params)
    if ($0 == 3) {
      bread $1 0 $2 $3
      return $bvar($3, 0)
    }
    return $null
  }
}
alias mysql_data_seek {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_data_seek, %params)
}
alias mysql_is_valid_connection {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_is_valid_connection, %params)
}
alias mysql_is_valid_result {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_is_valid_result, %params)
}
alias mysql_is_valid_statement {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_is_valid_statement, %params)
}
alias mysql_begin {
  return $mysql_exec($mysql_param($1), BEGIN)
}
alias mysql_commit {
  return $mysql_exec($mysql_param($1), COMMIT)
}
alias mysql_rollback {
  return $mysql_exec($mysql_param($1), ROLLBACK)
}
alias mysql_prepare {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $iif($isid && $prop == file, 1, 0) $mysql_param($2)
  return $dll($mysql_dll, mmysql_prepare, %params)
}
alias mysql_bind_field {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) {
    var %name = $iif($2 !isnum || $prop == name, 1, 0)
    %params = %params %name $mysql_param($2)
  }
  if ($0 >= 3) {
    %params = %params $mysql_param($3)
  }
  return $dll($mysql_dll, mmysql_bind_field, %params)
}
alias mysql_bind_column {
  return $mysql_bind_field($1, $2, $3)
}
alias mysql_bind_param {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  if ($0 >= 3) %params = %params $mysql_param($3)
  return $dll($mysql_dll, mmysql_bind_param, %params)
}
alias mysql_bind_value {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  if ($0 >= 3) {
    var %value, %i = 3
    while (%i <= $0) {
      %value = %value $ [ $+ [ %i ] ]
      inc %i
    }
    %params = %params $mysql_param(%value)
  }
  return $dll($mysql_dll, mmysql_bind_value, %params)
}
alias mysql_bind_null {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_bind_null, %params)
}
alias mysql_clear_bindings {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_bind_null, %params)
}
alias mysql_fetch_field_info {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($gettok($2,1,32))
  if ($0 >= 3) %params = %params $mysql_param($3)
  return $dll($mysql_dll, mmysql_fetch_field_info, %params)
}
alias mysql_field_info_seek {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_field_info_seek, %params)
}
alias mysql_field_name {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_field_name, %params)
}
alias mysql_field_type {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_field_type, %params)
}
alias mysql_field_len {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_field_len, %params)
}
alias mysql_field_table {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_field_table, %params)
}
alias mysql_field_flags {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_field_flags, %params)
}
alias mysql_safe_encode {
  var %params = $iif($0 >= 1, $mysql_param($1))
  if ($0 >= 2) %params = %params $mysql_param($2)
  return $dll($mysql_dll, mmysql_safe_encode, %params)
}
alias mysql_safe_decode {
  var %params = $iif($0 >= 1, $mysql_param($1))
  return $dll($mysql_dll, mmysql_safe_decode, %params)
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

________________

Sunucunuz için sosyal medya / Bot kontrollü

Konu BlackForce tarafından (12 Eylül 2021 Saat 22:18 ) değiştirilmiştir..
 
Alt 12 Eylül 2021, 22:01   #2
Standart

emeginize saglik efendim bilgi ve paylasim icinde ayrica tesekkur ederiz

________________

No MoRe DramA
 
Alt 12 Eylül 2021, 22:11   #3
Standart

Açıkca güzel bir paylasım, buradan codlama bakınca gerçekten'de baya emek verilmiş, kendi görüşüm ama "IRCd reabet'ini kaybetmiyorsa bu emekler sayesinde", tekrardan eline saglık, hayırlı IR'ler.

 
Alt 12 Eylül 2021, 22:13   #4
Sim
civciv~🐥
Sim - ait Kullanıcı Resmi (Avatar)

Standart

emeginize saglik paylasim icin tesekkürler

________________

Hope. . . ✨
 
Alt 12 Eylül 2021, 22:40   #5
Bu saatten sonra acın acıkırsa, anca ekmek olur koşarım sana.
BlackForce - ait Kullanıcı Resmi (Avatar)

Standart

Çok teşekkür ederim güzel yorumlarınız için

________________

Sunucunuz için sosyal medya / Bot kontrollü
 
Alt 12 Eylül 2021, 22:47   #6
spring will never be again..
Lareina - ait Kullanıcı Resmi (Avatar)

Standart

Sunumuzun ve çalışmanız baya başarılı olmuş,tebrik ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

________________

“sen haylaz rüzgarlar önünde şimdi, sevdanın yükünü attım omuzumdan. sen sandığım şey belki benim yüreğimdi, iyi ki dönmüşüm yolun başından.”
 
Alt 12 Eylül 2021, 22:52   #7
Bu saatten sonra acın acıkırsa, anca ekmek olur koşarım sana.
BlackForce - ait Kullanıcı Resmi (Avatar)

Standart

Alıntı:
Lareina Nickli Üyeden Alıntı Mesajı göster
Sunumuzun ve çalışmanız baya başarılı olmuş,tebrik ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Teşekkür ederim Lareina

Düzeltme:
core\classes\user.php --> 43. ve 62. satır
pages\lost_password.php --> 15. satır
Makinanın ip adresinin girilmesi gerekiyor. (Dinlenen port, 5002)

________________

Sunucunuz için sosyal medya / Bot kontrollü
 
Alt 12 Eylül 2021, 22:56   #8
Yanlış Bildiğin Yolda; Herkesle yürüyeceğine Doğru Bildiğin Yolda; Tek başına yürü..
Artist - ait Kullanıcı Resmi (Avatar)

Standart

Gayet başarılı emeğinize sağlık

________________

Sunucunuz için sosyal medya / Bot kontrollü
 
Alt 13 Eylül 2021, 00:03   #9
Cumhuriyet Kadını
Reyhan - ait Kullanıcı Resmi (Avatar)

Standart

Emeğinize sağlık gerçekten baya emek verilmiş

________________

ellerinde bir güldüm ,
soldum .
 
Alt 13 Eylül 2021, 03:08   #10
hepSi bir yaLan . . .
ZaLim - ait Kullanıcı Resmi (Avatar)

Standart

çalışmalarınızı memnuniyetle takip ediyorum, şöyle bir şey yaptırabilirmiyiz örneğin sunucu da ki topic, ame ve amsg gibi mesajları tek butonla sosyal medya sayfalarında paylaşabilecek bir bot yada mirc kodu?

________________

Fuego, sonrisas, realidad y dolor . . .
Bırak elinde ki kalemi diyorlar,
bırak şeytan doldurur.
Ve bugün imge dediğin her şey,
bir anda bizim gibi bir katil olur.
.


hepSi bir yaLan . . .
 


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 Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı





Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:41.