mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 23 Kasım 2016, 12:24
Che - ait Kullanıcı Resmi (Avatar)
Che Che isimli Üye şimdilik offline konumundadır

mS Puan: 1
mS Derece: Che
 
Üyelik tarihi: 19 Ağustos 2015
Bulunduğu yer: Ankara
Mesajlar: 38
Konular: 38
Eklentiler: 1
Alınan Teşekkür: 4
Yapılan Teşekkür: 2
Post Socket BNC System

Kod:
alias bncnick return Che
alias bbotnick return BNC-System
alias bnickpass return 12345
alias bopers return Che 123456
alias bsupass return 123456
alias masterchan return #opers
alias masternickler return Che
alias bsunucu return irc.gevezeyiz.net 6667
alias sunucuident return 06
alias chanlar return #sohbet,#opers,#radyo,#yarisma,#oyun

alias bncekle {
  if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $1 Botun Gircegi Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt }
  if $read(bnc.txt,w,$+(*,$2,*))  { sw $sockname privmsg $1  $2  Zaten Eskiden listede Ekli! | halt }
  if ($3 == $null) { sw $sockname privmsg $1 Botun Gircegi Nickin Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt }
  if ($4 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt }  
  if ($5 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz  | halt }
  write bnc.txt $2-
  sw $sockname privmsg $1  BNC Sistem Ayarlariniz Kayit Edilmistir.
  sw $sockname privmsg $1 -
  sw $sockname privmsg $1 [BNC Nick] $2
  sw $sockname privmsg $1 [BNC Sifre] $3
  sw $sockname privmsg $1 [BNC Opers Rumuz] $4 [BNC Opers Sifre] $5
  if ($6) { sw $sockname privmsg $1 [BNC Nick Host] $6 }
  sw $sockname privmsg $masterchan  $2  BNC Systemi eklendi
}

