Mirc Borsa Altın Döviz Takip Kodları

ON *:INPUT:*: {
if $regex($1,/^[!.](alt[ıi]n)/i) {
if ($2) { notice $nick 14[4HATA UYARI14] $+(10,$nick) 2Lütfen Komutu Doğru Yazınız. 4Komut: 7!altın 2veya 7!altin 2şeklinde | halt }
msg $chan $+($str($chr(160),25),14[4ALTIN PİYASASI14])
msg $chan $+($chr(3),$chr(50),$chr(2),$chr(45))
sockclose altinx
.hadd -m saltın chan #
sockopen altinx altin.piyasadoviz.com 80
}
}
on *:text:*:#:{
if $regex($1,/^[!.](alt[ıi]n)/i) {
if ($2) { notice $nick 14[4HATA UYARI14] $+(10,$nick) 2Lütfen Komutu Doğru Yazınız. 4Komut: 7!altın 2veya 7!altin 2şeklinde | halt }
msg $chan $+($str($chr(160),25),14[4ALTIN PİYASASI14])
msg $chan $+($chr(3),$chr(50),$chr(2),$chr(45))
sockclose altinx
.hadd -m saltın chan #
sockopen altinx altin.piyasadoviz.com 80
}
}
menu channel,query,status {
Altın Piyasası {
sockclose altinx
echo -a $+($str($chr(160),25),14[4ALTIN PİYASASI14])
echo -a $+($chr(3),$chr(50),$chr(2),$chr(45))
sockopen altinx altin.piyasadoviz.com 80
}
}
alias htmlfree { if ($len($1-) |]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:altinx:{
sockwrite -nt $sockname GET /fiyat HTTP/1.1
sockwrite -nt $sockname Host: altin.piyasadoviz.com
sockwrite -nt $sockname $crlf
}
on *:sockread:altinx:{
var %:altin | sockread %:altin | tokenize 32 %:altin
if (*

Genişletmek için tıkla ...