.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.

[*]core\classes\Database.php

[*]settings --> url (Tam URL girin.)

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[MENTION=8176]MirC[/MENTION]system.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. 

/*
	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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]system.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,,.),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,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) }
}

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)
}