IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

#################
# /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.
#################
Kod:
alias _server return irc.hobichat.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 SaLes

  sockmark $sockname $s_nick

}

on *:sockread:_sales:{

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

  ;if !$window(@SALESBOT) { window -k0 @SALESBOT } | aline -p @SALESBOT $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 }

    }

  }

}