IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Socket CityBOT ~ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/345679-socket-citybot.html)

Set 26 Temmuz 2010 12:32
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:
######################## 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 .

paSaLi 26 Temmuz 2010 13:00
Cevap: Socket CityBOT ~
 
Aeg yapar, herkes bakar. Tebrikler kardeşim ;)

DaDaS 26 Temmuz 2010 13:13
Cevap: Socket CityBOT ~
 
Eline Saglık Sinan Guzel CaLısma OLmus BASARILAR

fener1907 26 Temmuz 2010 14:25
Cevap: Socket CityBOT ~
 
eline sağlık

Cry 26 Temmuz 2010 15:34
Cevap: Socket CityBOT ~
 
Eline sağlık coder-im.

Set 26 Temmuz 2010 15:36
Cevap: Socket CityBOT ~
 
Serkan bana coder demeyi kes.

Cry 26 Temmuz 2010 15:37
Cevap: Socket CityBOT ~
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1040469666)
Serkan bana coder demeyi kes.
Alçak gönüllü kardeşim benim ;D

Set 26 Temmuz 2010 15:37
Cevap: Socket CityBOT ~
 
Serkan he coq alcaq gönüllüyüm =)

q0kh4n 26 Temmuz 2010 23:21
Cevap: Socket CityBOT ~
 
başarılar güzel çalışma

Anatolia 27 Temmuz 2010 12:16
Cevap: Socket CityBOT ~
 
Güzel aktif bir bot eline sağlık dostum

resoLve 27 Temmuz 2010 17:42
Cevap: Socket CityBOT ~
 
emegine saglık. Başarilar

ali_sen 27 Temmuz 2010 21:18
Cevap: Socket CityBOT ~
 
Efferim Aeg gözüme girmeye başladın:D kankam:D

Cry 28 Temmuz 2010 16:19
Cevap: Socket CityBOT ~
 
Toplam 1 Eklenti bulunuyor.
Link çalışıyor ancak sorun yaşayan arkadaşlar, eklentiden yükleyebilirler.

Set 28 Temmuz 2010 17:17
Cevap: Socket CityBOT ~
 
Link'te Sorun Yok Calişiyor

Expunge 28 Temmuz 2010 21:45
Cevap: Socket CityBOT ~
 
Başarilar.

MR_WaR 25 Aralık 2010 01:43
Cevap: Socket CityBOT ~
 
Sunucuda 2 Link Var Şuan Örneğin ; irc.xx.net olarak ekledim diğer link'den girenleri nasıl aktif edeceğiz ? :)

Set 25 Aralık 2010 06:33
Cevap: Socket CityBOT ~
 
