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