IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - İsim Mana Bulucu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/378100-isim-mana-bulucu.html)

İsim Mana Bulucu

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

Kod:

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;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: İsim Mana Bulucu

Kod:

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

Cevap: İsim Mana Bulucu

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

Cevap: İsim Mana Bulucu

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

Cevap: İsim Mana Bulucu

Güzel kod başarılar.

Cevap: İsim Mana Bulucu

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

Cevap: İsim Mana Bulucu

Çok Güzel Olmuş Teşekkurler.

Cevap: İsim Mana Bulucu

Alıntı:

h4pp3n Nickli Üyeden Alıntı (Mesaj 1040655476)

Kod:

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 }

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

Cevap: İsim Mana Bulucu

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.

Cevap: İsim Mana Bulucu

Alıntı:

diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042427647)

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