Kod:
######################## CityBOT Ayarlari ###############
alias botnick return CityBot
alias nickpass return 123456
alias opers return Aeg 123456
alias supass return 123456
alias ident return 63
alias operchan return #opers
alias sunucu return irc.buchat.com 6667
alias sunucu2 return irc.buchat.com 6667
alias hostum return Sehir.Bot
######################## CityBOT2 Ayarlari ###############
alias opers2 return Aeg 123456
alias sunucu2 return irc.buchat.com 6667
############### Ayar The End ############
alias city {
  if ($1 == bagla) {
    sockclose city | sockclose city2 | sockopen city $sunucu | sockopen city2 $sunucu2
  }
  if ($1 == kapat) {
    sockclose city | sockclose city2
  }
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:city: {
  sw $sockname nick $+(Services,$r(0,99))
  sw $sockname 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 {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname join $operchan
    sw $sockname mode $botnick +p
  }
  if ($2 == 352) && (%kontrol.nick [ $+ [ $8 ] ] == $8) {
    nerden $6 $8
    sw $sockname who +I $+(*,$6,*)
    unset  %kontrol.nick [ $+ [ $8 ] ]
    halt
  }
  if ($2 == 352) {
    %clone. [ $+ [ $6 ] ] = $addtok( %clone. [ $+ [ $6 ] ] ,$8,32)
  }
  if $2 == notice {
    if (*client connecting* iswm $strip($1-)) && (%city == on) {
      set -u5  %kontrol.nick [ $+ [ $12 ] ] $12
      sw $sockname who +I $12
    }
  }
  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) {    sw $sockname privmsg %k CityBot Zaten Aktif! | halt }
        set %city on |    sw $sockname privmsg %k CityBot  Aktif!
        halt
      }
      if ($5 == off) {
        if (%city == off) {  sw $sockname privmsg %k CityBot DEAktif! | halt }
        set %city off |  sw $sockname privmsg %k  CityBot DEAktif!
        halt
      }
    }
  }
}
on *:SOCKOPEN:city2: {
  sw $sockname nick $+(Services,$r(0,99))
  sw $sockname USER $ident " " : $+ $+([,,CityBOT,,]) (System v1 by Aeg)
}
on *:sockread:city2: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    hostserv bagla
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers2
    sw $sockname join 0,
    sw $sockname nick $+($botnick,2)
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname mode $+($botnick,2) +p
  }
  if $2 == notice {
    if (*client connecting* iswm $strip($1-)) && (%city == on) {
      set -u5  %kontrol.nick [ $+ [ $12 ] ] $12
      sw $sockname who +I $12
    }
  }
}
alias nerden {
  inc -u10 %xax
  set -u6 %nick [ $+ [  $1 ] ] $2
  sockopen $+(nerden,%xax) whatismyipaddress.com 80
  sockmark $+(nerden,%xax) $1
}
on *:sockopen:nerden*:{
  sockwrite -n $sockname GET /ip/ $+  $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden*:{
  var %city
  sockread $htmlfree(%city)
  .tokenize 32 $htmlfree(%city)
  if (*City:* iswm %city) {
    .set -u10 %yerelsehir $+ $sock($sockname).mark  0
    .set -u10 %yerelsehir $+ $sock($sockname).mark $1 $2
    .set -u10 %yerelsehir $+ $sock($sockname).mark  $remove(%yerelsehir [ $+ [ $sock($sockname).mark ] ],City:)
    sw $sockname sajoin %nick [ $+ [  $sock($sockname).mark ] ]  $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ])
    sw $sockname privmsg #opers [GIRIS] Nick: %nick [ $+ [  $sock($sockname).mark ] ]  IP: $sock($sockname).mark Sehir: $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ]) $iif($numtok(%clone. [ $+ [ $sock($sockname).mark ] ],32) != 1 ,Kanaldaki Cloneleri: %clone. [ $+ [ $sock($sockname).mark ] ])
    sw $sockname privmsg %nick [ $+ [  $sock($sockname).mark ] ] CityBot Tarafindan OTO JOIN : $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ])
    hava %yerelsehir [  $+ [ $sock($sockname).mark ] ]  %nick [ $+ [  $sock($sockname).mark ] ]
    unset %clone. [ $+ [ $sock($sockname).mark ] ]
  }
}
alias htmlfree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;)
  return %x
}
alias hava {
  inc -u10 %xax
  set -u5 %hava [ $+ [ $1 ] ] $2
  sockopen $+(hava,%xax) havadurumu.mynet.com 80
  sockmark $+(hava,%xax) $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 $+ $crlf $+ $crlf
}
on *:sockread:hava*:{
  var %hava
  sockread $htmlfree(%hava)
  .tokenize 32 $htmlfree(%hava)
  if (*title*MYNET*Hava*durumu*-*T*rkiye* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ]  Sorgulanan: $remove($htmlfree(%hava),  ,MYNET)
  }
  if (*hvDate* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ]  Tarih: $remove($htmlfree(%hava),  )
  }
  if (*hvDay* iswm %hava) {
    sw $sockname privmsg  %hava [ $+ [ $sock($sockname).mark ] ] Gun: $remove($htmlfree(%hava),  )
  }
  if (*hvMood* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ] Durum: $remove($htmlfree(%hava),  )
  }
  if (*hvDeg1* iswm %hava) {
    sw $sockname privmsg  %hava [ $+ [ $sock($sockname).mark ] ] En Yuksek Sicaklik: $remove($htmlfree(%hava),  )
  }
  if (*hvDeg2* iswm %hava) {
    sw $sockname 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
}
/city bagla <= yazdiginda botlar baglanir
/city kapat <= yazdiginda botlar cikartilir

