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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - !burç <burcunuz> (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/446167-burc-ltburcunuzgt.html)

!burç <burcunuz>

İstek üzerine bir burç kodu yazdım. Kaynak olarak turk.net i kullandım uzun ömürlü olması için.

Kod:

On *:text:!burç*:#:{ 

  if $sock(burç) { msg $chan Şu anda başka bir burçun yorumu alınıyor lütfen daha sonra tekrar deneyin. | halt }

  if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık

  if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }

  if !$istok(%burçlar,$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }

  msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . | set %burçnick $nick

  set %burçid $findtok(%burçlar,$2,124)

  msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,%burçid,124)) | msg $nick -

  sockclose burç | sockopen burç fal.turk.net 80 

}

on *:sockopen:burç: {

  var %k sockwrite -n $sockname

  %k GET /gunluk_fal.asp?f= $+ %burçid HTTP/1.1

  %k Host: fal.turk.net

  %k $crlf

}

on *:sockread:burç: {

  var %data

  sockread %data

  if <div class="font12_g"> isin %data {

    sockread %data

    echo -a %data

    msg %burçnick %data | sockclose burç

  }

}

Cevap: !burç <burcunuz>

kendi mircinize yüklemediniz di mi ?

Cevap: !burç <burcunuz>

bota yükledim !burç çektim
Burcun yorumu özelinize gönderilecek, lütfen bekleyin
diyor ama gelen birşey yok

Cevap: !burç <burcunuz>

Alıntı:

Bosson Nickli Üyeden Alıntı (Mesaj 1041044266)

bota yükledim !burç çektim
Burcun yorumu özelinize gönderilecek, lütfen bekleyin
diyor ama gelen birşey yok

Uzun süreli olması için kullandığım turk.net 1 ay sonra site tasarımını değişince kodda pert oldu haliyle başka güzel bir site bulursam kodu güncelleyebilirim. O zamana kadar konu kilit.