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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Şubat 2009, 06:21   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
burc hakinda




s.a arkdalar mesela birisi kanalda !burc aslan
yazdiginda bot kanalda desin aslan burcun bugunki yorumu ozelinize yolandi desin

ve yorumu ozele atsin

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 16 Şubat 2009, 07:41   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree { var %x, %$regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %$remove(%x,&nbsp;,$chr(9)) | return %
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
  
if ($== !burc) {
    if (!$
2msg $chan $nick Burcun adını girmedinizÖrnek : !Burc Aslan
    
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $chan $nick Türkçe karakter girmeyiniz!
    else {
      /
msg $chan $2 Burcun Bugunki Yorumu Özelinize Yolandi.
      if (!%
burclarset %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
      
if ($istok(%burclar,$2,32)) {
        
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin...
        
set %burcid $findtok(%burclar,$2,32)
        
sockclose $+(burc*,$nick)
        
sockopen $+(burc*,$nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.
muneccim.com 80
        sockmark 
$+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
      }
      else 
msg $chan $nick Burç adı hatalıTekrar deneyiniz..!
    }
  }
}
on *:sockopen:burc*: {
  var %
sockwrite -n $sockname
  
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191HTTP/1.1
  
%s Host
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.
muneccim.com
  
%s $crlf
}
on *:sockread:burc*: {
  
sockread %data
  
if (face="Arial Narrow"isin %data) {
    
msg $remove($sock($sockname),burc*)  $+ $gettok($sock($sockname).mark,1,191Burcunun Bugünkü Yorumu:  
    
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
    
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
    unset %
burcid %data
  


istediğin özelliğe çevirdim kod çok eski bir kod elimde mevcuttu sahibini hatırlamıyorum.

__________________
Şimdi Saat Sensizliğin Ertesi..

Konu CesuryureK tarafından (16 Şubat 2009 Saat 07:55 ) değiştirilmiştir. Sebep: Oytun Cleus tarafından, BLaCK_and_WHiTe için hazırlanan benzer bir kod daha var ARAMA yapabilirsiniz
 
Alıntı ile Cevapla

Alt 16 Şubat 2009, 08:43   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




ISTEDIğIN Unknown command

bole bise cikti

 
Alıntı ile Cevapla

Alt 16 Şubat 2009, 11:02   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




operserv Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ISTEDIğIN Unknown command

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

bole bise cikti




- [10:44] <NeverBackdown> !burc akrep
- [10:45] <@NeverBackDown1> akrep Burcun Bugunki Yorumu Özelinize Yolandi.
[10:45] <NeverBackdown1> Duygularınızdaki yoğunluk davranışlarınıza da yansıyor. Ancak özellikle dikkat isteyen konularda bunu önlemeniz yararınıza olacak. Içinizdeki fırtınaları iş yaşamınıza aksettirmeyin. Rahatlamak için bütün yarım kalmış işlerinizi bitirmekte yarar var.
[10:45] <NeverBackdown1> Kısa süreli beraberlikten bıkanlar ilerki günlerde uzun süreli bir beraberliğe adım atacaklar. Bir müddet sonra hiç ummadığınız bir yerden elinize para geçecek. Bu günlerde mantar, us gibi hastalıklarınız nüksedebilir.


!burc Aslan, Akrep vsvs.. bu şekilde dene Code sorunsuz çalişiyor

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Alt 17 Şubat 2009, 21:12   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




<cehennem> !burc ikizler
<Bot> ikizler Burcun Bugunki Yorumu Özelinize Yolandi.

ozelde /html diyor
</HTML> yaşamın diğer alanlarında karşınıza çıkan fırsatlar kendinizi bir anlamda iyi hissetmenize yarayacak. Maddi açıdan da şu günlerde rahatlayacaksınız. Yine de ayağınızı yorganınıza göre uzatmakta fayda var. Sonunda siz karlı çıkarsınız.

statuste bole bise cikiyor
cehennemIkizler No such nick/channel
-
cehennemIkizler No such nick/channel

 
Alıntı ile Cevapla

Alt 17 Şubat 2009, 22:20   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } alias isn { if ($2 isin $1) return $true } on *:text:*:#: { if ($1 == !burc) { if (!$2) msg $chan $nick Burcun adını girmediniz! Örnek : !Burc Aslan elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $chan $nick Türkçe karakter girmeyiniz! else { msg $chan $2 Burcun Bugunki Yorumu Özelinize Yolandi. if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik if ($istok(%burclar,$2,32)) { msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin... set %burcid $findtok(%burclar,$2,32) set %istenenburc $2 set %isteyennick $nick sockclose $+(burc*,$nick) sockopen $+(burc*,$nick)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid) } else msg $chan $nick Burç adı hatalı! Tekrar deneyiniz..! } } } on *:sockopen:burc*: { var %s = sockwrite -n $sockname %s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1 %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:burc*: { sockread %data if (face="Arial Narrow"> isin %data) { msg %isteyennick %istenenburc Burcunun Bugünkü Yorumu: msg %isteyennick %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32) msg %isteyennick %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32) unset %burcid %data %isteyen* } }

6,21 version scriptte denedim çalışıyor.

 
Alıntı ile Cevapla

Alt 18 Şubat 2009, 00:21   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




<BoT> Burcun Yorumu Alınıyor ßekleyin...
<BoT> Kova Burcunun Bugünkü Yorumu:
<BoT> </HTML> Sağladığınız ayrıcalıklar sayesinde iş hayatınızda kademe kademe ilerliyorsunuz. Etrafta hayranlık uyandıran birisiniz ve hiç tanımadığınız kişiler size yakınlaşmak istiyor. Bu yüzden özel hayatınızda yeni dostluklar yeni bir
<BoT> </HTML> aşk sizi bekliyor olabilir. Bu arada bazı insanlarla sorun yaşayabilir, onlarla mücadele etmek zorunda kalabilirsiniz. Onlarla savaşacak gücünüz var. Kendinize dikkat etmezseniz kısa zamanda yorgun düşersiniz. Ayaklarınıza dikkat.
<BoT> kova Burcunun Bugünkü Yorumu:
<BoT> </HTML> Sağladığınız ayrıcalıklar sayesinde iş hayatınızda kademe kademe ilerliyorsunuz. Etrafta hayranlık uyandıran birisiniz ve hiç tanımadığınız kişiler size yakınlaşmak istiyor. Bu yüzden özel hayatınızda yeni dostluklar yeni bir
<BoT> </HTML> aşk sizi bekliyor olabilir. Bu arada bazı insanlarla sorun yaşayabilir, onlarla mücadele etmek zorunda kalabilirsiniz. Onlarla savaşacak gücünüz var. Kendinize dikkat etmezseniz kısa zamanda yorgun düşersiniz. Ayaklarınıza dikkat.

ozelde hem html cikiyor hemde 2 kere diyor :S

 
Alıntı ile Cevapla

Alt 18 Şubat 2009, 00:25   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




Sen bence VARIABLES kısmındaki bu konuyla ilgili %değerleri sil , öyle dene.

 
Alıntı ile Cevapla

Alt 18 Şubat 2009, 00:42   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




doğru </HTML> gibi çıkmakta onu yoketmek için kodun en alt kısımdaki %a değeri yerine ctrl+k ile bir renk vermen yeterli..
%a değeri olunca </HTML> kısmını yazmakta, eğer o %a değerini Silersekte sorun vermekte

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
    msg $remove($sock($sockname),burc*)  1 $gettok($sock($sockname).mark,1,191Burcunun Bugünkü Yorumu:  
    
msg $remove($sock($sockname),burc*) 1 $gettok($htmlfree(%data),$+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
    
msg $remove($sock($sockname),burc*) 1 $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
    unset %
burcid %data
  


kodda 1 olarak gözüküyordur $gettok'tan önceki kısım orası renk kısmıdır kodda 1 kısımlarını mirce eklerken başına Ctrl+k >> 1 << koymayı unutmayın.

Kodu Düzelttim Alabilirsin.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree { var %x, %$regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %$remove(%x,&nbsp;,$chr(9)) | return %
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
  
if ($== !burc) {
    if (!$
2msg $chan $nick Burcun adını girmedinizÖrnek : !Burc Aslan
    
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $chan $nick Türkçe karakter girmeyiniz!
    else {
      /
msg $chan $2 Burcun Bugunki Yorumu Özelinize Yolandi.
      if (!%
burclarset %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
      
if ($istok(%burclar,$2,32)) {
        
msg $nick 4,1 Burcun Yorumu Alınıyor.Bekleyin...
        
set %burcid $findtok(%burclar,$2,32)
        
sockclose $+(burc*,$nick)
        
sockopen $+(burc*,$nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.
muneccim.com 80
        sockmark 
$+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
      }
      else 
msg $chan $nick Burç adı hatalıTekrar deneyiniz..!
    }
  }
}
on *:sockopen:burc*: {
  var %
sockwrite -n $sockname
  
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191HTTP/1.1
  
%s Host
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.
muneccim.com
  
%s $crlf
}
on *:sockread:burc*: {
  
sockread %data
  
if (face="Arial Narrow"isin %data) {
    
msg $remove($sock($sockname),burc*)  1 $gettok($sock($sockname).mark,1,191Burcunun Bugünkü Yorumu:  
    
msg $remove($sock($sockname),burc*) 1 $gettok($htmlfree(%data),$+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
    
msg $remove($sock($sockname),burc*) 1 $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
    unset %
burcid %data
  



__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 18 Şubat 2009, 00:53   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: burc hakinda




Bende guzel calısıyor denedım şimdi

 
Alıntı ile Cevapla

Cevapla

Etiketler
burc, hakinda, mirc, mirc download, mirc indir


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kod hakinda OperServ mIRC Scripting Sorunları 25 01 Mart 2015 15:05
Operator Hakinda OperServ mIRC Scripting Sorunları 1 10 Mart 2009 10:36
unotify hakinda OperServ mIRC Scripting Sorunları 12 08 Mart 2009 01:43
radyo hakinda ? foxmd mIRC Scripting Sorunları 6 23 Nisan 2007 19:57