Buyur bunu dene sen denemedim ama calişir büyük bir ihtimal Hayırlı IF'ler.

MR_WaR 25 Aralık 2010 16:10
Cevap: Socket CityBOT ~
 
Alıntı:
SWCITY Unknown command
SWCITY Unknown command
Bu Şekilde Bir Hata Aldım

Set 25 Aralık 2010 23:25
Cevap: Socket CityBOT ~
 
düzenLedim , bak bakalim tekrar o hatayi verecekmi

dEathLeSs 26 Aralık 2010 01:45
Cevap: Socket CityBOT ~
 
Güzel calısma olmus.

teXas 26 Aralık 2010 03:02
Cevap: Socket CityBOT ~
 
Pesinden Gelmeye Calisacam, Set. mIRC Scripting olayınada bi el atmam lazım :p
Güzel olmuş. Emegine Sağlık kardeşim.

klark59 10 Nisan 2012 00:38
Cevap: Socket CityBOT ~
 
selamlar öncelikle paylaşımınız icin cok teşekkür ediyorum. ben bu botu epey bir süredir kullanıyordum lakin bir kac ay önce çalışmayı durdurdu acaba bilgileri cektigi whatismyipaddress mi kullanmı degiştirdi onuda anlamadım. pek fazlada anlamam zaten ama cok sevdigim bir bottu tekrar aktif hale getirebilmenin bir yolu yokmudur.
şimdiden yardımlarınız icin teşekkür ederim
saygılarımla

dusdus 15 Nisan 2012 11:14
Cevap: Socket CityBOT ~
 
Link CaLısmıyor

Entrance 15 Nisan 2012 14:47
Cevap: Socket CityBOT ~
 
Alıntı:
dusdus Nickli Üyeden Alıntı (Mesaj 1041092423)
Link CaLısmıyor

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] indirebilirsiniz.

OperServ 10 Mayıs 2012 05:23
Cevap: Socket CityBOT ~
 
kirik link

Entrance 10 Mayıs 2012 22:01
Cevap: Socket CityBOT ~
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1041114998)
kirik link
ilgili link düzeltildi. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 23 Kasım 2015 17:55
Cevap: Socket CityBOT ~
 
Link Kırık

Feragat 23 Kasım 2015 18:01
Cevap: Socket CityBOT ~
 
Alıntı:
Che Nickli Üyeden Alıntı (Mesaj 1041699860)
Link Kırık
Bir önceki sayfayı incelersen, botun Eklenti olarak paylaşıldığını, hatta botun kodlarının da paylaşıldığını görebilirsin.

M-Sohbet 02 Ekim 2018 00:20
Cevap: Socket CityBOT ~
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1040628620)
Kod:
######################## CityBOT Ayarlari ###############
alias botnick return CityBot
alias nickpass return 123456
alias opers return Aeg 123456
alias supass return 123456
alias ident return 63
alias operchan return #opers
alias sunucu return irc.buchat.com 6667
alias sunucu2 return irc.buchat.com 6667
alias hostum return Sehir.Bot
######################## CityBOT2 Ayarlari ###############
alias opers2 return Aeg 123456
alias sunucu2 return irc.buchat.com 6667
############### Ayar The End ############
alias city {
  if ($1 == bagla) {
    sockclose city | sockclose city2 | sockopen city $sunucu | sockopen city2 $sunucu2
  }
  if ($1 == kapat) {
    sockclose city | sockclose city2
  }
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:city: {
  sw $sockname nick $+(Services,$r(0,99))
  sw $sockname 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 {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname join $operchan
    sw $sockname mode $botnick +p
  }
  if ($2 == 352) && (%kontrol.nick [ $+ [ $8 ] ] == $8) {
    nerden $6 $8
    sw $sockname who +I $+(*,$6,*)
    unset  %kontrol.nick [ $+ [ $8 ] ]
    halt
  }
  if ($2 == 352) {
    %clone. [ $+ [ $6 ] ] = $addtok( %clone. [ $+ [ $6 ] ] ,$8,32)
  }
  if $2 == notice {
    if (*client connecting* iswm $strip($1-)) && (%city == on) {
      set -u5  %kontrol.nick [ $+ [ $12 ] ] $12
      sw $sockname who +I $12
    }
  }
  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) {    sw $sockname privmsg %k CityBot Zaten Aktif! | halt }
        set %city on |    sw $sockname privmsg %k CityBot  Aktif!
        halt
      }
      if ($5 == off) {
        if (%city == off) {  sw $sockname privmsg %k CityBot DEAktif! | halt }
        set %city off |  sw $sockname privmsg %k  CityBot DEAktif!
        halt
      }
    }
  }
}
on *:SOCKOPEN:city2: {
  sw $sockname nick $+(Services,$r(0,99))
  sw $sockname USER $ident " " : $+ $+([,,CityBOT,,]) (System v1 by Aeg)
}
on *:sockread:city2: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    hostserv bagla
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers2
    sw $sockname join 0,
    sw $sockname nick $+($botnick,2)
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname mode $+($botnick,2) +p
  }
  if $2 == notice {
    if (*client connecting* iswm $strip($1-)) && (%city == on) {
      set -u5  %kontrol.nick [ $+ [ $12 ] ] $12
      sw $sockname who +I $12
    }
  }
}
alias nerden {
  inc -u10 %xax
  set -u6 %nick [ $+ [  $1 ] ] $2
  sockopen $+(nerden,%xax) whatismyipaddress.com 80
  sockmark $+(nerden,%xax) $1
}
on *:sockopen:nerden*:{
  sockwrite -n $sockname GET /ip/ $+  $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden*:{
  var %city
  sockread $htmlfree(%city)
  .tokenize 32 $htmlfree(%city)
  if (*City:* iswm %city) {
    .set -u10 %yerelsehir $+ $sock($sockname).mark  0
    .set -u10 %yerelsehir $+ $sock($sockname).mark $1 $2
    .set -u10 %yerelsehir $+ $sock($sockname).mark  $remove(%yerelsehir [ $+ [ $sock($sockname).mark ] ],City:)
    sw $sockname sajoin %nick [ $+ [  $sock($sockname).mark ] ]  $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ])
    sw $sockname privmsg #opers [GIRIS] Nick: %nick [ $+ [  $sock($sockname).mark ] ]  IP: $sock($sockname).mark Sehir: $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ]) $iif($numtok(%clone. [ $+ [ $sock($sockname).mark ] ],32) != 1 ,Kanaldaki Cloneleri: %clone. [ $+ [ $sock($sockname).mark ] ])
    sw $sockname privmsg %nick [ $+ [  $sock($sockname).mark ] ] CityBot Tarafindan OTO JOIN : $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ])
    hava %yerelsehir [  $+ [ $sock($sockname).mark ] ]  %nick [ $+ [  $sock($sockname).mark ] ]
    unset %clone. [ $+ [ $sock($sockname).mark ] ]
  }
}
alias htmlfree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;)
  return %x
}
alias hava {
  inc -u10 %xax
  set -u5 %hava [ $+ [ $1 ] ] $2
  sockopen $+(hava,%xax) havadurumu.mynet.com 80
  sockmark $+(hava,%xax) $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 $+ $crlf $+ $crlf
}
on *:sockread:hava*:{
  var %hava
  sockread $htmlfree(%hava)
  .tokenize 32 $htmlfree(%hava)
  if (*title*MYNET*Hava*durumu*-*T*rkiye* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ]  Sorgulanan: $remove($htmlfree(%hava),  ,MYNET)
  }
  if (*hvDate* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ]  Tarih: $remove($htmlfree(%hava),  )
  }
  if (*hvDay* iswm %hava) {
    sw $sockname privmsg  %hava [ $+ [ $sock($sockname).mark ] ] Gun: $remove($htmlfree(%hava),  )
  }
  if (*hvMood* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ] Durum: $remove($htmlfree(%hava),  )
  }
  if (*hvDeg1* iswm %hava) {
    sw $sockname privmsg  %hava [ $+ [ $sock($sockname).mark ] ] En Yuksek Sicaklik: $remove($htmlfree(%hava),  )
  }
  if (*hvDeg2* iswm %hava) {
    sw $sockname 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
}
/city bagla <= yazdiginda botlar baglanir
/city kapat <= yazdiginda botlar cikartilir