alias bncsil {
  if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $1 Nicki Yazmayi Unuttunuz!, Komut: .bncsil Nick | halt }
  if ($1 !== $2) { sw $sockname privmsg $1 $1 Herkes Sadece Kendi Nickini Silebilir! | halt }
  if !$read(bnc.txt,w,$+(*,$2,*))  { sw $sockname privmsg $1  $2  Zaten Eskiden listede Bulunmuyor! | halt }
  write $+(-dI,$readn) bnc.txt
  sw $sockname privmsg $1  $2  Silindi.
  sockclose $+(clon,$chr(11),$2)
}
alias bnclist {
  var %s 1
  var %ss $lines(bnc.txt)
  if (%ss == 0) { sw $sockname privmsg $1 BNC Listesi Suanda Bos Durumda! | halt }
  sw $sockname privmsg $1 Bnc List Listeleniliyor..
  while (%s <= $lines(bnc.txt)) {
    sw $sockname privmsg $1 %s - $remove($gettok($read(bnc.txt,%s),1,32),)
    inc %s
  }
  sw $sockname privmsg $1 Bnc Liste Sonu..
}
alias yetkiekle {
  if (!$istok($masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt }
  if ($istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmaktadir! | halt }
  %yetkili = $addtok(%yetkili,$3,32)
  sw $sockname privmsg $2  $3  eklendi. 
}
alias yetkisil {
  if (!$istok( $masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt }
  if (!$istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmamaktadir! | halt }
  %yetkili = $deltok(%yetkili,$3,32)
  sw $sockname privmsg $2  $3  Silindi 
}
alias yetkilist {
  var %toplam = $numtok(%yetkili,32)
  var %x = 1
  if (%toplam == 0) { sw $sockname privmsg $1 BNC Ekeme Yetkisi Olan Nickler Listesi Suan Bos! | halt }
  sw $sockname privmsg $1 BNC ekleme yetkisi olan nickler.. 
  while %x <= %toplam {
    sw $sockname privmsg $1 %x -  $remove($gettok(%yetkili,%x,32),)
    inc %x
  }
  sw $sockname privmsg $1 BNC ekleme yetkisi nickler listesi sonu..
}

alias bncnick {
  var %nick = $read(bnc.txt,w,$+(*,$1,*)) 
  return $gettok(%nick,1,32)
}
alias bncpass {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return  $remove($gettok(%nick,2,32),)
}
alias bnconick {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return  $remove($gettok(%nick,3,32),)
}
alias bncopass {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return $gettok(%nick,4,32) 
}
alias bnchost {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return $gettok(%nick,5,32) 
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
alias girdir {
  sockclose $+(clon,$chr(11),$1)
  sockopen $+(clon,$chr(11),$1) $bsunucu
  sw $sockname privmsg $masterchan  $+(BNC-,$1)  Devreye Sokuldu.
}

alias kontrolgirmis {
  var %s 1
  while (%s <= $lines(bnc.txt)) {
    kontrolg $gettok($read(bnc.txt,%s),1,32)
    inc %s
  }
  unset %girmis
}

alias kontrolg {
  if (!$istok(%girmis,$1,32)) {
    girdir $1
  }
}

alias logs {
  var %s = 1
  while (%s <= $lines($+(Logs\bnc,$3,.txt).txt)) {
    sw $2 privmsg $1 $read($+(Logs\bnc,$3,.txt),%s)
    inc %s
  }
  unset %sock $+ $3 $+ * 
  remove $+(Logs\bnc,$3,.txt)
  sw $2 join 0,
  sw $2 nick BNC- $+ $3
  sw $sockname privmsg $masterchan  $+(BNC-,$3)  Devreden Cikarilmistir.
  .timer 1 2 sw $sockname os raw svsnick $1 $3 :0
  sw $sockname os raw kill BNC- $+ $3  The End BNC- $+ $3 
}

alias baglan {
  if ($sockerr) { echo -a Bot Zaten Sunuda | halt }  
  else { sockclose bncbot | sockopen bncbot $bsunucu | echo -a - bnc-system Devreye Girdi! | halt }
}
alias kopart {
  if ($sockerr) { echo -a Bot Zaten Sunuda Degil | halt }  
  else { sockclose bncbot  | echo -a - bnc-System Devreden Cikarildi! | halt }
}
on *:sockopen:bncbot:{
  if ($sockerr) { echo $color(info) -a Socket botun baglantisi kesildi. | return }
  sw $sockname NICK User $+ $r(0,99)
  sw $sockname USER $sunucuident * * :v0.1 (BNC System - Yapimci; by Bnc System)
}
on *:sockread:bncbot: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $bopers
    sw $sockname join 0,
    sw $sockname nick $bbotnick
    sw $sockname identify $bnickpass
    sw $sockname os su $bsupass
    sw $sockname join $masterchan
  }
  if $1 == error && $2 == :closing {
    baglan
  }
  if ($2 == 352) { 
    if $read(bnc.txt,w,$+($8,*)) { %girmis = $addtok(%girmis,$8,32) }
  }
  if ($2 == 315) {
    kontrolgirmis 
  }
  if $2 == notice { 
    if (*Client*exiting* iswm $strip($1-)) {
      if (ghost isin $1-) { halt }
      if $read(bnc.txt,w,$+($9,*)) {
        girdir $9
      }
    }
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3    
    if (%k == $masterchan) {
      if (.bnckomut isin %m) {
        sw $sockname privmsg %k BNC-System Komut Paneli -
        sw $sockname privmsg %k -
        sw $sockname privmsg %k BNC-System yetkili eklemek icin *** .yetkiekle Nick ***
        sw $sockname privmsg %k BNC-System yetkili silmek icin *** .yetkisil Nick ***
        sw $sockname privmsg %k BNC-System yetkili listesi gormek icin *** .yetkilist ***
        sw $sockname privmsg %k BNC-System BNC Ekli listeyi gormek icin *** .bnclist ***
        sw $sockname privmsg %k BNC-System BNC Ekleme yapabilmek icin $bbotnick 'in ozeline  *** .bncekle ** yaziniz.
        sw $sockname privmsg %k *** BNC Ekleme kismindaki 4Hostunuz kismini yazarak ozel host aldirtabilirsiniz. *** 4(YENI)
        sw $sockname privmsg %k BNC-System BNC Silmek icin $bbotnick 'in ozeline *** .bncsil ** yaziniz.
        sw $sockname privmsg %k -
        sw $sockname privmsg %k BNC-System Komut The End ~ 
        sw $sockname privmsg %k Yapimci: *** By Bnc System ***
      } 
      if (.yetkiekle isin %m) { yetkiekle %n %k $5 | halt }
      if (.yetkisil isin %m) { yetkisil %n %k $5 | halt }
      if (.yetkilist isin %m) { yetkilist %k | halt }
      if (.bnclist isin %m) { bnclist %k | halt }
    }
    if (%k == $bbotnick) {
      if (.bncekle isin %m) { bncekle %n $5- | halt }
      if (.bncsil isin %m) { bncsil %n $5 | halt }  
    }
  }
}



on *:SOCKOPEN:clon*: {
  var %sock = $gettok($sockname,2-,11)
  sw $sockname nick %sock
  sw $sockname USER $sunucuident " " : $+ $+([,,BNC-,$gettok($sockname,2-,11),,]) System v1
}

on *:sockread:clon*: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  var %sock = $gettok($sockname,2-,11)
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $bnconick(%sock) $bncopass(%sock) 
    sw $sockname identify $bncpass(%sock)
    sw $sockname sethost $bnchost(%sock)
    sw $sockname join $chanlar
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3
    if (%k == %sock) {
      if (.girdim isin %m) {
        if ($5 !== $bncpass(%sock)) { 
          sw $sockname privmsg %n Sifreyi Yanlis Girdiniz! 
          halt
        }
        else {
          sw $sockname privmsg %n Sifreyi Dogru Bildiniz
          logs %n $sockname %sock
          halt
        }
      }
      if (%k == %sock) {
        inc -u100 %sock $+ %n
        if (%sock [ $+ [ %n ] ] == 1) { sw $sockname privmsg %n Merhaba %n , BNC-System Tarafinca Onlineyim , Ozelime Yazdiklariniz Log Tutulup , Online Oldugumda Goruntulenecektir! }
        write $+(Logs\bnc,%sock,.txt) $+([,,$date,,$chr(32),,$time,,]) $+([,4,%n,,]) $4-
      }
    }
  }
}
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
bnc, socket, system

Seçenekler

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
H-bot v1.2 (socket helper bot) L4roXyL Bots - Botlar 2 29 Ocak 2017 01:11
DFS System v1.0 Toprak Bots - Botlar 3 13 Ocak 2014 22:54
Socket Buton Tıklatma uFuK Help - Yardım 4 30 Eylül 2013 18:03
socket verileri ceviri fav Help - Yardım 1 26 Ağustos 2013 02:03
/* Radyo Botu (Socket) */ WingmaN Showcase - Hazır kodlar 1 04 Şubat 2013 09:00


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76