[OperServ]

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 $nick $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.
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 $remove($sock($sockname),burc*) 4 $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu:  
    msg $remove($sock($sockname),burc*) 2 $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
    msg $remove($sock($sockname),burc*) 11,1 $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
    unset %burcid %data
  }

burc yorumunu gostermiyor neden olabilir?

[Paint]

muneccim.com sitesinde sanırım çalışma var ondan kaynaklı kod çalışmıyor.

[OperServ]

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

[Paint]

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

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

Ya sitenin açılmasını bekliyeceksin yada verileri başka siteden çekecek bir kod yazacaksın.

[MesqeN]

muneccim.com Sitedinde degişim var

Kodlari tekrardan yazmak gerekir.

[OperServ]

Peki nasil yazacayiz ben bise bilmiyorum yardim edin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[OperServ]

yardim eden yokmu?

[OperServ]

baska burc sitesi yokmu

[muratt_aziz]

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) { set %br $2 | set %nc $nick
    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 $nick $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) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 / $+ %br $+ -burcu-yorumu.html HTTP/1.1
  %s Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  %s $crlf
}
on *:sockread:burc*: {
  var %data
  sockread %data
  if (Sevgili isin %data) {
    msg %nc $htmlfree(%data)
    unset %burcid %data
  }
}

[OperServ]

olmadi