Buyur bunu dene sen denemedim ama calişir büyük bir ihtimal Hayırlı IF'ler.
set üsdad paylaşımın için çok teşekkür ederim öncelikle fakat bot şifresini girmiyor bunun için ne yapmalıyım socket bota ekledim kodu

YouMyCure 02 Ekim 2018 16:11
Cevap: Socket CityBOT ~
 
Alıntı:
shey Nickli Üyeden Alıntı (Mesaj 1041986452)
set üsdad paylaşımın için çok teşekkür ederim öncelikle fakat bot şifresini girmiyor bunun için ne yapmalıyım socket bota ekledim kodu
Kod:
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname join $operchan
    sw $sockname mode $botnick +p
  }
değerleri içerisine
Kod:
    sw $sockname nickserv identify $nickpass
kodunu eklersen sorun çözülür

M-Sohbet 02 Ekim 2018 20:18
Cevap: Socket CityBOT ~
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041986601)
Kod:
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname join $operchan
    sw $sockname mode $botnick +p
  }
değerleri içerisine
Kod:
    sw $sockname nickserv identify $nickpass
kodunu eklersen sorun çözülür
YouMyCure ilginiz için çok teşekkür ederim kodu ve gittiğim zaman ekleyeceğim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:18 -->-> Daha önceki mesaj 18:25 --

YouMyCure şimdi dediğiniz kodu ekledim üsdat şifre tamam ama bot sunucuya girene hiç bir tepki vermiyor nedendir acaba sunucuda ozel kanal açmak yasak bu neden olabilir mi

M-Sohbet 02 Ekim 2018 23:54
Cevap: Socket CityBOT ~
 
YouMyCure şimdi dediğiniz kodu ekledim üsdat şifre tamam ama bot sunucuya girene hiç bir tepki vermiyor nedendir acaba sunucuda ozel kanal açmak yasak bu neden olabilir mi

YouMyCure 03 Ekim 2018 13:39
Cevap: Socket CityBOT ~
 
Alıntı:
shey Nickli Üyeden Alıntı (Mesaj 1041986736)
YouMyCure şimdi dediğiniz kodu ekledim üsdat şifre tamam ama bot sunucuya girene hiç bir tepki vermiyor nedendir acaba sunucuda ozel kanal açmak yasak bu neden olabilir mi
skypeden ulaşırsan ilgilenirim pm ile

Berk 23 Kasım 2018 22:08
Cevap: Socket CityBOT ~
 
Elinde yokmu bunun calışan versiyonlu olanı acaba

RisK 25 Kasım 2018 17:06
Cevap: Socket CityBOT ~
 
Başarılar...

Set 25 Kasım 2018 21:48
Cevap: Socket CityBOT ~
 
way be ne seneler geçmiş, 2010 :))

CoLoNeL 25 Kasım 2018 22:22
Cevap: Socket CityBOT ~
 
Okadar Eskımı

Alper 25 Kasım 2018 22:35
Cevap: Socket CityBOT ~
 
Kod:
######################## 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
}
Veri aldığı site güncellendiği için çalışmıyordu. Güncelledim çalışır durumdadır. Ek olarak hub sunucularda çalışır hale getirdim.


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Set 25 Kasım 2018 23:02
Cevap: Socket CityBOT ~
 
Alıntı:
CoLoNeL Nickli Üyeden Alıntı (Mesaj 1042003709)
Okadar Eskımı
Hep yeni seylere merak işte ne yapalim eskiden gelme huy sonra bana niye garip garip seyler cıkartıyorsunuz diyonuz :d

CoLoNeL 25 Kasım 2018 23:08
Cevap: Socket CityBOT ~
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1042003717)
Hep yeni seylere merak işte ne yapalim eskiden gelme huy sonra bana niye garip garip seyler cıkartıyorsunuz diyonuz :d
Sen FarkLısın Yaparsın Yapamıcan Bısı Varmı Acaba :)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:32.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk