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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   burc yorumunda hata (https://www.ircforumlari.net/mirc-scripting-sorunlari/440279-burc-yorumunda-hata.html)

OperServ 02 Ocak 2012 09:57
burc yorumunda hata
 
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 $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 02 Ocak 2012 12:40
Cevap: burc yorumunda hata
 
muneccim.com sitesinde sanırım çalışma var ondan kaynaklı kod çalışmıyor.

OperServ 02 Ocak 2012 13:01
Cevap: burc yorumunda hata
 
peki hocam ne yapmaliyiz :)

Paint 02 Ocak 2012 14:04
Cevap: burc yorumunda hata
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1040981814)
peki hocam ne yapmaliyiz :)
Ya sitenin açılmasını bekliyeceksin yada verileri başka siteden çekecek bir kod yazacaksın.

MesqeN 02 Ocak 2012 19:46
Cevap: burc yorumunda hata
 
muneccim.com Sitedinde degişim var

Kodlari tekrardan yazmak gerekir.

OperServ 04 Ocak 2012 00:17
Cevap: burc yorumunda hata
 
Peki nasil yazacayiz ben bise bilmiyorum yardim edin :)

OperServ 04 Ocak 2012 22:59
Cevap: burc yorumunda hata
 
yardim eden yokmu?

OperServ 22 Ocak 2012 06:46
Cevap: burc yorumunda hata
 
baska burc sitesi yokmu

muratt_aziz 22 Ocak 2012 11:45
Cevap: burc yorumunda hata
 
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) { 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 22 Ocak 2012 12:56
Cevap: burc yorumunda hata
 
olmadi

muratt_aziz 22 Ocak 2012 13:18
Cevap: burc yorumunda hata
 
sorun nedir peki

msg %nc $htmlfree(%data) bukısmı
echo -a %nc $htmlfree(%data) dene korumaların sorun yaratıyor olabilir

muratt_aziz 22 Ocak 2012 13:25
Cevap: burc yorumunda hata
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bend ecalışıyor echo olarak düzenlemiştim echo olarak calışıyorsa msg ye cevrildiğindede çalışır

OperServ 22 Ocak 2012 14:43
Cevap: burc yorumunda hata
 
hocam tam anlamadim

OperServ 22 Ocak 2012 17:08
Cevap: burc yorumunda hata
 
evet kod simdi oldu yanliz diyor satir cok uzun gosterilmiyor diyor

OperServ 22 Ocak 2012 21:18
Cevap: burc yorumunda hata
 
yardim eden yokmu?

Paint 22 Ocak 2012 22:31
Cevap: burc yorumunda hata
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1041005852)
yardim eden yokmu?
Kodu aldım ve bir satır düzenleme yapmadan denedim ve çalıştı.

OperServ 22 Ocak 2012 22:46
Cevap: burc yorumunda hata
 
evet calisyor ama satir cok uzun diyor olmuyor


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:28.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk