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

OperServ · 16 Şubat 2009, 06:21

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

ve yorumu ozele atsin

CesuryureK · 16 Şubat 2009, 07:41

PHP 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)
        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 %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.
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,191) Burcunun Bugünkü Yorumu:  
    msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $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.

OperServ · 16 Şubat 2009, 08:43

ISTEDIğIN Unknown command

bole bise cikti

Lucifer · 16 Şubat 2009, 11:02

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

OperServ · 17 Şubat 2009, 21:12

<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

Difuzyon · 17 Şubat 2009, 22:20

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.

OperServ · 18 Şubat 2009, 00:21

<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

Difuzyon · 18 Şubat 2009, 00:25

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

CesuryureK · 18 Şubat 2009, 00:42

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,191) Burcunun Bugünkü Yorumu:  
    msg $remove($sock($sockname),burc*) 1 $gettok($htmlfree(%data),1 $+ - $+ $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, %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,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 %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.
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,191) Burcunun Bugünkü Yorumu:  
    msg $remove($sock($sockname),burc*) 1 $gettok($htmlfree(%data),1 $+ - $+ $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
  }

muratt_aziz · 18 Şubat 2009, 00:53

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kod hakinda	OperServ	mIRC Scripting Sorunları	25	01 Mart 2015 15:05
hava durumu hakinda	OperServ	mIRC Scripting Sorunları	3	01 Kasım 2009 19:18
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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.