IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- IRCd Botlar (https://www.ircforumlari.net/ircd-botlar/)

- - SALES Botu. (https://www.ircforumlari.net/ircd-botlar/744535-sales-botu.html)

Selam arkadaşlar forum üzerinde aradım sales botu bulamadım bende birtane yapayım dedim,
Bot Komutları:
#################
# /panel komutu bot panelini açar.
# .opers veya .admin komutları oper/admin fiyat listesini verir.
# .founders , Kiralanan Kanal Listesini verir.
# .fekle #kanal FOUNDER SUCCESSOR , Listeye Kanal Ekler.
# .fsil NUMARA , Listeden Kanal Siler.
#################
-
EK ÖZELLİK İSTENİP KONU ALTINA YAZILIRSA GÜNCELLEYEBİLİRİM KODLARI.
-

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

Kod:

alias _server return irc.esohbet.net

alias _konus return sw_sales privmsg %s_chan

alias _nick return $remove($gettok($1,1,33),:)

on *:sockopen:_sales:{

  if ($sockerr) { echo $color(info) -st bot bağlanamadı. | return }

  sw_sales NICK %s_nick

  sw_sales USER ~IRC@ * * :Coded by YouMyCure

  sockmark $sockname $s_nick

}

on *:sockread:_sales:{

  var %; | sockread %; | tokenize 32 %; 

  ;if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]BOT) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]BOT } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]BOT $timestamp < $1-

  swalias $1-

}

alias sw_sales { if $sock(_sales) { sockwrite -n _sales $1- } }

alias swalias {

  if $sock(_sales) {

    var %: = echo $color(info) -st > Socket salesbot:

    if :VERSION iswm $4- { sw_sales NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.35 Khaled Mardam-Bey $+ $chr(1) }

    if :FINGER iswm $4- { sw_sales NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Recep Şentürk $+ $chr(1) }

    if $1 == PING { sw_sales PONG $2- }

    if $2 == 376 { sw_sales join 0 | sw_sales join %s_chan }

    if $2 == JOIN && $remove($3,:) == %s_chan && $_nick($1) != %s_nick {

      sw_sales notice $_nick($1) $+(4,%s_chan) 2Kanalımıza Hoş Geldiniz.

      sw_sales notice $_nick($1) 2Oper/Admin Fiyatlarını Öğrenmek İçin 4.oper

      sw_sales notice $_nick($1) 2Kiralanmış Kanalları Listelemek İçin 4.founders

    }

    if $2 == PRIVMSG {

      if $3 == %s_chan {

        if $right($4,-1) == !fekle || $right($4,-1) == .fekle {

          if !$5 || !$6 || !$7 { sw_sales privmsg $3 2Hatalı Kullanım Lütfen 4.fekle #Kanal Founder Cofunder 2Şeklinde Kullanın. | return }

          write foundersc.txt 14[ 4Kanal:2 $5 14|4 Founder:2 $6 14|4 CoFounder:2 $7 14|4 Ekleyen:2 $_nick($1) 14]

          var %yenisifre = $r(10000000,99999999)

          sw_sales cs set $5 founder $6 | sw_sales cs set $5 successor $7 | sw_sales cs set $5 password %yenisifre

          sw_sales privmsg $6  $5 Kanalı Üzerinize Devredilmiştir. Yeni Şifreniz %yenisifre

          sw_sales ms send $5 Kanalı Size Devredilmiştir. Hayırlı Olsun. Yeni Şifresi; %yenisifre

          sw_sales privmsg $3 : $5 Kanalı Founders Listesine Eklenmiştir...

        }

        if $right($4,-1) == !founders || $right($4,-1) == .founders {

          if !$read(foundersc.txt,1) { $_konus 14Founder Kanal Listesinde Kanal Yoktur... | return }

          $_konus 2-= Founders Kanal Listesi =-

          $_konus 

          var %i 1

          while (%i <= $lines(foundersc.txt)) {

            sw_sales privmsg $3 : %i $+ .4) $read(foundersc.txt,%i)

            inc %i

          }

        }

        if $right($4,-1) == !fsil || $right($4,-1) == .fsil {

          write -dl $+ $5 foundersc.txt 

          sw_sales privmsg %s_chan $5 Numaralı Kanal Founders Listesinden Silindi.  

        }

        if $regex($4,/([.!]oper)/Si) || $regex($4,/([.!]admin)/Si) {

          $_konus 2 -= 14Oper/Admin 7Fiyat Listesi2 =-

          $_konus 

          $_konus 14* 4Root Admin2 -2 %root TL

          $_konus 14* 4Network Admin2 - %net TL

          $_konus 14* 4Services Admin2 - %services TL

          $_konus 14* 4Server Admin2 - %server TL

          $_konus 14* 4Co Admin2 - %co TL

          $_konus 14* 4IRC Operator2 - %ircop TL

          $_konus 14* 4Admin List Ekleme2 - %alist TL

          $_konus 14* 4Supass2 - %supass TL

          $_konus 

          $_konus 7Fiyatlarımız 14Aylık 7Cinsindendir.

        }

      }

    }

  }

}

alias panel dialog -m salesbt salesbt

dialog -l salesbt {

  title "Sales Bot # YouMyCure #"

  size -1 -1 114 236

  option dbu

  box "", 1, 4 7 102 48

  text "Kanal", 2, 11 21 25 8

  edit "", 3, 41 20 50 10

  text "Bot Nick", 4, 11 35 25 8

  edit "", 5, 41 34 50 10

  text "Root Admin Fiyatı", 6, 7 61 44 8

  edit "", 7, 55 60 50 10

  text "Net Admin Fiyatı", 8, 7 73 44 8

  edit "", 9, 55 72 50 10

  text "Services Admin Fiyatı", 10, 7 86 44 8

  edit "", 11, 55 85 50 10

  text "Server Admin Fiyatı", 12, 7 98 44 8

  edit "", 13, 55 97 50 10

  text "Co Admin Fiyatı", 14, 7 110 44 8

  edit "", 15, 55 110 50 10

  text "IRCOP Fiyatı", 16, 7 122 44 8

  edit "", 17, 55 121 50 10

  text "Admin List Ekleme", 18, 7 134 44 8

  edit "", 19, 55 133 50 10

  text "Supass Fiyatı", 20, 7 146 44 8

  edit "", 21, 55 145 50 10

  button "KAYDET !", 22, 7 161 97 21

  button "BAĞLAN / KOPART", 23, 7 188 97 20

  edit "", 24, 30 218 50 10, read center

  box "", 25, 28 211 54 21

}

on *:dialog:salesbt:*:*: {

  if $devent == edit {

   if $did == 3 { set %s_chan $did(3) }  

   if $did == 5 { set %s_nick $did(5) }

   if $did == 7 { set %root $did(7) }

   if $did == 9 { set %net $did(9) }

   if $did == 11 { set %services $did(11) }

   if $did == 13 { set %server $did(13) }

   if $did == 15 { set %co $did(15) }

   if $did == 17 { set %ircop $did(17) }

   if $did == 19 { set %alist $did(19) }

   if $did == 21 { set %supass $did(21) }

 }

  if $devent == init {

    did -a $dname 3 %s_chan

    did -a $dname 5 %s_nick

    did -a $dname 7 %root

    did -a $dname 9 %net

    did -a $dname 11 %services

    did -a $dname 13 %server

    did -a $dname 15 %co

    did -a $dname 17 %ircop

    did -a $dname 19 %alist

    did -a $dname 21 %supass

    if $sock(_sales) { did -r $dname 24 | did -a $dname 24 AKTİF }

    elseif !$sock(_sales) { did -r $dname 24 | did -a $dname 24 DEAKTİF }

  }

  if $devent == sclick {

    if $did == 22 { dialog -x $dname $dname }

    if $did == 23 { 

      if $sock(_sales) { sockclose _sales | did -r $dname 24 | did -a $dname 24 DEAKTİF }

      elseif !$sock(_sales) { sockopen _sales $_server 6667 | did -r $dname 24 | did -a $dname 24 AKTİF }

    }

  }

}

İNDİR:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: SALES Botu.

Eklemeyi Unutmuşum Koddaki;

Kod:

alias _server return irc.esohbet.net

Kısmını Kendi irc serverinize göre ayarlayınız. iyi forumlar.

Cevap: SALES Botu.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ellerine sağlık kardeşim 10 numara 8 yıldız.

Cevap: SALES Botu.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşımızın isteği üzerine kanal kiralama listesi bölümüde ekledim bot üzerine,
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yeni kodlar;

