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

!burç terazi seklinde sorgulayabilirsiniz.tabi kodu mirce eklemeniz gerekir.

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ç $+() | halt }
if !$istok(%burçlar,$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+() | 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
isin %data {
sockread %data
echo -a %data
msg %burçnick %data | sockclose burç
}
}

Alinti:IRCFORUMLARI.NET

Yazar:Paint