Ülke-Şehir Bulucu. - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

e-turk · 22 Nisan 2009, 00:18

arkadasim bunu kanal degilde özelime !ulke nick Belirtildiginde ozele yazza ? yapabilirmiyiz

XcLusive · 22 Nisan 2009, 00:21

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

Ruh-u`Siyah · 05 Mayıs 2009, 14:17

peki bunu hic !ulke yazmadan kullanıcı odaya gırıs yaptıgı zaman girişinde gösterebilirmiyiz ?

muratt_aziz · 05 Mayıs 2009, 19:06

burayı tıkla [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burda dediğin gibi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

h4pp3n · 23 Mayıs 2010, 21:28

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias nerden {
  set %ip $1
  sockclose nerden
  sockopen nerden 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,%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.
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  tokenize 32 $htmlfree(%happen)
  if (*City* iswm $1-) {
    .set %yerelsehir $remove($2,City)
  }
  if (*Country* iswm $1-) {
    .set %yerelulke $remove($2,Country)
  }
  if (*>ISP<* iswm %happen) {
    .set %yerelisp $2-
    .set %yerelisp $remove(%yerelisp,ISP)
    msg #nerden Nick : %yerelnick
    msg #nerden IP No: %ip
    msg #nerden Şehir: %yerelsehir
    msg #nerden Ülke : $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    msg #nerden ISP  : %yerelisp
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { .bak $2 }
}
alias bak { .whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

can sıkıntısına tekrar düzenledim .. her zaman dedigim gibi tekrar umarım isinize yarar ..

Not: kodun calısması icin oper sart + #nerden kanalında gösterir ..

LuckR · 24 Mayıs 2010, 18:46

Dostum bunu socket bota göre ayarlayabilir miyiz? Ben calıstım ama olmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias nerden {
  set %ip %::nick
  sockclose nerden
  sockopen nerden 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,%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.
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  tokenize 32 $htmlfree(%happen)
  if (*City* iswm $1-) {
    .set %yerelsehir $remove($2,City)
  }
  if (*Country* iswm $1-) {
    .set %yerelulke $remove($2,Country)
  }
  if (*>ISP<* iswm %happen) {
    .set %yerelisp $2-
    .set %yerelisp $remove(%yerelisp,ISP)
    sw $sockname privmsg #nerden Nick : %yerelnick
    sw $sockname privmsg IP No: %ip
    sw $sockname privmsg Şehir: %yerelsehir
    sw $sockname privmsg Ülke : $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    sw $sockname privmsg ISP  : %yerelisp
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { .bak $2 }
}
alias bak { .whois %::nick | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick %::nick | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

Hatta Son çalışmalarımdan sonra " * No groups needed to be changed
-
* No groups needed to be changed " gibi bir hata vermeye başladı.

devil-boyy · 24 Mayıs 2010, 19:31

Oper Olmadan Sölesede Güzel Olurdu Aslında :- )

MesqeN · 01 Haziran 2010, 15:38

Kulanıcı bilgisini Görebilmek icin admin olmak gerekirmi?

Set · 01 Haziran 2010, 21:41

Ülke , Sehir Bulucuyu Bu Adres'e Göre Editleme Yapabinir'mi ?

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

h4pp3n · 05 Haziran 2010, 10:09

heralde dbler geri gitti ve vermis oldugum kod silinmis .. tekrar paylasıyım ..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias nerden {
  set %ip $1
  sockclose nerden
  sockopen nerden whatismyipaddress.com 80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1
  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  .tokenize 32 $htmlfree(%happen)
  if (*City:* iswm %happen) {
    .set %yerelsehir 0
    .set %yerelsehir $1 $2
    .set %yerelsehir $remove(%yerelsehir,City:)
  }
  if (*Country:* iswm %happen) {
    .set %yerelulke 0
    .set %yerelulke $1 $2
    .set %yerelulke $remove(%yerelulke,Country:)
  }
  if (*Latitude:* iswm %happen) {
    .set %yerelenlem 0
    .set %yerelenlem $1 $2
    .set %yerelenlem $remove(%yerelenlem,Latitude:)
  }
  if (*Longitude:* iswm %happen) {
    .set %yerelboylam 0
    .set %yerelboylam $1 $2
    .set %yerelboylam $remove(%yerelboylam,Longitude:)
    msg #nerden Nick: %yerelnick
    msg #nerden IP No: %ip
    msg #nerden Şehir: %yerelsehir
    msg #nerden Ülke: $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    msg #nerden Enlem: %yerelenlem
    msg #nerden Boylam: %yerelboylam
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { bak $2 }
}
alias bak { .whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

Set nickli arkadasın istegine göre yazılmıstır .. umarım isinize yarar ..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ülke Şehir Yeni	Z-Lined	mIRC Scripting Hazır Kodlar	6	09 Aralık 2011 15:56
28 ülke, 67 fotoğrafçı, tek şehir	pyracantha	Sinema Dünyası	0	30 Aralık 2010 18:59
ulke şehir bulucu tcl (yardım)	CanDostu	Eggdrop, NeoStats, BNC	2	10 Şubat 2009 11:40

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.