Kod:

alias _konus return sw_sales privmsg %s_chan

alias _nick return $remove($gettok($1,1,33),:)

on *:sockopen:_sales:{

  if ($sockerr) { echo $color(info) -st bot bağlanamadı. | return }

  sw_sales NICK %s_nick

  sw_sales USER ~IRC@ * * :Coded by YouMyCure

  sockmark $sockname $s_nick

}

on *:sockread:_sales:{

  var %; | sockread %; | tokenize 32 %; 

  ;if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]BOT) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]BOT } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]BOT $timestamp < $1-

  swalias $1-

}

alias sw_sales { if $sock(_sales) { sockwrite -n _sales $1- } }

alias swalias {

  if $sock(_sales) {

    var %: = echo $color(info) -st > Socket salesbot:

    if :VERSION iswm $4- { sw_sales NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.35 Khaled Mardam-Bey $+ $chr(1) }

    if :FINGER iswm $4- { sw_sales NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Recep Şentürk $+ $chr(1) }

    if $1 == PING { sw_sales PONG $2- }

    if $2 == 376 { sw_sales join 0 | sw_sales join %s_chan }

    if $2 == JOIN && $remove($3,:) == %s_chan && $_nick($1) != %s_nick {

      sw_sales notice $_nick($1) $+(4,%s_chan) 2Kanalımıza Hoş Geldiniz.

      sw_sales notice $_nick($1) 2Oper/Admin/Kanal Fiyatlarını Öğrenmek İçin 4.oper 2veya 2.kanal

      sw_sales notice $_nick($1) 2Kiralanmış Kanalları Listelemek İçin 4.founders

    }

    if $2 == PRIVMSG {

      if $3 == %s_chan {

        if $right($4,-1) == !fekle || $right($4,-1) == .fekle {

          if !$5 || !$6 || !$7 { sw_sales privmsg $3 2Hatalı Kullanım Lütfen 4.fekle #Kanal Founder Cofunder 2Şeklinde Kullanın. | return }

          write foundersc.txt 14[ 4Kanal:2 $5 14|4 Founder:2 $6 14|4 CoFounder:2 $7 14|4 Ekleyen:2 $_nick($1) 14]

          var %yenisifre = $r(10000000,99999999)

          sw_sales cs set $5 founder $6 | sw_sales cs set $5 successor $7 | sw_sales cs set $5 password %yenisifre

          sw_sales privmsg $6  $5 Kanalı Üzerinize Devredilmiştir. Yeni Şifreniz %yenisifre

          sw_sales ms send $5 Kanalı Size Devredilmiştir. Hayırlı Olsun. Yeni Şifresi; %yenisifre

          sw_sales privmsg $3 : $5 Kanalı Founders Listesine Eklenmiştir...

        }

        if $right($4,-1) == !founders || $right($4,-1) == .founders {

          if !$read(foundersc.txt,1) { $_konus 14Founder Kanal Listesinde Kanal Yoktur... | return }

          $_konus 2-= Founders Kanal Listesi =-

          $_konus 

          var %i 1

          while (%i <= $lines(foundersc.txt)) {

            sw_sales privmsg $3 : %i $+ .4) $read(foundersc.txt,%i)

            inc %i

          }

        }

        if $right($4,-1) == !fsil || $right($4,-1) == .fsil {

          write -dl $+ $5 foundersc.txt 

          sw_sales privmsg %s_chan $5 Numaralı Kanal Founders Listesinden Silindi.  

        }

        if $regex($4,/([.!]oper)/Si) || $regex($4,/([.!]admin)/Si) {

          $_konus 2 -= 14Oper/Admin 7Fiyat Listesi2 =-

          $_konus 

          $_konus 14* 4Root Admin2 -2 %root TL

          $_konus 14* 4Network Admin2 - %net TL

          $_konus 14* 4Services Admin2 - %services TL

          $_konus 14* 4Server Admin2 - %server TL

          $_konus 14* 4Co Admin2 - %co TL

          $_konus 14* 4IRC Operator2 - %ircop TL

          $_konus 14* 4Admin List Ekleme2 - %alist TL

          $_konus 14* 4Supass2 - %supass TL

          $_konus 

          $_konus 7Fiyatlarımız 14Aylık 7Cinsindendir.

        }

        if $regex($4,/([.!]kanal)/Si) {

          $_konus 2 -= 14Kanal 7Fiyat Listesi2 =-

          $_konus 

          $_konus 14*4 %k1

          $_konus 14*4 %k2

          $_konus 14*4 %k3

          $_konus 14*4 %k4

          $_konus 14*4 %k5

          $_konus 14*4 %k6

          $_konus 14*4 %k7

          $_konus 14*4 %k8

          $_konus 14*4 %k9

          $_konus 14*4 %k0

          $_konus 

          $_konus 7Fiyatlarımız 14Aylık 7Cinsindendir.

        }

      }

    }

  }

}

