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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - burc hakinda (https://www.ircforumlari.net/mirc-scripting-sorunlari/180385-burc-hakinda.html)

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

ve yorumu ozele atsin

Cevap: burc hakinda

PHP- Kodu:

   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.

Cevap: burc hakinda

ISTEDIğIN Unknown command

bole bise cikti

Cevap: burc hakinda

Alıntı:

operserv Nickli Üyeden Alıntı (Mesaj 641037)

ISTEDIğIN Unknown command

Alıntı:

operserv Nickli Üyeden Alıntı (Mesaj 641037)

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

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

Cevap: burc hakinda

Kod:

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.

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

Cevap: burc hakinda

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

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- Kodu:

       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- Kodu:

   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
  }

Cevap: burc hakinda

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