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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 03 Kasım 2011, 12:54   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Sock Bota Host Okuturmak



Selam kolay gelsin arkadaşlar. kendi çapımda bir socket botuna extra bot daha yaptım host verme botu ama host verdime işini beceremedim botta bana yardımcı olabilirmisiniz bu konuda simdiden kolay gelsin.
on *:SOCKOPEN:hostsystem: {
%hostnick = Grr $+ $r(100,9999)
sw $sockname NICK %hostnick
sw $sockname USER $qbotident "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
sockmark $sockname hostsytem
}
on *:SOCKREAD:hostsystem: {
var %s
sockread %s
tokenize 32 %s
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper $qoperpass
}
if $2 == 381 {
sw $sockname join 0,
sw $sockname ns ghost XBot $+ -HOST $qnickpass
sw $sockname ns release XBot $+ -HOST $qnickpass
.timer 1 2 sw $sockname NICK XBot $+ -HOST
.timershout 0 15 shout
}
if $2 == NICK {
if $right($3,-1) == XBot $+ -HOST {
sw $sockname MODE XBot $+ -HOST +BH-h
sw $sockname ns identify $qnickpass
.timer 1 3 sw $sockname setident hostserv
.timer 1 4 sw $sockname sethost hostsystem.X.net
.timer 1 5 sw $sockname os raw svsmode XBot $+ HOST +D
.timer 1 5 sw $sockname JOIN #Bulmaca@,#Oyun@,#Kelime@,#Game@,#Sohbet@,#Chat@,# Diyalog@,#Zurna@,#Muhabbet@,#Aşk@,#Türkiye@,#istan bul@,#Ankara@,#Samsun@,#Adana@,#Antalya@,#izmir@,# KELEBEK@,#35+@,#Klavye@,#Bursa@,#Sinop@,#islam@,#v ip,#Beauty,#Beşiktaş,#Galatasaray,#Fenerbahçe,#Gir ls,#Opers,#Operlog ,
.timer 1 6 sw $sockname mode #Unban +vh XBot $+ -HOST XBot $+ -HOST
.timer 1 6 sw $sockname mode #Radyo@ +vh XBot $+ -HOST XBot $+ -HOST
.timer 1 6 sw $sockname mode #Dj +vh XBot $+ -HOST XBot $+ -HOST
.timer 0 150 .radyoerr
}
if $botfnick($1) == XBot $+ -HOST {
sw $sockname ns ghost XBot $+ -HOST $qnickpass
sw $sockname ns release XBot $+ -HOST $qnickpass
.timer 1 3 sw $sockname NICK XBot $+ -HOST
}
}
}
on *:rawmode:#Dj: {
if $read(admin.txt,w,$2) { halt }
if $nick == ChanServ {
if $1 == +o { chghost $2 Dj.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 Radyo XFM Dj (@)  }
if $1 == +oa { chghost $2 Radyo.djsop.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 Radyo XFM Dj (&)  }
if $1 == +oq { chghost $2 Radyo.founder.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 Radyo Kanal Founderi (~)  }
}
}
on *:rawmode:#Helpers: {
if $read(admin.txt,w,$2) { halt }
if $nick == ChanServ {
if $1 == +o { chghost $2 Helper.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 IRC Helperi (@)  }
if $1 == +oa { chghost $2 Help.sop.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 IRC Helperi (&)  }
if $1 == +oq { chghost $2 Help.koordinator.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 IRC Help Kanal Founderi (~)  }
}
}
Çogu kanalı sildim kod göze basit gelsin diye ilgilenen arkadaşlara tekrardan kolay gelsin.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 03 Kasım 2011, 19:11   #2
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Sock Bota Host Okuturmak



Buyur;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKOPEN:hostsystem: {
  %hostnick = Grr $+ $r(100,9999)
  sw $sockname NICK %hostnick
  sw $sockname USER $qbotident "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
  sockmark $sockname hostsytem
}
on *:SOCKREAD:hostsystem: {
  var %s
  sockread %s
  tokenize 32 %s
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname oper $qoperpass
  }
  if $2 == 381 {
    sw $sockname join 0,
    sw $sockname ns ghost XBot $+ -HOST $qnickpass
    sw $sockname ns release XBot $+ -HOST $qnickpass
    .timer 1 2 sw $sockname NICK XBot $+ -HOST
    .timershout 0 15 shout
  }
  if $2 == NICK {
    if $right($3,-1) == XBot $+ -HOST {
      sw $sockname MODE XBot $+ -HOST +BH-h
      sw $sockname ns identify $qnickpass
      .timer 1 3 sw $sockname setident hostserv
      .timer 1 4 sw $sockname sethost hostsystem.X.net
      .timer 1 5 sw $sockname os raw svsmode XBot $+ HOST +D
      .timer 1 5 sw $sockname JOIN #Bulmaca@,#Oyun@,#Kelime@,#Game@,#Sohbet@,#Chat@,# Diyalog@,#Zurna@,#Muhabbet@,#Aşk@,#Türkiye@,#istan bul@,#Ankara@,#Samsun@,#Adana@,#Antalya@,#izmir@,# KELEBEK@,#35+@,#Klavye@,#Bursa@,#Sinop@,#islam@,#v ip,#Beauty,#Beşiktaş,#Galatasaray,#Fenerbahçe,#Gir ls,#Opers,#Operlog , 
      .timer 1 6 sw $sockname mode #Unban +vh XBot $+ -HOST XBot $+ -HOST 
      .timer 1 6 sw $sockname mode #Radyo@ +vh XBot $+ -HOST XBot $+ -HOST 
      .timer 1 6 sw $sockname mode #Dj +vh XBot $+ -HOST XBot $+ -HOST 
      .timer 0 150 .radyoerr
    }
    if $botfnick($1) == XBot $+ -HOST {
      sw $sockname ns ghost XBot $+ -HOST $qnickpass
      sw $sockname ns release XBot $+ -HOST $qnickpass
      .timer 1 3 sw $sockname NICK XBot $+ -HOST
    }
  }
  if $2 == MODE {
    if $3 == #Dj {
      if $read(admin.txt,w,$5) { halt }
      if $remove($gettok($1,1,33),:) == ChanServ { 
        if $4 == +o { sw $sockname chghost $5 Dj.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 Radyo XFM Dj (@)  }
        if $4 == +oa { sw $sockname chghost $5 Radyo.djsop.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 Radyo XFM Dj (&)  }
        if $4 == +oq { sw $sockname chghost $5 Radyo.founder.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 Radyo Kanal Founderi (~)  }
      }
    }
    if $3 == #Help {
      if $read(admin.txt,w,$5) { halt }
      if $remove($gettok($1,1,33),:) == ChanServ { 
        if $4 == +o { sw $sockname chghost $5 Helper.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 IRC Helperi (@)  }
        if $4 == +oa { sw $sockname chghost $5 Help.sop.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 IRC Helperi (&)  }
        if $4 == +oq { sw $sockname chghost $5 Help.koordinator.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 IRC Help Kanal Founderi (~)  }
      }
    }
  }
}
 
Alıntı ile Cevapla

Alt 04 Kasım 2011, 14:18   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sock Bota Host Okuturmak



Gözünü seveyim, kopyala/yapıştır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
Alıntı ile Cevapla

Alt 05 Kasım 2011, 13:08   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sock Bota Host Okuturmak



GhoSt un yaptığı çalışmadı usta yaf :S sen bi el atsan şu koda ?

 
Alıntı ile Cevapla

Alt 10 Kasım 2011, 02:50   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sock Bota Host Okuturmak



Alıntı:
on *:join:#KANAL: {
if $nick != $cfg(me) && $nick != X-BOT && $nick != Y-BOT && BOT_* !iswm $nick {
.chgident $nick İDENT
.chgname $nick FULLNAME
.os raw svsmode $nick +p
if *xxx.host.com* iswm $address($nick,2) {
.os raw svsmode $nick -D+p
}
}
}


buna benzer bişiler yapabilirsin..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Alt 10 Kasım 2011, 18:56   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sock Bota Host Okuturmak



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if +*a iswm $4 {
          if $3 == #dj {
            sw $sockname os raw svsmode $5 +W
            sw $sockname chgname $5 4,1 «0 DJ 4»  on Geveze IRC Network
            sw $sockname chghost $5 DJ.Sop.Geveze.ORG
            sw $sockname chgident $5 Radio
            sw $sockname privmsg $3 : $+ $5 $+ : Sisteme [DJ Sop] olarak giris yaptiniz..
          }

          if $3 == #helpers {
            sw $sockname chghost $5 HelpSop.Geveze.ORG
            sw $sockname os raw svsmode $5 +Wh
            sw $sockname privmsg $3 : $+ $5 $+ : Sisteme [Help Sop] olarak giris yaptiniz..
          }
        }
        if +*q iswm $4 {
          if $3 == #helpers {
            sw $sockname chghost $5 Help.Koordinator.Geveze.ORG
            sw $sockname os raw svsmode $5 +Wh
            sw $sockname privmsg $3 : $+ $5 $+ : Sisteme [Help Master] olarak giris yaptiniz..
          }
          if $3 == #dj {
            sw $sockname os raw svsmode $5 +W
            sw $sockname chghost $5 DJ.Master.Geveze.ORG
            sw $sockname chgident $5 Radio
            sw $sockname privmsg $3 : $+ $5 $+ : Sisteme [Master DJ] olarak giris yaptiniz..
          }

Gibi coğaltabilirsiniz.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bota, host, okuturmak, sock

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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
kodu sock bota göre edit cekme Nothinq mIRC Scripting Sorunları 0 25 Nisan 2011 23:58
user host help host dj host sorunu !! darl Unreal IRCd 8 17 Nisan 2008 11:29




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org