alias panel dialog -m salesbt salesbt

dialog salesbt {

  title "Sales Botu # YouMyCure #"

  size -1 -1 278 247

  option dbu

  box " Bot Genel Ayarları ", 1, 5 5 267 41

  edit "", 3, 70 14 50 10

  text "Botun Nicki:", 4, 39 15 32 8

  text "Kanal:", 2, 39 25 32 8

  edit "", 5, 70 25 50 10

  text "Sunucu:", 6, 125 15 32 8

  edit "", 7, 156 14 64 10

  text "Master N.", 8, 125 26 32 8

  edit "", 9, 156 25 64 10

  text "Root Admin Fiyatı:", 10, 12 84 55 8

  edit "", 11, 72 83 50 10

  edit "", 12, 72 92 50 10

  text "Network Admin Fiyatı:", 13, 12 93 55 8

  edit "", 14, 72 101 50 10

  text "Services Admin Fiyatı:", 15, 12 102 55 8

  edit "", 16, 72 110 50 10

  text "Server Admin Fiyatı:", 17, 12 111 55 8

  edit "", 18, 72 119 50 10

  text "Co Admin Fiyatı:", 19, 12 120 55 8

  edit "", 20, 72 128 50 10

  text "IRCOp Fiyatı:", 21, 12 129 55 8

  edit "", 22, 72 137 50 10

  edit "", 23, 72 146 50 10

  text "Admin Liste Ekleme:", 24, 12 138 55 8

  text "Supass Fiyatı:", 25, 12 147 55 8

  box " Adminlik Fiyat Ayarları ", 26, 5 49 127 114

  text "Kullanmak İstemediğiniz Özellik İçin Fiyat Kısmına - Koyunuz.", 27, 14 61 105 16, center

  edit "", 28, 167 57 77 10

  edit "", 29, 167 67 77 10

  edit "", 30, 167 77 77 10

  edit "", 31, 167 87 77 10

  edit "", 32, 167 97 77 10

  edit "", 33, 167 107 77 10

  edit "", 34, 167 117 77 10

  edit "", 35, 167 127 77 10

  edit "", 36, 167 137 77 10

  edit "", 37, 167 147 77 10

  box " Kanal Fiyat Ayarları ", 38, 145 49 127 114

  button "KAYDET !", 39, 7 172 127 33

  button "BAĞLAN / KOPART !", 40, 145 172 127 33

  edit "", 41, 7 213 265 23, read center

  link "YouMyCure - Mirc.PRO", 42, 208 237 66 8

}
 

on *:dialog:salesbt:*:*: {

  if $devent == edit {

    if $did == 28 { set %k1 $did(28) }

    if $did == 29 { set %k2 $did(29) }

    if $did == 30 { set %k3 $did(30) }

    if $did == 31 { set %k4 $did(31) }

    if $did == 32 { set %k5 $did(32) }

    if $did == 33 { set %k6 $did(33) }

    if $did == 34 { set %k7 $did(34) }

    if $did == 35 { set %k8 $did(35) }

    if $did == 36 { set %k9 $did(36) }

    if $did == 37 { set %k0 $did(37) }

    if $did == 7 { set %s_server $did(7) }  

    if $did == 9 { set %s_master $did(9) }

    if $did == 5 { set %s_chan $did(5) }  

    if $did == 3 { set %s_nick $did(3) }

    if $did == 11 { set %root $did(11) }

    if $did == 12 { set %net $did(12) }

    if $did == 14 { set %services $did(14) }

    if $did == 16 { set %server $did(16) }

    if $did == 18 { set %co $did(18) }

    if $did == 20 { set %ircop $did(20) }

    if $did == 22 { set %alist $did(22) }

    if $did == 23 { set %supass $did(23) }

  }

  if $devent == init {

    did -a $dname 28 %k1

    did -a $dname 29 %k2

    did -a $dname 30 %k3

    did -a $dname 31 %k4

    did -a $dname 32 %k5

    did -a $dname 33 %k6

    did -a $dname 34 %k7

    did -a $dname 35 %k8

    did -a $dname 36 %k9

    did -a $dname 37 %k0

    did -a $dname 7 %s_server

    did -a $dname 9 %s_master

    did -a $dname 5 %s_chan

    did -a $dname 3 %s_nick

    did -a $dname 11 %root

    did -a $dname 12 %net

    did -a $dname 14 %services

    did -a $dname 16 %server

    did -a $dname 18 %co

    did -a $dname 20 %ircop

    did -a $dname 22 %alist

    did -a $dname 23 %supass

    if $sock(_sales) { did -r $dname 41 | did -a $dname 41 AKTİF }

    elseif !$sock(_sales) { did -r $dname 41 | did -a $dname 41 DEAKTİF }

  }

  if $devent == sclick {

    if $did == 39 { dialog -x $dname $dname }

    if $did == 40 { 

      if $sock(_sales) { sockclose _sales | did -r $dname 41 | did -a $dname 41 DEAKTİF }

      elseif !$sock(_sales) { sockopen _sales %s_server 6667 | did -r $dname 41 | did -a $dname 41 AKTİF }

    }

  }

}

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

Cevap: SALES Botu.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Tekrar saol kardeşim seviliyorsun.

Cevap: SALES Botu.

Kodda bir sorun olduğunu fark ettik ve güncelledim;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buradan indirebilirsiniz,
kullanmak istemediğiniz özellik için panelde - işaretini kullanınız.

Cevap: SALES Botu.

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1041760567)

Lea ßen Bunu Alt + R Yaptım Remoteye Ekledim Çalıştıramadım ;d
Hele Nasıl Çalışcak Anlat Bi.. ;d

Cevap: SALES Botu.

Alıntı:

No_FeaR Nickli Üyeden Alıntı (Mesaj 1041760888)

Lea ßen Bunu Alt + R Yaptım Remoteye Ekledim Çalıştıramadım ;d
Hele Nasıl Çalışcak Anlat Bi.. ;d

/panel yazip.ilgili yerleri duzenle bağlan a bas çalışır olmazsa pmden team ver bakalım beraber.

SM-N900 cihazımdan Tapatalk kullanılarak gönderildi

Cevap: SALES Botu.

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

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

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

Normal Kullacılar Bot Özelinde Güvenli Giris Yapabilir.

!sifre ( sifre )

SaLeS-Bot> • Sistem yetkili2 sifresi dogrulandi. Giris yapan; Che
[17:10:06] <SaLeS-Bot> • Sistem guvenligi icin 5 dakika icinde isleminizi tamamlayiniz..4 17:10:06 12/06/2016

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:27 -->-> Daha önceki mesaj 17:13 --

Acılıs Paneli

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

Cevap: SALES Botu.

Çok güzel detaylı tasarım bütün salescilere lazım bir bot.

Cevap: SALES Botu.

Tsk ederim.Salescilerde daha iyisi vardır diye düşünüyorum.

Cevap: SALES Botu.

Usta Eline sağLık Güzel Olmusta mIRC Script haLinde Hazır Varsa Linkini atarmıssın Ben anLamıyorumda Kod eKLemeyi.

Cevap: SALES Botu.

o kadarını bilseydi detaylıda anlatırdı bence :))

Cevap: SALES Botu.

mrb sales botuyla ılgılı yardımcı olur musunuz acaba cok acil

Cevap: SALES Botu.

Alıntı:

deniz3925 Nickli Üyeden Alıntı (Mesaj 1041864817)

mrb sales botuyla ılgılı yardımcı olur musunuz acaba cok acil

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

Cevap: SALES Botu.

Şuan Çalışmıyor, Yardımcı Olabilirmisiniz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: SALES Botu.

Alıntı:

EypiO Nickli Üyeden Alıntı (Mesaj 1042181083)

Şuan Çalışmıyor, Yardımcı Olabilirmisiniz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sıkıntı gözükmüyor

Cevap: SALES Botu.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam iki ayrı mircte kurdum panel açılıyor fakat komutlar çalışmıyor