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