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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Kasım 2007, 10:30   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bot u Nasıl Away Yaparım?




Arkadaşlar Ben AntiSpam Bot Kullanıyorum Herşey Güzel Hoş Bi Sorun Yok Sadece Botu (Away) Yapamıyorum Bi Yardımcı Olabilirmisiniz?..

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;# Anti Spam Bot
alias asb {
  if (
$dialog(asb) ) { dialog -o asb dialog -n asb }
  else { 
dialog -m asb asb }
}
if (
$did(83).state == 1) { set %asb.state 1 did -ra asb 83 Bağlan }
else { 
set %asb.state 0 did -ra asb 83 Vazgeç did -ra asb 84 Bağlı Değil }
if (%
asb.state == 1) { asb.start }
else { 
asb.quit }
menu @ASB {
  
Ekranı temizle:.clear
}
dialog asb {
  
title "» aŞk Script AntiSpam Bot"
  
size --1 187 147
  option dbu
  icon dicon
.ico
  tab 
"Ayarlar"10 0 186 133
  box 
"Botun Özellikleri"65 18 84 112tab 1
  text 
"     Başlangıç"729 27 35 8tab 1
  text 
"Nickname"810 37 24 8tab 1
  edit 
""935 36 50 10tab 1 autohs
  text 
"Şifresi"1010 47 23 8tab 1
  edit 
""1135 45 50 10tab 1 autohs
  text 
"     Yedek"1229 63 36 8tab 1
  text 
"Nickname"1310 73 24 8tab 1
  edit 
""1435 72 50 10tab 1 autohs
  text 
"Şifre"1510 83 23 8tab 1
  edit 
""1635 82 50 10tab 1 autohs
  text 
"   Name"1732 99 32 8tab 1
  text 
"Ident"1810 109 12 8tab 1
  edit 
""1935 107 50 10tab 1 autohs
  text 
"Name"2010 117 14 8tab 1
  edit 
""2135 117 50 10tab 1 autohs
  box 
"Listedeki Kanallara Gir"2292 18 91 62tab 1
  
;button "?"627171 27 8 8tab 1 
  combo 23
97 27 60 50tab 1 size
  button 
"Ekle"24159 39 20 10tab 1 
  button 
"Sil"25159 53 20 10tab 1 
  box 
"Yazılı Olan Servera Gir"2792 83 91 47tab 1
  radio 
"Bağlandığım Servera Gir"2896 93 67 10group tab 1
  
;button "?"626171 94 8 8tab 1 
  radio 
""2996 107 9 10tab 1
  edit 
""30105 107 75 11tab 1 autohs
  tab 
"Mesajlar"2
  edit 
""313 17 27 10tab 2 autohs
  text 
"Dakikada Bir Kanaldan Çık"3231 18 120 8tab 2
  edit 
""333 27 27 10tab 2 autohs
  text 
"Dakika Sonra Kanala Tekrar Gir"3431 28 122 8tab 2
  check 
"Reklamları @ASB Penceresine Yaz"354 38 120 10tab 2
  check 
"Reklamları Kanala Yaz"364 49 71 10tab 2
  edit 
""3790 49 50 10tab 2 autohs
  check 
"DCC Gönderimlerini Kanala Yaz"384 60 85 10tab 2
  edit 
""3990 60 50 10tab 2 autohs
  text 
"Reklam Durumunda Banla"404 72 64 8tab 2
  text 
"Kick Mesajları"4175 72 34 8tab 2
  text 
"Dk"42148 72 12 8tab 2
  text 
"Host"43169 72 13 8tab 2
  check 
"DCC"444 78 37 10tab 2
  edit 
""4542 78 104 10tab 2 autohs
  edit 
""46147 78 20 10tab 2 autohs
  edit 
""47168 78 15 10tab 2 autohs
  check 
"Reklam"484 89 29 10tab 2
  edit 
""4942 89 104 10tab 2 autohs
  edit 
""50147 89 20 10tab 2 autohs
  edit 
""51168 89 15 10tab 2 autohs
  check 
"İsim"524 100 26 10tab 2
  edit 
""6142 100 104 10tab 2 autohs
  edit 
""62147 100 20 10tab 2 autohs
  edit 
""63168 100 15 10tab 2 autohs
  check 
"CTCP"644 111 25 10tab 2
  edit 
""6542 111 104 10tab 2 autohs
  edit 
""66147 111 20 10tab 2 autohs
  edit 
""67168 111 15 10tab 2 autohs
  check 
"Kanal"684 122 26 10tab 2
  edit 
""6942 122 104 10tab 2 autohs
  edit 
""71147 122 20 10tab 2 autohs
  edit 
""72168 122 15 10tab 2 autohs
  tab 
"Tanımlar"3
  text 
"Yazı"5369 19 20 14tab 3
  
;button "?"62881 59 8 8tab 3 
  combo 54
7 17 60 55tab 3 sort size edit vsbar
  button 
"Ekle"5569 33 20 10tab 3 
  button 
"Sil"5669 46 20 10tab 3  
  text 
"İsim"5769 78 10 14tab 3
  
;button "?"62981 117 8 8tab 3 
  combo 58
7 75 60 55tab 3 sort size edit vsbar
  button 
"Ekle"5969 91 20 10tab 3 
  button 
"Sil"6069 104 20 10tab 3 
  combo 98
100 17 60 55tab 3 sort size edit vsbar
  button 
"Ekle"99162 33 20 10tab 3 
  button 
"Sil"100162 46 20 10tab 3 
  text 
"Hariç"101162 19 21 8tab 3
  
;button "?"630174 59 8 8tab 3 
  combo 80
100 75 60 55tab 3 sort size edit vsbar
  button 
"Ekle"81162 91 20 10tab 3 
  button 
"Sil"82162 104 20 10tab 3 
  text 
"Kötü Kanal"85162 75 20 14tab 3
  
;button "?"631174 117 8 8tab 3 
  tab 
"Bot Kontrol"4
  text 
"Nick / Kanal"7318 20 40 8tab 4
  edit 
""7417 28 86 10tab 4 autohs
  text 
"Msg"765 40 10 8tab 4
  edit 
""7717 39 86 39tab 4 multi autovs vsbar
  button 
"Mesaj"70107 67 25 10tab 4 
  button 
"Action"78107 56 25 10tab 4 
  button 
"Notice"102107 45 25 10tab 4 
  text 
"Nick Değiş"88110 20 34 8tab 4
  button 
"Değiş"86158 28 25 10tab 4 
  edit 
""87109 28 47 10tab 4 autohs
  text 
"Tüm Kanallardan Çık"902 85 52 8tab 4
  button 
"Şimdi"9162 84 20 10tab 4 
  text 
"Tüm Kanallara Gir"922 97 52 8tab 4
  button 
"Şimdi"9362 96 20 10tab 4 
  text 
"Join / Part İptal"942 109 57 8tab 4
  button 
"Şimdi"9562 108 20 10tab 4 
  check 
"Reklamları Kaydet"9691 84 55 10tab 4
  check 
"DCC`leri Kaydet "9791 96 50 9tab 4
  button 
"Oku"103148 84 20 10tab 4 
  button 
"Oku"104148 96 20 10tab 4 
  check 
"Kanal Sayısı"10591 108 91 9tab 4
  edit 
""10690 119 15 10tab 4 autohs
  text 
"Üstü İse Girenleri Özelden Uyar"107105 120 80 8tab 4
  button 
"Cancel"26192 122 10 9hide cancel 
  check 
"OFF"833 136 22 10push 
  edit 
""8429 136 157 11read autohs
}
on *:dialog:asb:init:*: {
  
did -a asb 9 %asb.nick1
  did 
-a asb 11 %asb.pass1
  did 
-a asb 14 %asb.nick2
  did 
-a asb 16 %asb.pass2
  did 
-a asb 19 %asb.ident
  did 
-a asb 21 %asb.name
  did 
-a asb 30 %asb.selserv.spec
  did 
-a asb 31 %asb.join
  did 
-a asb 33 %asb.part
  did 
-a asb 37 %asb.repspamto.spec
  did 
-a asb 39 %asb.repdccto.spec
  did 
-a asb 45 %asb.dcckb.msg
  did 
-a asb 46 %asb.dcckb.mins
  did 
-a asb 47 %asb.dcckb.mask
  did 
-a asb 49 %asb.spamkb.msg
  did 
-a asb 50 %asb.spamkb.mins
  did 
-a asb 51 %asb.spamkb.mask
  did 
-a asb 61 %asb.namekb.msg
  did 
-a asb 62 %asb.namekb.mins
  did 
-a asb 63 %asb.namekb.mask
  did 
-a asb 65 %asb.ctcpkb.msg
  did 
-a asb 66 %asb.ctcpkb.mins
  did 
-a asb 67 %asb.ctcpkb.mask
  did 
-a asb 69 %asb.spamchanskb.msg
  did 
-a asb 71 %asb.spamchanskb.mins
  did 
-a asb 72 %asb.spamchanskb.mask
  did 
-a asb 106 %asb.badchans.n
  
if (%asb.repme == 1) { did -c asb 35 }
  if (%
asb.repspamto == 1) { did -c asb 36 }
  if (%
asb.repdccto == 1) { did -c asb 38 }
  if (%
asb.dcckb == 1) { did -c asb 44 }
  if (%
asb.spamkb == 1) { did -c asb 48 }
  if (%
asb.namekb == 1) { did -c asb 52 }
  if (%
asb.ctcpkb == 1) { did -c asb 64 }
  if (%
asb.spamchanskb == 1) { did -c asb 68 }
  if (%
asb.logspam == 1) { did -c asb 96 }
  if (%
asb.logdcc == 1) { did -c asb 97 }
  if (%
asb.autohi == 1) { did -c asb 105 }
  if (%
asb.selserv == ) { did -c asb 28 }
  else { 
did -c asb 29 }
  if (%
asb.state == ) { did -c asb 83 did -a asb 83 ON asb.echostatus }
  else { 
did -a asb 84 Disconnected }
  
asb.load.chans
  asb
.load.spamwords
  asb
.load.names
  asb
.load.immune
  asb
.load.badchans
}
on *:dialog:asb:sclick:*: {
  if (
$did == 83) {
    if (
$did(83).state == 1) { set %asb.state 1 did -ra asb 83 ON }
    else { 
set %asb.state 0 did -ra asb 83 OFF did -ra asb 84 Disconnected }
    if (%
asb.state == 1) { asb.start }
    else { 
asb.quit }
  }
  if (
$did == 626) { /dialog -m yardim26 yardim26 }
  if (
$did == 627) { /dialog -m yardim27 yardim27 }
  if (
$did == 628) { /dialog -m yardim28 yardim28 }
  if (
$did == 629) { /dialog -m yardim29 yardim29 }
  if (
$did == 630) { /dialog -m yardim30 yardim30 }
  if (
$did == 631) { /dialog -m yardim27 yardim31 }
  if (
$did == 28) { set %asb.selserv 0 }
  if (
$did == 29) { set %asb.selserv 1 }
  if (
$did == 35) {
    if (
$did(35).state == 1) { set %asb.repme 1 }
    else { 
set %asb.repme 0 }
  }
  if (
$did == 36) {
    if (
$did(36).state == 1) { set %asb.repspamto 1 }
    else { 
set %asb.repspamto 0 }
  }
  if (
$did == 38) {
    if (
$did(38).state == 1) { set %asb.repdccto 1 
    else { 
set %asb.repdccto 0 }
  }
  if (
$did == 103) { if ($isfile($scriptdirasb.spamlog.txt)) { run $scriptdirasb.spamlog.txt } }
  if (
$did == 104) { if ($isfile($mircdirasb.dcclog.txt)) { run $scriptdirasb.dcclog.txt } }
  if (
$did == 96) {
    if (
$did(96).state == 1) { set %asb.logspam 1 
    else { 
set %asb.logspam 0 }
  }
  if (
$did == 97) {
    if (
$did(97).state == 1) { set %asb.logdcc 1 
    else { 
set %asb.logdcc 0 }
  }
  if (
$did == 105) {
    if (
$did(105).state == 1) { set %asb.autohi 1 
    else { 
set %asb.autohi 0 }
  }
  if (
$did == 93) {
    if (
$sock(asb)) {
      
asb.joinchans
    
}
  }
  if (
$did == 91) {
    if (
$sock(asb)) {
      
asb.partchans
    
}
  }
  if (
$did == 95) {
    if (
$sock(asb)) {
      .
timerstayjoined off
      
.timerstayparted off
      
echo -a 42Anti Inviter Bot Bulunduğu Kanallarda Join Part Yapmayacak 4]
    }
  }
  if (
$did == 44) {
    if (
$did(44).state == 1) { set %asb.dcckb 1 }
    else { 
set %asb.dcckb 0 }
  }
  if (
$did == 48) {
    if (
$did(48).state == 1) { set %asb.spamkb 1 }
    else { 
set %asb.spamkb 0 }
  }
  if (
$did == 52) {
    if (
$did(52).state == 1) { set %asb.namekb 1 }
    else { 
set %asb.namekb 0 }
  }
  if (
$did == 64) {
    if (
$did(64).state == 1) { set %asb.ctcpkb 1 }
    else { 
set %asb.ctcpkb 0 }
  }
  if (
$did == 68) {
    if (
$did(68).state == 1) { set %asb.spamchanskb 1 }
    else { 
set %asb.spamchanskb 0 }
  }
  if (
$did == 24) {
    var %
chan $did(23).text
    
if (%chan == $null) { halt }
    if (
$chr(32isin %chan) { halt }
    if (
$chr(44isin %chan) { halt }
    if (
$left(%chan,1) == $chr(35)) { }
    elseif (
$left(%chan,1) == $chr(38)) { }
    else { var %
chan $chr(35) $+ %chan }
    
set %asb.chans $addtok(%asb.chans,%chan,44)
    
asb.load.chans
  
}
  if (
$did == 25) { 
    if (
$did(23).sel == $null) { halt }
    var %
chan $did(23$did(23).sel)
    
set %asb.chans $deltok(%asb.chans,$findtok(%asb.chans,%chan,1,44),44)
    
asb.load.chans
  
}
  if (
$did == 55) {
    var %
word $did(54).text
    
if (%word == $null) { halt }
    if (
$chr(32isin %word) { halt }
    if (
$chr(44isin %word) { halt }
    
set %asb.spamwords $addtok(%asb.spamwords,%word,44)
    
asb.load.spamwords
  
}
  if (
$did == 56) { 
    if (
$did(54).sel == $null) { halt }
    var %
word $did(54$did(54).sel)
    
set %asb.spamwords $deltok(%asb.spamwords,$findtok(%asb.spamwords,%word,1,44),44)
    
asb.load.spamwords
  
}
  if (
$did == 59) {
    var %
word $did(58).text
    
if (%word == $null) { halt }
    if (
$chr(32isin %word) { halt }
    if (
$chr(44isin %word) { halt }
    
set %asb.names $addtok(%asb.names,%word,44)
    
asb.load.names
  
}
  if (
$did == 60) { 
    if (
$did(58).sel == $null) { halt }
    var %
word $did(58$did(58).sel)
    
set %asb.names $deltok(%asb.names,$findtok(%asb.names,%word,1,44),44)
    
asb.load.names
  
}
  if (
$did == 99) {
    var %
word $did(98).text
    
if (%word == $null) { halt }
    if (
$chr(32isin %word) { halt }
    if (
$chr(44isin %word) { halt }
    
set %asb.immune $addtok(%asb.immune,%word,44)
    
asb.load.immune
  
}
  if (
$did == 100) { 
    if (
$did(98).sel == $null) { halt }
    var %
word $did(98$did(98).sel)
    
set %asb.immune $deltok(%asb.immune,$findtok(%asb.immune,%word,1,44),44)
    
asb.load.immune
  
}
  if (
$did == 86) {
    if ((
$did(87).text != $null) && ($chr(32) !isin $did(87).text)) { sockwrite -n asb NICK : $+ $did(87).text }
  }
  if ((
$did == 70) || ($did == 78) || ($did == 102)) {
    if (
$sock(asb)) {
      if ((
$did(74).text != $null) && ($did(77).text != $null) && ($chr(32) !isin $did(74).text)) { 
        var %
$did(77).lines
        
var %1
        
while (%<= %l) {
          var %
asb.txtmsg = %asb.txtmsg $did(77,%n).text
          inc 
%n
        
}
        if (
$did == 70) { sockwrite -n asb PRIVMSG $did(74).text  : $+ %asb.txtmsg }
        elseif (
$did == 78) { sockwrite -n asb PRIVMSG $did(74).text  : $+ ACTION %asb.txtmsg $+  }
        elseif (
$did == 102) { sockwrite -n asb NOTICE $did(74).text  : $+ %asb.txtmsg }
        if (%
asb.repme == 1) { window -@ASB | echo -@ASB 4YOU » $did(74).text ( $+ %asb.txtmsg $+ 4) }
      }
    } 
  }
  if (
$did == 81) {
    var %
chan $did(80).text
    
if (%chan == $null) { halt }
    if (
$chr(32isin %chan) { halt }
    if (
$chr(44isin %chan) { halt }
    if (
$left(%chan,1) == $chr(35)) { }
    elseif (
$left(%chan,1) == $chr(38)) { }
    else { var %
chan $chr(35) $+ %chan }
    
set %asb.badchans $addtok(%asb.badchans,%chan,32)
    
asb.load.badchans
  
}
  if (
$did == 82) { 
    if (
$did(80).sel == $null) { halt }
    var %
chan $did(80$did(80).sel)
    
set %asb.badchans $deltok(%asb.badchans,$findtok(%asb.badchans,%chan,1,32),32)
    
asb.load.badchans
  
}
}
on *:dialog:asb:edit:*: {
  if (
$did == 9) { set %asb.nick1 $did(9).text }
  if (
$did == 11) { set %asb.pass1 $did(11).text }
  if (
$did == 14) { set %asb.nick2 $did(14).text }
  if (
$did == 16) { set %asb.pass2 $did(16).text }
  if (
$did == 19) { set %asb.ident $did(19).text }
  if (
$did == 21) { set %asb.name $did(21).text }
  if (
$did == 30) { set %asb.selserv.spec $did(30).text }
  if (
$did == 37) { set %asb.repspamto.spec $did(37).text }
  if (
$did == 39) { set %asb.repdccto.spec $did(39).text }
  if (
$did == 31) { 
    if (
$did(31).text !isnum && $did(31)) { did -r asb 31 | if (%asb.join) { did -a asb 31 %asb.join } }
    else { 
set %asb.join $did(31).text 
  }
  if (
$did == 33) { 
    if (
$did(33).text !isnum && $did(33)) { did -r asb 33 | if (%asb.part) { did -a asb 33 %asb.part } }
    else { 
set %asb.part $did(33).text }
  }
  if (
$did == 106) { 
    if (
$did(106).text !isnum && $did(106)) { did -r asb 106 | if (%asb.badchans.n) { did -a asb 106 %asb.badchans.} }
    else { 
set %asb.badchans.n $did(106).text }
  }
  if (
$did == 45) { set %asb.dcckb.msg $did(45).text }
  if (
$did == 46) { set %asb.dcckb.mins $did(46).text }
  if (
$did == 47) { set %asb.dcckb.mask $did(47).text }
  if (
$did == 49) { set %asb.spamkb.msg $did(49).text }
  if (
$did == 50) { set %asb.spamkb.mins $did(50).text }
  if (
$did == 51) { set %asb.spamkb.mask $did(51).text }
  if (
$did == 61) { set %asb.namekb.msg $did(61).text }
  if (
$did == 62) { set %asb.namekb.mins $did(62).text }
  if (
$did == 63) { set %asb.namekb.mask $did(63).text }
  if (
$did == 65) { set %asb.ctcpkb.msg $did(65).text }
  if (
$did == 66) { set %asb.ctcpkb.mins $did(66).text }
  if (
$did == 67) { set %asb.ctcpkb.mask $did(67).text }
  if (
$did == 69) { set %asb.spamchanskb.msg $did(69).text }
  if (
$did == 71) { set %asb.spamchanskb.mins $did(71).text }
  if (
$did == 72) { set %asb.spamchanskb.mask $did(72).text }
}
alias -l asb.load.chans {
  var %
totalchans $numtok(%asb.chans,44)
  var %
n 1
  did 
-r asb 23
  
while (%<= %totalchans) { did -a asb 23 $gettok(%asb.chans,%n,44) | inc %}
}
alias -l asb.load.spamwords {
  var %
totalwords $numtok(%asb.spamwords,44)
  var %
n 1
  did 
-r asb 54
  
while (%<= %totalwords) { did -a asb 54 $gettok(%asb.spamwords,%n,44) | inc %}
}
alias -l asb.load.names {
  var %
totalwords $numtok(%asb.names,44)
  var %
n 1
  did 
-r asb 58
  
while (%<= %totalwords) { did -a asb 58 $gettok(%asb.names,%n,44) | inc %}
}
alias -l asb.load.immune {
  var %
totalwords $numtok(%asb.immune,44)
  var %
n 1
  did 
-r asb 98
  
while (%<= %totalwords) { did -a asb 98 $gettok(%asb.immune,%n,44) | inc %}
}
alias -l asb.load.badchans {
  var %
totalbadchans $numtok(%asb.badchans,32)
  var %
n 1
  did 
-r asb 80
  
while (%<= %totalbadchans) { did -a asb 80 $gettok(%asb.badchans,%n,32) | inc %}
}
alias asb.start {
  
asb.unset.session
  set 
%asb.state 1
  
echo -a 42Anti Inviter Bot bağlanıyorLütfen bekleyiniz.. 4]
  if (
$sock(asb)) { sockclose asb }
  elseif (
$sock(asbident)) { sockclose asbident }
  if (%
asb.selserv == 0) { 
    if (
$server == $null) { echo -a 4[2 Hiçbir sunucuya bağlı değilsiniz4] | asb.quit halt }
    else { if (
$portfree(113)) { socklisten asbident 113 } | sockopen asb $server $port }
  }
  else {
    if (%
asb.selserv.spec == $null) { echo -a 4 $+ No Server Specified.  Please fill in that field in the Anti Spam Bot Dialog. | asb.quit halt }
    if (
$portfree(113)) { socklisten asbident 113 }
    if (
$numtok(%asb.selserv.spec,32) == 1) { echo -a 1 Bağlantı Kurulamadı Bir Boşluk Bırakarak Portu Yazın halt } | asb %asb.selserv.spec
  
}
}
on *:sockopen:asb:{
  
sockwrite -n asb NICK %asb.nick1
  sockwrite 
-n asb USER %asb.ident . . %asb.name
}
on *:socklisten:asbident: {
  var %
_r $r(1,500)
  
sockaccept asbident_ [ $+ [ %_r ] ]
  
sockclose asbident
}
on *:sockclose:asb: {
  
asb.quit
}
on *:sockread:asb*: {
  
sockread %asb.temp.sockread
  tokenize 32 
%asb.temp.sockread
  
;echo -$1-
  var %
$numtok($1-,44)
  if (%
== && $1,$3 isnum) {
    
sockwrite -n $sockname $, $USERID UNIX : %asb.ident
  
}
  if ($
== PING && $2) { sockwrite -n $sockname PONG $2- }
  if ($
== 376) { sockclose asbident | /sockwrite -n asb identify botunnick şifresi  sockwrite -n asb umode -Eep set %asb.curnick $set %asb.curserv $right($1,$calc($len($1) - 1)) | set %asb.curport $sock($sockname).port asb.echostatus | echo -a 42Anti Inviter Bot Servera Bağlandı4]  | .timer 0 30 /timers off | .timer 1 5 asb.joinchans }
  if ($
== 319) {
    if ($
== %asb.curnick) { set %asb.curchans $right($5-,$calc($len($5-) - 1)) | set %asb.curchansn $numtok(%asb.curchans,32) }
    else {
      unset %
asb.spamchans
      
var %spamchans $right($5-,$calc($len($5-) - 1))
      var %
$numtok(%spamchans,32)
      var %
1
      
while (%<= %n) {
        var %
cur $gettok(%spamchans,%c,32)
        if ((
$left(%cur,1) == @) || ($left(%cur,1) == +) || ($left(%cur,1) == -) || ($left(%cur,1) == .)) { var %cur $right(%cur,$calc($len(%cur) - 1)) }
        var %
= %cur %d
        inc 
%c
      
}
      
set %asb.spamchans %d
      
if ($numtok(%asb.spamchans,32) >= %asb.badchans.n) { .timer -o 1 25 sockwrite -n asb PRIVMSG $4  : $+ Kanala Hoşgeldin Lütfen Reklam VbHareketlerde Bulunmayınız | if (%asb.repme == 1) { .timer -o 1 25 window -@ASB | .timer -o 1 25 echo -@ASB 4YOU » $( $+ hi $+ 4) } }
    }
  }
  if ($
== 318) { asb.echostatus }
  if ($
== 311) { set %asb.checkspammask $$+ ! $+ $$+ @ $+ $| .timer -m 1 500 asb.joinwho $1- }
  if ($
== 433) {
    if ($
== %asb.nick1) { sockwrite -n $sockname NICK %asb.nick2 }
    else { 
sockwrite -n $sockname NICK Guest 
  }
  if ((
$gettok(%asb.temp.sockread,2,32) == NOTICE) && ($gettok(%asb.temp.sockread,3,32) == %asb.curnick)) {
    ;;; 
HANDLE NICKS
    
if (*nick*owned*someoneiswm $4-) {
      if (%
asb.nick1 == $3) { sockwrite -n asb nickserv identify %asb.nick1 %asb.pass1 
      elseif (%
asb.nick2 == $3) { sockwrite -n asb nickserv identify %asb.nick2 %asb.pass2 }
    }
    ;;; 
CHECK NOTICE SPAM
    set 
%asb.checkspam $gettok($right($1,$calc($len($1) - 1)),1,33$right($4-,$calc($len($4-) - 1)) | set %asb.checkspammask $right($1,$calc($len($1) - 1)) | set %asb.nmsg n asb.checkspam 
  
}
  if (($
== PRIVMSG) && ($== %asb.curnick) && (DCC SEND !isin $4-)) { set %asb.checkspam $gettok($right($1,$calc($len($1) - 1)),1,33$right($4-,$calc($len($4-) - 1)) | set %asb.checkspammask $right($1,$calc($len($1) - 1)) | set %asb.nmsg msg asb.checkspam }
  if (($
== NICK) && ($gettok($right($1,$calc($len($1) - 1)),1,33) == %asb.curnick)) { set %asb.curnick $right($3,$calc($len($3) - 1)) | asb.echostatus }
  if (($
== PART) && ($gettok($right($1,$calc($len($1) - 1)),1,33) == %asb.curnick)) { dec %asb.curchansn set %asb.curchans $deltok(%asb.curchans,$findtok(%asb.curchans,$3,1,44),44) | asb.echostatus }
  if ($
== JOIN) {
    if (
$gettok($right($1,$calc($len($1) - 1)),1,33) == %asb.curnick) { inc %asb.curchansn set %asb.curchans $addtok(%asb.curchans,$right($3,$calc($len($3) - 1)),44) | asb.echostatus }
    elseif ((%
asb.namekb == 1) || (%asb.spamchanskb == 1) || (%asb.autohi == 1)) { if (%asb.whois != 1) { sockwrite -n asb whois $gettok($right($1,$calc($len($1) - 1)),1,33) | set %asb.whois 1 | .timerasbwhois -o 1 3 asb.check.whoisflood } }
  }
  if (($
== KICK) && ($== %asb.curnick)) { dec %asb.curchansn set %asb.curchans $deltok(%asb.curchans,$findtok(%asb.curchans,$3,1,44),44) | asb.echostatus }
}
alias asb.quit {
  
sockclose asb
  sockclose asbident
  
echo -a 42Anti Inviter Bot IRC'den çıktı! 4]
  if ($dialog(asb)) {
    did -u asb 83
    did -ra asb 83 OFF
    did -ra asb 84 Disconnected
  }
  asb.unset.session
}
alias asb.quit {
  sockclose asb
  sockclose asbident
  echo -a 4[2 $+ Anti Inviter Bot sunucudan ayrıldı. (Disconnect) 4]
  if ($dialog(asb)) {
    did -u asb 83
    did -ra asb 83 OFF
    did -ra asb 84 Disconnected
  }
  asb.unset.session
}
alias asb.status {
  ;; use /asb.status -a    to echo it to the active window (without the dialog)
  if ($sock(asb)) {
    if (%asb.curserv != $null) {
      sockwrite -n asb whois %asb.curnick
      if ($1 == -a) { set %asb.echostatus 1 }
    }
  }
  else {
    if ($1 == -a) { set %asb.echostatus 1 }
    asb.echostatus 
  }
}
alias asb.echostatus {
  if (%asb.curchansn == $null) { set %asb.curchansn 0 }
  set %asb.status %asb.curserv ]|[ %asb.curnick ]|[ %asb.curchansn Chans
  if (%asb.curserv != $null) { if ($dialog(asb)) { did -ra asb 84 %asb.status } }
  if (%asb.curchansn > 0) { var %asb.status = %asb.status - %asb.curchans }
  if (%asb.echostatus == 1) { 
    if (%asb.state == 1) { echo -a 4 $+ %asb.status }
    else { echo -a 4 $+ Disconnected }
    set %asb.echostatus 0
  }
}
on *:START: {
  asb.unset.session
}
alias asb.joinwho {
  ;;;;; BAD NAMES
  if (%asb.nameskb == 0) { goto badchans }
  var %n = 1
  var %totalwords $numtok(%asb.names,44)
  while (%n <= %totalwords) {
    if ($gettok(%asb.names,%n,44) iswm $right($strip($8-,burc),$calc($len($strip($8-,burc)) - 1))) {
      if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4BAD NAME - $4 ( $+ $gettok(%asb.names,%n,44) 4» $right($strip($8-,burc),$calc($len($strip($8-,burc)) - 1)) $+ 4) }
      var %ni = 1
      var %t = $numtok(%asb.immune,44)
      while (%ni <= %t) {
        if ($gettok(%asb.immune,%ni,44) iswm %asb.checkspammask) { badchans }
        inc %ni
      }
      var %ct = $chan(0)
      var %cn = 1
      while (%cn <= %ct) {
        if (($4 ison $chan(%cn)) && ($me isop $chan(%cn))) {
          ban -u $+ $calc(%asb.namekb.mins * 60) $chan(%cn) $4 %asb.namekb.mask
          kick $chan(%cn) $4 %asb.namekb.msg %isim
        }
        inc %cn
      }
    }
    inc %n
  }
  ;;;; BAD CHANNELS
  :badchans
  if (%asb.spamchanskb == 0) { goto end }
  if ($asb.chancompare(%asb.spamchans,%asb.badchans) == $true) { 
    if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4BAD CHAN - $4 ( $+ %asb.temp.badchan $+ 4) }
    var %ni = 1
    var %t = $numtok(%asb.immune,44)
    while (%ni <= %t) {
      if ($gettok(%asb.immune,%ni,44) iswm %asb.checkspammask) { goto end }
      inc %ni
    }
    var %ct = $chan(0)
    var %cn = 1
    while (%cn <= %ct) {
      if (($4 ison $chan(%cn)) && ($me isop $chan(%cn))) {
        ban -u $+ $calc(%asb.spamchanskb.mins * 60) $chan(%cn) $4 %asb.spamchanskb.mask
        kick $chan(%cn) $4 %asb.spamchanskb.msg %isim
      }
      inc %cn
    }
  }
  :end
  unset %asb.temp.badchan
}
alias asb.chancompare {
  var %n = 1
  var %t = $numtok(%asb.spamchans,32)
  while (%n <= %t) {
    if ($istok($2,$gettok(%asb.spamchans,%n,32),32)) { set %asb.temp.badchan $gettok(%asb.spamchans,%n,32) | return $true }
    inc %n
  }
  return $false
}
alias asb.check.flood {
  dec %asb.flood
  if (%asb.flood < 0) { .timerasbflooddec off | set %asb.flood 0 }
}
alias asb.check.whoisflood {
  if (%asb.whois == 1) { .timerasbwhois off | set %asb.whois 0 }
}
alias asb.checkspam {
  tokenize 32 %asb.checkspam
  inc %asb.flood
  .timerasbflooddec -o 0 5 asb.check.flood
  if (%asb.flood >= 5) { if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4SILENCE - $1 ( $+ $mask(%asb.checkspammask,4) $+ 4) - 60 Secs } | sockwrite -n asb SILENCE $mask(%asb.checkspammask,4) | .timerasbflood -o 1 60 sockwrite -n asb SILENCE - $+ $mask(%asb.checkspammask,4) }
  if ((nickserv isin $1) || (chanserv isin $1) || (memoserv isin $1)) || (%asb.curserv == $1) { halt }
  if ( isin $2) {
    if (ACTION == $2) { goto actionspam }
    else { 
      if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4CTCP - $1 ( $+ $left($right($2-,$calc($len($2-) - 1)),$calc($len($right($2-,$calc($len($2-) - 1))) - 1)) $+ 4) }
      var %n = 1
      var %t = $numtok(%asb.immune,44)
      while (%n <= %t) {
        if ($gettok(%asb.immune,%n,44) iswm %asb.checkspammask) { goto end }
        inc %n
      }
      var %ct = $chan($me)
      var %cn = 1
      while (%cn <= %ct) {
        if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%asb.ctcpkb == 1)) {
          ban -u $+ $calc(%asb.ctcpkb.mins * 60) $chan(%cn) $1 %asb.ctcpkb.mask
          kick $chan(%cn) $1 %asb.ctcpkb.msg %isim
        }
        inc %cn
      }
    }
    goto afteractionspam
    :actionspam
    if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4ACTION - $1 ( $+ $left($3-,$calc($len($3-) - 1)) $+ 4) }
    var %n = 1
    var %t = $numtok(%asb.immune,44)
    while (%n <= %t) {
      if ($gettok(%asb.immune,%n,44) iswm %asb.checkspammask) { goto end }
      inc %n
    }
    $asb.checkspamwords($1,$2-)
    :afteractionspam
  }
  elseif (($2 == DCC) && ($3 == Send)) { 
    if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4DCC SEND - $1 ( $+ $4 $+ 4) }
    var %n = 1
    var %t = $numtok(%asb.immune,44)
    while (%n <= %t) {
      if ($gettok(%asb.immune,%n,44) iswm %asb.checkspammask) { goto end }
      inc %n
    }
    if ((%asb.repdccto == 1) && (%asb.repdccto.spec != $null)) { sockwrite -n asb privmsg %asb.repdccto.spec $1 $4 }
    if (%asb.logspam == 1) { write $scriptdirasb.dcclog.txt TIME: $date - $time | write $scriptdirasb.dcclog.txt SENDER: %asb.checkspammask | write $scriptdirasb.dcclog.txt AD: $gettok(%asb.checkspam,2-,32) | write -i $scriptdirasb.dcclog.txt | write $scriptdirasb.dcclog.txt 7============================================================== | write -i $scriptdirasb.dcclog.txt }
    var %ct = $chan($me)
    var %cn = 1
    while (%cn <= %ct) {
      if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%asb.dcckb == 1)) {
        ban -u $+ $calc(%asb.dcckb.mins * 60) $chan(%cn) $1 %asb.dcckb.mask
        kick $chan(%cn) $1 %asb.dcckb.msg %isim
      }
      inc %cn
    }
  }
  elseif (%asb.nmsg == msg) {
    if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4MSG - $1 ( $+ $2- $+ 4) }
    var %n = 1
    var %t = $numtok(%asb.immune,44)
    while (%n <= %t) {
      if ($gettok(%asb.immune,%n,44) iswm %asb.checkspammask) { goto end }
      inc %n
    }
    $asb.checkspamwords($1,$2-)
  }
  elseif (%asb.nmsg == n) {
    if (%asb.repme == 1) { window -e @ASB | echo -t @ASB 4NOTICE - $1 ( $+ $2- $+ 4) }
    var %n = 1
    var %t = $numtok(%asb.immune,44)
    while (%n <= %t) {
      if ($gettok(%asb.immune,%n,44) iswm %asb.checkspammask) { goto end }
      inc %n
    }
    $asb.checkspamwords($1,$2-)
  }
  :end
}
alias asb.checkspamwords {
  var %botchans = $numtok(%asb.chans,44)
  var %bc = 1
  while (%bc <= %botchans) {
    if ($gettok(%asb.chans,%bc,44) isin $2) { goto end }
    inc %bc
  }
  var %n = 1
  var %totalwords $numtok(%asb.spamwords,44)
  while (%n <= %totalwords) {
    if ($gettok(%asb.spamwords,%n,44) iswm $2) {
      if ((%asb.repspamto == 1) && (%asb.repspamto.spec != $null)) { sockwrite -n asb privmsg %asb.repspamto.spec $1- }
      if (%asb.logspam == 1) { write $scriptdirasb.spamlog.txt TIME: $date - $time | write $scriptdirasb.spamlog.txt SPAMMER: %asb.checkspammask | write $scriptdirasb.spamlog.txt AD: $gettok(%asb.checkspam,2-,32) | write -i $scriptdirasb.spamlog.txt | write $scriptdirasb.spamlog.txt 7============================================================== | write -i $scriptdirasb.spamlog.txt }
      var %ct = $chan(0)
      var %cn = 1
      while (%cn <= %ct) {
        if (($numtok(%asb.curchans,44) == 1) && ($me isop $gettok(%asb.curchans,1,44)) && ($1 !ison $gettok(%asb.curchans,1,44))) { set %asb.didkb 1 | ban -u $+ $calc(%asb.spamkb.mins * 60) $gettok(%asb.curchans,1,44) %asb.checkspammask %asb.spamkb.mask | goto end }
        if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%asb.spamkb == 1)) {
          ban -u $+ $calc(%asb.spamkb.mins * 60) $chan(%cn) $1 %asb.spamkb.mask
          kick $chan(%cn) $1 %asb.spamkb.msg %isim
          set %asb.didkb 1
        }
        inc %cn
      }
    }
    if (%asb.didkb == 1) { goto end }
    inc %n
  }
  :end
  set %asb.didkb 0
}
alias asb.joinchans {
  var %n = $numtok(%asb.chans,44)
  var %c = 1
  if (%n > 0) {
    while (%c <= %n) {
      if (%asb.curnick !ison $gettok(%asb.chans,%c,44)) {
        set %asb.flood 0 | sockwrite -n asb join $gettok(%asb.chans,%c,44)
      }
      inc %c
    }
  }
  set %asb.jp 0
  set %asb.flood 0
  .timerasbstayjoined -o 1 $calc(%asb.join * 60) asb.partchans
}
alias asb.partchans {
  var %n = $numtok(%asb.curchans,44)
  var %c = 1
  if (%n > 0) {
    while (%c <= %n) {
      var %cur = $gettok(%asb.curchans,%c,44)
      if (($left(%cur,1) == @) || ($left(%cur,1) == +) || ($left(%cur,1) == -) || ($left(%cur,1) == .)) { var %cur = $right(%cur,$calc($len(%cur) - 1)) }
      set %asb.flood 0 | sockwrite -n asb part %cur
      inc %c
    }
  }
  set %asb.jp 1
  set %asb.flood 0
  .timerasbstayparted -o 1 $calc(%asb.part * 60) asb.joinchans
}
alias asb.unset.session {
  set %asb.state 0
  unset %asb.curserv
  unset %asb.curport
  unset %asb.curchansn
  unset %asb.curchans
  unset %asb.curnick
  unset %asb.temp*
  unset %asb.status
  unset %asb.nmsg
  unset %asb.checkspam*
  unset %asb.spamchans
  set %asb.echostatus 0
  .timerasbstayjoined off
  .timerasbstayparted off
  .timerasbwhois off
  .timerasbflood* off
  set %asb.flood 0
  set %asb.whois 0


Asb Bu Sunucuya Girdiğinde Otomatik olarak

/Away Ben Bir AntiSpam Botum Lütfen Mesaj Yazmayınız Aksi Halde Kanallardan Uzaklaştırılabilirsiniz.!!

Bu Komut u Nasıl Uygulatırım ? /timer falan calıstırmaya calıstım olmadı ...;(

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 22 Kasım 2007, 12:26   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Bot u Nasıl Away Yaparım?




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:asb:{ sockwrite -n asb NICK %asb.nick1 sockwrite -n asb USER %asb.ident . . %asb.name

Bu kısma

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
sockwrite -n asb away Ben bir Botum Falan filan

satırını ekle ...sanırım yalnızca away konumuna geçirmek istiyorsun..timer kısmını anlamadım ..

 
Alıntı ile Cevapla

Alt 22 Kasım 2007, 13:17   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bot u Nasıl Away Yaparım?




üstad ekLedim ama oLmadı ;(

 
Alıntı ile Cevapla

Alt 22 Kasım 2007, 15:59   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bot u Nasıl Away Yaparım?




Bot bağlıyken; /sockwrite -n asb away sebeb.
Yaparsan olucaktır.

 
Alıntı ile Cevapla

Cevapla

Etiketler
away, bot, mirc, mirc download, mirc indir, nasil, nasıl, yaparim, yaparım


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 Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hub Link Nasıl Yaparım ByQuIeT Unreal IRCd 1 10 Aralık 2010 19:02
Bunu nasıl yaparım ? buneya Unreal IRCd 1 24 Ekim 2008 19:06
Bunu nasıl yaparım? almina vBulletin Sorunları ve Çözümleri 3 02 Aralık 2007 22:43
Else nasıl yaparım? away mIRC Scripting Sorunları 4 17 Mart 2007 18:22
nasıl bot yaparım (bs degil) mRN Servisler 6 26 Nisan 2006 09:01