| 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, )
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...] |
