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 16 Temmuz 2017, 12:37
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
Standart Socket Cycle v1-v2-v3 Hepsinin son versionu

Kod:
;Kendi network'um.
alias networks return irc.Gevezeyiz.net 6667

;Diger network'um
alias dnetworks return irc.Gevezeyiz.net 6667

####Kendi network'um bilgileri #####

;Sunucu'mdaki bot nick'im 
alias botnick return Cyclev3

;Sunucu'mdaki bot nick sifresi.
alias botpass return 123456

;Sunucu'mdaki bot'un identi
alias idents return 63

;Sunucu'mdaki oluscak bot'larin identi
alias nbident return Gevezeyiz

;Sunucu'mdaki oluscak bot'ların fullname'si
alias nbfullname return www.Gevezeyiz.net esChat kullanicisi

;Sunucu'mdaki oluscak bot'ların cıkıs mesaj'i
alias nbquit return 7www.Gevezeyiz..net 

;Sunucu'mdaki bot'un oper nick ve sifresi
alias botopers return Cycle 123456

;Sunucu'mdaki root pass " supass " sifresi.
alias botsupass return 123456

;Sunucu'mdaki services bot'larının olusturcagı servis ismi bilmiyorsaniz eger /map komut'unu yaziniz
alias services return Services.Gevezeyiz.Net

;Sunucu'mdaki bot'un rapor/Log kanal ismi
alias botlogs return #cyclev3

;Sunucu'mdaki olusturulan bot'larin konuscagı kanal
alias botchannel return #63

;Sunucu'mdaki olusturulan bot'larin giris'lerinin tam olacagı kanallar.
alias abotchannel return #63

;Sunucu'mdaki olusturulan bot'larin random girecegi kanallar , yoksa eger bos bırakin.
alias botchannelrand return #63+ #63+1

######### Diger network'taki bilgiler ####

;Sunucu'daki bot nick'i, bos bırakirsaniz random nick sokar.
alias dbotnick return mehmet_ist_34_34_34

;Sunucu'daki bot nick'i sifresi, bot nick yoksa burayida bos bırakin.
alias dbotpass return 123456

;Sunucu'daki bot'un ident'i
alias didents return Gevezeyiz

;Sunucu'daki bot'un fullnamesi
alias dfulln return www.Gevezeyiz.net

;Sunucu'daki giris/cıkıs/mesaj'lari alacagı kanal 
alias dbotchannel return #sohbet

;1) Sunucu'daki reklam'larda ismi geçen reklam Örnek: Soyle gibi .com yada .net eklemeyiniz.
alias dnetworksreklam1 return Gevezeyiz

;2) Sunucu'daki reklam'larda ismi geçen reklam Örnek: soyle.net gibi
alias dnetworksreklam2 return Gevezeyiz..Net

;1) <= reklam'ındaki alacagi reklam mesaj'ı sunucunuzda
alias dnsr1d return Gevezeyiz

;2) <= reklam'ındaki alacagi reklam mesaj'ı sunucunuzda
alias dnsr2d return Gevezeyiz..Net

Ustte ayarlancak yerleri ayarladiktan sonra

baslatmak icin /sistem on






Kod:
;Kendi network'um.
alias networks return irc.Gevezeyiz..net 6667

;Diger network'um
alias dnetworks return irc.Gevezeyiz..net 6667

####Kendi network'um bilgileri #####

;Sunucu'mdaki bot nick'im 
alias botnick return Cyclev3

;Sunucu'mdaki bot nick sifresi.
alias botpass return 123456

;Sunucu'mdaki bot'un identi
alias idents return 63

;Sunucu'mdaki oluscak bot'larin identi
alias nbident return Gevezeyiz

;Sunucu'mdaki oluscak bot'ların fullname'si
alias nbfullname return www.Gevezeyiz.Net esChat kullanicisi

;Sunucu'mdaki oluscak bot'ların cıkıs mesaj'i
alias nbquit return 7www.Gevezeyiz.Net

;Sunucu'mdaki bot'un oper nick ve sifresi
alias botopers return Cycle 123456

;Sunucu'mdaki root pass " supass " sifresi.
alias botsupass return 123456

;Sunucu'mdaki services bot'larının olusturcagı servis ismi bilmiyorsaniz eger /map komut'unu yaziniz
alias services return Services.Gevezeyiz.net

;Sunucu'mdaki bot'un rapor/Log kanal ismi
alias botlogs return #cyclev3

;Sunucu'mdaki olusturulan bot'larin konuscagı kanal
alias botchannel return #63

;Sunucu'mdaki olusturulan bot'larin giris'lerinin tam olacagı kanallar.
alias abotchannel return #63

;Sunucu'mdaki olusturulan bot'larin random girecegi kanallar , yoksa eger bos bırakin.
alias botchannelrand return #63+ #63+1

######### Diger network'taki bilgiler ####

;Sunucu'daki bot nick'i, bos bırakirsaniz random nick sokar.
alias dbotnick return mehmet_ist_34_34_34

;Sunucu'daki bot nick'i sifresi, bot nick yoksa burayida bos bırakin.
alias dbotpass return 123456

;Sunucu'daki bot'un ident'i
alias didents return trSohbet

;Sunucu'daki bot'un fullnamesi
alias dfulln return www.Gevezeyiz.net

;Sunucu'daki giris/cıkıs/mesaj'lari alacagı kanal 
alias dbotchannel return #sohbet

;1) Sunucu'daki reklam'larda ismi geçen reklam Örnek: Gevezeyiz gibi .com yada .net eklemeyiniz.
alias dnetworksreklam1 return Gevezeyiz

;2) Sunucu'daki reklam'larda ismi geçen reklam Örnek: trSohbet.com gibi
alias dnetworksreklam2 return Gevezeyiz.net

;1) <= reklam'ındaki alacagi reklam mesaj'ı sunucunuzda
alias dnsr1d return Adamca

;2) <= reklam'ındaki alacagi reklam mesaj'ı sunucunuzda
alias dnsr2d return Gevezeyiz.Net

## Bu usteki kısım'ı ayarladıktan sonra altaki kısım'a karismayiniz. ##

on *:start: {
  hmake gnicks
  hmake sistem
  hload gnicks gnicks.63
  hload sistem sistem.63
}
alias sistem {
  if ($1 == on) {
    if (!$hget(gnicks)) { hmake gnicks | hload gnicks gnicks.63 }
    sockclose bcycle
    sockclose dcycle
    sockopen bcycle $networks
    sockopen dcycle $dnetworks
    echo -ea Bot sistem'i tamamlamistir.
  }
  if ($1 == off) {
    sockclose bcycle
    sockclose dcycle
    echo -ea Bot sistem'i kapatilmistir.
  }
}
alias komut { sockwrite -nt bcycle $1- }
alias dkomut { sockwrite -nt dcycle $1- }
on *:SOCKOPEN:bcycle: {
  komut nick Guard $+ $r(0,999)
  komut USER $didents " " : $+ Cycle v3.0 ["63@" Yapimci: by Cycle]
}
on *:sockread:bcycle: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %63+
  sockread %63+
  tokenize 32 %63+
  if $1 == error && $2 == :closing {
    sockclose $sockname
    .timeropens 1 3 sockopen $sockname $networks
  }
  if ($regex($1,PING)) { komut PONG $2 }
  if ($regex($2,001$)) {
    komut oper $botopers
    komut join 0,
    komut nick $botnick
    komut identify $botpass
    komut privmsg operserv su $botsupass
    komut chghost $botnick $+($rand(0,9999999),.System.Cycle.Bot)
    komut join $botlogs
    $iif($hget(gnicks,0).data >= 1,sifirla)
  }
  if ($regex($2,433$)) {
    if ($right($4,-1) == $botnick) {
      komut privmsg nickserv ghost $v1 $dbotpass
      komut privmsg nickserv release $v1 $dbotpass
      sockclose $sockname
      .timeropens1 1 3 sockopen $sockname $networks
    }
  }
  if ($regex($2,PRIVMSG$)) {
    var %nick $right($token($1,1,33),-1), %chan $3, %text $right($4-,-1)
    if ($regex($4,/[!]komutlar/i)) {
      komut privmsg %chan Bot'ların hepsini cıkartmak istiyorsaniz !sifirla
      komut privmsg %chan Diger sunucu'daki belirtiginiz kanal'daki herkesin sunucuya girmesini istiyorsaniz !hepsial
      komut privmsg %chan Cycle'yi kapatip acma komut'lari !cycle off   !cycle on  
    } 
    if ($regex($4,/[!]sifirla/i)) {
      if ($hget(gnicks,0).data == 0) { komut privmsg %chan Zaten liste sıfırlatilmistir. | halt }
      komut privmsg %chan Cycle Bot'lar Sifirlatiliyor..
      sifirlat
    }
    if ($regex($4,/[!]hepsial/i)) {
      if ($hget(sistem,cycle) == off) { komut privmsg %chan Cycle sistem zaten kapali bu komut'u kullanamazsınız. | halt }
      komut privmsg %chan Diger sunucu'daki $dbotchannel kanalin'daki rumuz'lar hepsi kopyalaniliyor..
      alhepsi
    }
    if ($regex($4,/[!]cycle$/i)) {
      if ($5 == off) {
        if ($hget(sistem,cycle) == off) { komut privmsg %chan Cycle sistem zaten kapali! | halt }
        hadd -m sistem cycle off
        komut privmsg %chan Cycle sistem kapatilmistir!
        halt
      }
      if ($5 == on) {
        if ($hget(sistem,cycle) == on) { komut privmsg %chan Cycle sistem zaten acık! | halt }
        hadd -m sistem cycle on
        komut privmsg %chan Cycle sistem Acılmıstır!
        halt
      }
    }    
  }
}
on *:SOCKOPEN:dcycle: {
  dkomut nick $dbotnick
  dkomut USER $didents " " : $+ $dfulln
}
on *:sockread:dcycle: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %63+
  sockread %63+
  tokenize 32 %63+
  if $1 == error && $2 == :closing {
    sockclose $sockname
    .timeropens2 1 3 sockopen $sockname $dnetworks
  }
  if ($regex($1,PING)) { dkomut PONG $2 }
  if ($regex($2,352$)) {
    var %nick $replace($8,$dnetworksreklam1,$dnsr1d), %host $replace($6,$dnetworksreklam1,$dnsr1d,$dnetworksreklam2,$dnsr2d)
    if (!$nicksbul(%nick)) {
      hadd -m gnicks %nick %host
      nicksjoin %nick %host
    }
  }
  if ($regex($2,001$)) {
    dkomut identify $dbotpass
    dkomut join $dbotchannel
    var %nickim 
  }
  if ($regex($2,PRIVMSG$)) {
    var %nick $replace($right($token($1,1,33),-1),$dnetworksreklam1,$dnsr1d), %chan $3, %text $right($4-,-1)
    if ($nicksbul(%nick)) && ($dbotchannel == %chan) { 
      nicksprivmsg %nick %text
    }
  }
  if ($regex($2,JOIN$)) {
    var %nick $replace($right($token($1,1,33),-1),$dnetworksreklam1,$dnsr1d), %chan $right($3,-1), %host $replace($token($1,2,64),$dnetworksreklam1,$dnsr1d,$dnetworksreklam2,$dnsr2d)
    if (!$nicksbul(%nick)) && (%nick !== $dbotnick) && ($dbotchannel == %chan) {
      hadd -m gnicks %nick %host
      nicksjoin %nick %host
    }
  }
  if ($regex($2,PART$)) {
    var %nick $replace($right($token($1,1,33),-1),$dnetworksreklam1,$dnsr1d), %chan $3, %host $replace($token($1,2,64),$dnetworksreklam1,$dnsr1d,$dnetworksreklam2,$dnsr2d)  
    if ($nicksbul(%nick)) && (%nick !== $dbotnick) && ($dbotchannel == %chan) {
      hdel -m gnicks %nick %host
      nickspart %nick %chan
    }
  }
  if ($regex($2,KICK$)) {
    var %nick  $replace($4,$dnetworksreklam1,$dnsr1d), %chan $3, %host $replace($token($1,2,64),$dnetworksreklam1,$dnsr1d,$dnetworksreklam2,$dnsr2d)  
    if ($nicksbul(%nick)) && (%nick !== $dbotnick) && ($dbotchannel == %chan) {
      hdel -m gnicks %nick 
      nicksquit %nick 
    }
  }
  if ($regex($2,QUIT$)) {
    var %nick $replace($right($token($1,1,33),-1),$dnetworksreklam1,$dnsr1d), %host $replace($token($1,2,64),$dnetworksreklam1,$dnsr1d,$dnetworksreklam2,$dnsr2d) 
    if ($nicksbul(%nick)) && (%nick !== $dbotnick) {
      hdel -m gnicks %nick 
      nicksquit %nick 
    }
  }
}
alias nicksprivmsg {
  komut privmsg operserv raw $+(:,$1) privmsg $botchannel $2-
  komut privmsg $botlogs Bot Konusturuldu Nick: $1 Mesaj: $2- 
} 

alias nicksjoin {
  var %randomchan $token($botchannelrand,$rand(1,$numtok($botchannelrand,32)),32)
  komut privmsg operserv raw : NICK $1 1 1 $nbident $2 $services $+(:,$nbfullname)
  komut privmsg operserv raw $+(:,$1) join $botchannel
  komut privmsg operserv raw $+(:,$1) join $abotchannel
  komut privmsg operserv raw $+(:,$1) join %randomchan
  komut privmsg $botlogs Bot olusturuldu Nick:  $1  Host: $2 Rand-Channel: %randomchan 
} 
alias nickspart {
  komut privmsg operserv raw $+(:,$1) part $2
  nicksquit $1
  komut privmsg $botlogs Bot part Nick:  $1  Chan: $2 
} 
alias nicksquit {
  komut privmsg operserv raw $+(:,$1) quit $nbquit
  komut privmsg $botlogs Bot cıkıs Nick:  $1  
} 

alias nicksbul {
  if ($hget(sistem,cycle) == off) { halt }
  if (!$hget(gnicks)) { hmake gnicks | hlad gnicks gnicks.63 }
  var %s 1
  while (%s <= $hget(gnicks,0).data) { 
    $iif($hget(gnicks,%s).item == $1,return $true)
    inc %s
  }
  return $false
}
alias sifirlat {
  if (!$hget(gnicks)) { hmake gnicks | hload gnicks gnicks.63 }
  var %s 1
  while (%s <= $hget(gnicks,0).data) {
    nicksquit $hget(gnicks,%s).item
    hdel -m gnicks $hget(gnicks,%s).item
    inc %s
  }
  hfree -sw gnicks
  hmake gnicks
  hload gnicks gnicks.63
}
alias alhepsi {
  if (!$hget(gnicks)) { hmake gnicks | hload gnicks gnicks.63 }
  hadd -mu10 sistem alhepsi on
  dkomut who +R $dbotchannel
}
on *:exit: {
  hsave -o gnicks gnicks.63
  hsave -o sistem sistem.63
}

Konu Che tarafından (16 Temmuz 2017 Saat 12:39 ) değiştirilmiştir.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
cycle, hepsinin, socket, son, v1v2v3, versionu

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
Socket BNC System Che Showcase - Hazır kodlar 0 23 Kasım 2016 12:24
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