İsim Mana Bulucu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SiLuet · 20 Ocak 2011, 19:17

Başlıktanda Anlaşılacagı Üzere İsimlerin Manalarını öğrenmeye yarayan Bi Kod.

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

alias isim dialog -m isim isim 
dialog isim {
  title "İsim Mana Bulucu"
  size -1 -1 146 36
  option dbu
  edit "", 1, 5 7 135 11, read autohs 
  edit "", 2, 5 20 51 8
  button "Anlamı Nedir?", 3, 56 20 35 9, default flat
  box "", 5, 2 1 141 32
  text "by Siluet", 4, 120 25 21 6
}
on *:dialog:isim:sclick:3: {
  sockclose isim
  isimanlam $did(isim,2) 
  did -r isim 1,2
  did -a isim 1 %aranan İsminin Manası Aranıyor..  
}

alias isimanlam { sockclose isim | set -e %aranan $1 | sockopen isim 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }  
on *:SockOpen:isim:{  
  sockwrite -n $sockname GET /isimara.asp?ad= $+ %aranan HTTP/1.1
  sockwrite -n $sockname host:vazgectimsenden.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:isim:{  
  var %anlamı
  sockread %anlamı
  if (* $+ %aranan $+ * iswm %anlamı) { did -r isim 1 | did -a isim 1 $htmlfre(%anlamı) demektir. }
  if (*Veri Tabanımızda* iswm %anlamı) { did -r isim 1 | did -a isim 1 Aradığınız İsim Veri Tabanımızda Bulunmamaktadır.. }

} 

alias htmlfre {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,HTTP/1.1 200 OK,Server: Microsoft-IIS/6.0)
  return %x  
}

/isim Yazarak Dialogu Açabilirsiniz.

Görüntüsüde şöyle;

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

h4pp3n · 21 Ocak 2011, 12:18

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

alias isim {
  sockclose anlam
  sockopen anlam 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  msg #anlam Arama yapılıyor bekleyiniz ..
  set %isim $1
}
on *:sockopen:anlam:{
  sockwrite -n $sockname GET /isimara.asp?ad= $+ $replace(%isim,ü,$chr(37) $+ FC,ş,$chr(37) $+ FE,ğ,$chr(37) $+ F0,ç,$chr(37) $+ E7,ı,$chr(37) $+ FD,ö,$chr(37) $+ F6) 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:anlam:{
  var %hppn
  sockread %hppn
  if (*<center>*</font></center>* iswm %hppn) { msg #anlam $htmlfree(%hppn) | sockclose anlam }
  if (*&nbsp;</td><td width="514" >*</td>* iswm %hppn) { msg #anlam $remove($htmlfree(%hppn),%isim) | sockclose anlam }
}
alias htmlfree {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!anlam*:#anlam:{ isim $2 }

bende uzun zaman önce yazmıstım böyle bir kodda paylasmamıstım .. senin konunun altında paylasıyım bende .. bu da kanalda kullanmak isteyenler icin ..

#anlam kanalında !anlam isim seklinde calısır ..

iyi forumlar ..

VocaList · 21 Ocak 2011, 18:16

Senin Addonunu kullanıyiyorum Dostum işlevi Süper (:

Adrenaline · 03 Şubat 2011, 01:28

Kanka eline saglık güzel bi kod olmuş.

Yunus · 03 Şubat 2011, 11:38

Güzel kod başarılar.

armuthasan · 25 Şubat 2011, 17:58

eliniz sağlık ama ikinci verilken kodda sürekli sunu diyor

[17:55:35] -> *#anlam* Aradığınız Kayıt Veri Tabanımızda Bulunmamaktadır
-
#anlam bu kişi şuanda sunucuda bulunmuyor
-

diyor neden acaba

Pargali · 26 Aralık 2011, 06:18

Çok Güzel Olmuş Teşekkurler.

Subzero · 23 Ocak 2021, 19:13

h4pp3n Nickli Üyeden Alıntı
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 isim {
  sockclose anlam
  sockopen anlam 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  msg #anlam Arama yapılıyor bekleyiniz ..
  set %isim $1
}
on *:sockopen:anlam:{
  sockwrite -n $sockname GET /isimara.asp?ad= $+ $replace(%isim,ü,$chr(37) $+ FC,ş,$chr(37) $+ FE,ğ,$chr(37) $+ F0,ç,$chr(37) $+ E7,ı,$chr(37) $+ FD,ö,$chr(37) $+ F6) 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:anlam:{
  var %hppn
  sockread %hppn
  if (*<center>*</font></center>* iswm %hppn) { msg #anlam $htmlfree(%hppn) | sockclose anlam }
  if (*&nbsp;</td><td width="514" >*</td>* iswm %hppn) { msg #anlam $remove($htmlfree(%hppn),%isim) | sockclose anlam }
}
alias htmlfree {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!anlam*:#anlam:{ isim $2 }

bende uzun zaman önce yazmıstım böyle bir kodda paylasmamıstım .. senin konunun altında paylasıyım bende .. bu da kanalda kullanmak isteyenler icin ..

#anlam kanalında !anlam isim seklinde calısır ..

iyi forumlar ..

zamanında böle bir kod yapılmış denedim ama çalışmadı neden olabilir..

[19:06]» -> *#anlam* Arama yapılıyor bekleyiniz ..
-
#anlam Böyle bir rumuz veya kanal bulunmuyor

böyle bişey çıktı şimdiden teşekkür ederim..

diEfoRyoU · 23 Ocak 2021, 21:02

kodun çalışmaması site kaynak kodlarının değişmesi ya da sitenin komple kapanmış olmasından kaynaklı olabilir.
senin aldığın uyarıya bakacak olursak da kodun #anlam kanalında denemediğin anlaşılıyor.

Subzero · 23 Ocak 2021, 21:48

diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kodun çalışmaması site kaynak kodlarının değişmesi ya da sitenin komple kapanmış olmasından kaynaklı olabilir.
senin aldığın uyarıya bakacak olursak da kodun #anlam kanalında denemediğin anlaşılıyor.

site aktif ama sanırım isim anlamlarını kaldırmışlar ve denedim sonuc bu şekilde çıkıyor

[21:46]» <Rumuz2> !anlam ayşe
[21:46]» <sub> Arama yapılıyor bekleyiniz ..

dahada bir şey çıkmıyor teşekkürler

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İtalyanca İsim Sorma, İtalyanca İsim Nasıl Sorulur?	Violent	İtalyanca	0	12 Nisan 2014 22:50
Zahiri Mana	Ecrin	Dini Sözlük	0	04 Temmuz 2013 18:41
Mana Khemia 2 (PS2)	KarakıZ	Bilgisayar Oyunları	0	11 Ocak 2012 16:44

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.