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

16Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Temmuz 2010, 12:32   #1
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Socket CityBOT ~




City Bot - ismi Uzerinde Sehir Bot'u Demek , Sunucuya Giren Userleri , IP'ini Taratarak Bulundugu Sehir'in Kanalina Sajoin'ler , Bu Islemi 2 Saniye Icınde Yapmaktadir , ve nerdeyse %95 tam sehiri göstermektedir , Sadece Yapmaniz Gereken botu Indirip , Scriptinize entegre etmek , ve ayarlari duzenlemek

Komutlari ;

[22:12] <~Aeg> .city on
[22:12] <&CityBot> CityBot Zaten Aktif!
[22:12] <~Aeg> .city off
[22:12] <&CityBot> CityBot DEAktif!

Örnek;

[22:16] <&CityBot> [GIRIS] Nick: Misafir973263760 IP: 78.168.70.182 Sehir: #Adana

Sunucuya Girişte Kanalda cloneleri var ise.

[12:24] <CityBot> [GIRIS] Nick: Mest IP: 78.160.47.160 Sehir: #Mersin Kanaldaki Cloneleri: MNet-FM ProxyBOT CityBot Mnet Aeg

ve Ozele Girdirdigi Sehrin Hava Durumunu Ozele Yansitma ;

[12:24] <CityBot> CityBot Tarafindan OTO JOIN : #Mersin
[12:24] <CityBot> Mest Sorgulanan: Hava Durumu - Türkiye - Mersin
[12:24] <CityBot> Mest Tarih: 12:25 itibariyle,Pzt 26.07.2010
[12:24] <CityBot> Mest Gun: Pazartesi
[12:24] <CityBot> Mest Durum: Az Bulutlu
[12:24] <CityBot> Mest En Yuksek Sicaklik: 33°C
[12:24] <CityBot> Mest En Dusuk Sicaklik: 27°C
[12:24] <CityBot> Mest Gun: Salı
[12:24] <CityBot> Mest Durum: Az Bulutlu
[12:24] <CityBot> Mest En Yuksek Sicaklik: 33°C
[12:24] <CityBot> Mest En Dusuk Sicaklik: 27°C
[12:24] <CityBot> Mest Gun: Çarşamba
[12:24] <CityBot> Mest Durum: Az Bulutlu
[12:24] <CityBot> Mest En Yuksek Sicaklik: 33°C
[12:24] <CityBot> Mest En Dusuk Sicaklik: 26°C
[12:24] <CityBot> Mest Gun: PerÅŸembe
[12:24] <CityBot> Mest Durum: Az Bulutlu
[12:24] <CityBot> Mest En Yuksek Sicaklik: 34°C
[12:24] <CityBot> Mest En Dusuk Sicaklik: 27°C
[12:24] <CityBot> Mest Gun: Cuma
[12:24] <CityBot> Mest Durum: Az Bulutlu
[12:24] <CityBot> Mest En Yuksek Sicaklik: 34°C
[12:24] <CityBot> Mest En Dusuk Sicaklik: 27°C


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######################## CityBOT Ayarlari ############### alias botnick return CityBot alias nickpass return 123456 alias opers return Deneme 123456 alias supass return 123456 alias ident return CBot alias operchan return #opers alias sunucu return 185.93.71.36 6667 alias sunucuismi return Nevarline.Com alias hostum return $+(SehirBot,.,$sunucuismi) ############### Ayar The End ############ alias city { if ($1 == bagla) { sockclose city | sockopen city $sunucu } if ($1 == kapat) { sockclose city } } alias swcity { if $sock(city).status == active { sockwrite -nt city $1- } } on *:SOCKOPEN:city: { swcity nick $+(Services,$r(0,99)) swcity USER $ident " " : $+ $+([,,CityBOT,,]) (System v1 by Aeg) } on *:sockread:city: { if !$sock($sockname) { echo -a Baglanti Koptu! | halt } var %q sockread %q tokenize 32 %q if $1 == error && $2 == :closing { city bagla } if $1 == PING { swcity PONG $2 } if $2 == 376 { swcity oper $opers swcity join 0, swcity nick $botnick swcity sethost $hostum swcity setident $ident swcity join $operchan swcity mode $botnick +p } if ($2 == NICK) { if $right($3,-1) == $botnick { swcity nickserv identify $nickpass } } if ($2 == 352) && (%kontrol.nick [ $+ [ $8 ] ] == $8) { nerden $6 $8 swcity who +I $+(*,$6,*) unset %kontrol.nick [ $+ [ $8 ] ] halt } if ($2 == 352) { %clone. [ $+ [ $6 ] ] = $addtok( %clone. [ $+ [ $6 ] ] ,$8,32) } if $2 == notice { if $regex(sn,$4-,/client connecting.+\x3A\s(.+)\s\x28(\S+)@(\S+)\x29/Si) && (%city == on) { set %kontrol.nick [ $+ [ $regml(sn,1) ] ] $regml(sn,1) swcity who +I $regml(sn,1) } } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3 if (.city isin %m) && (%k == $operchan) { if ($5 == on) { if (%city == on) { swcity privmsg %k CityBot Zaten Aktif! | halt } set %city on | swcity privmsg %k CityBot Aktif! halt } if ($5 == off) { if (%city == off) { swcity privmsg %k CityBot DEAktif! | halt } set %city off | swcity privmsg %k CityBot DEAktif! halt } } } } alias nerden { var %:r2 = $r(1,999999999999) set -u6 %nick [ $+ [ $1 ] ] $2 sockopen $+(nerden,%:r2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(nerden,%:r2) $+($1,¿,$2) } on *:sockopen:nerden*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on *:sockread:nerden*:{ var %shrytbl sockread %shrytbl if (IP City: isin %shrytbl) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%shrytbl),2,58) == $null,Belirsiz,$token($htmlfree(%shrytbl),2,58)) var %nick = $token($sock($sockname).mark,2,191), %ip = $token($sock($sockname).mark,1,191), %sehir = $hget(%nick,sehir) swcity sajoin %nick $+($chr(35),%sehir) swcity privmsg $operchan [GIRIS] Nick: %nick IP: %ip Sehir: %sehir $iif($numtok(%clone. [ $+ [ $sock($sockname).mark ] ],32) != 1 ,Kanaldaki Cloneleri: %clone. [ $+ [ %ip ] ]) swcity privmsg %nick CityBot Tarafindan OTO JOIN : $+($chr(35),%sehir) hava %sehir %nick unset %clone. [ $+ [ %ip ] ] } } on *:sockclose:nerden*: { .hfree $token($sock($sockname).mark,2,191) } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;) return %x } alias hava { var %:r3 = $r(1,999999999999) set -u5 %hava [ $+ [ $1 ] ] $2 sockopen $+(hava,%:r3) havadurumu.mynet.com 80 sockmark $+(hava,%:r3) $replace($1,urfa,sanliurfa) } on *:sockopen:hava*:{ sockwrite -n $sockname GET /asya/turkiye/ $+ $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname Host: havadurumu.mynet.com sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:63.0) Gecko/20100101 Firefox/63.0 sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Upgrade-Insecure-Requests: 1 sockwrite -n $sockname $crlf + $crlf } on *:sockread:hava*:{ var %hava sockread %hava if (*title*MYNET*Hava*durumu*-*T*rkiye* iswm %hava) { swcity privmsg %hava [ $+ [ $sock($sockname).mark ] ] Sorgulanan: $remove($htmlfree(%hava), ,MYNET) } if (*hvDate* iswm %hava) { swcity privmsg %hava [ $+ [ $sock($sockname).mark ] ] Tarih: $remove($htmlfree(%hava), ) } if (*hvDay* iswm %hava) { swcity privmsg %hava [ $+ [ $sock($sockname).mark ] ] Gun: $remove($htmlfree(%hava), ) } if (*hvMood* iswm %hava) { swcity privmsg %hava [ $+ [ $sock($sockname).mark ] ] Durum: $remove($htmlfree(%hava), ) } if (*hvDeg1* iswm %hava) { swcity privmsg %hava [ $+ [ $sock($sockname).mark ] ] En Yuksek Sicaklik: $remove($htmlfree(%hava), ) } if (*hvDeg2* iswm %hava) { swcity privmsg %hava [ $+ [ $sock($sockname).mark ] ] En Dusuk Sicaklik: $remove($htmlfree(%hava), ) } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x }


Yapimci ; By Aeg

Ins. Isınıze Yarar .


Konu Feragat tarafından (26 Mayıs 2019 Saat 12:17 ) değiştirilmiştir. Sebep: Link aktif olmadığı için konuya kod eklendi.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 26 Temmuz 2010, 13:00   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Aeg yapar, herkes bakar. Tebrikler kardeşim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 13:13   #3
Çevrimdışı
~ IRCTR.Org ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Eline Saglık Sinan Guzel CaLısma OLmus BASARILAR

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
google_ad_section_end -->
 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 14:25   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




eline sağlık

 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 15:34   #5
Çevrimdışı
Cry
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Eline sağlık coder-im.

 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 15:36   #6
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Serkan bana coder demeyi kes.

 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 15:37   #7
Çevrimdışı
Cry
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Set Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Serkan bana coder demeyi kes.

Alçak gönüllü kardeşim benim ;D

 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 15:37   #8
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Serkan he coq alcaq gönüllüyüm
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 26 Temmuz 2010, 23:21   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




başarılar güzel çalışma

 
Alıntı ile Cevapla

Alt 27 Temmuz 2010, 12:16   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket CityBOT ~




Güzel aktif bir bot eline sağlık dostum

__________________
Make it real, Make me feel it.
 
Alıntı ile Cevapla

Cevapla

Etiketler
citybot, mirc download, mirc indir, socket


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
socket bot LineS mIRC Scripting Sorunları 1 20 Eylül 2012 23:19
'Cause' IRC Socket bot. Xpyhre mIRC Scripting Sorunları 1 16 Aralık 2010 01:46
Socket Bot. lacremel mIRC Scripting Sorunları 11 22 Aralık 2008 14:02
Socket'de bir problem Software mIRC Scripting Sorunları 3 26 Ekim 2008 11:55
socket bot berduSh mIRC Scripting Sorunları 0 10 Ağustos 2007 11:46