/nerden rumuz
Kod:
alias nerden {
set %ufuk on | userip $1
}
raw 340:*: {
if %ufuk == on {
if $remove($2,:) == $null { echo -sa Böyle bir nick yok }
if $remove($2,:) != $null { set %ip $gettok($2,2,64) | sockopen nerden
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
unset %ufuk
}
}
on *:sockopen:nerden: {
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %ip HTTP/1.1
sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Cache-Control: max-age=0
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.111 Safari/537.36
sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
sockwrite -n $sockname $crlf
}
on *:sockread:nerden: {
var %i
sockread %i
if *IP City:* iswm %i { echo -sa 10 $gettok($htmlfree(%i),2,$asc(:)) | sockclose $sockname }
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:join:#kanaladıburayagelecek: { nerden $nick }
Can sıkıntısı; Kullanımı: /nerden nick
Belirlediğiniz bir kanalda(birden çok kanalda kullanmak için on *:join:#kanal1,#kanal2,#kanal3: şeklinde düzenlenebilir) çalıştırmak için en alttaki kanaladiburayagelecek kısmı düzenlenmelidir. | 