[BLaCK_and_WHiTe]

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

; Oytun Cleus'un
; Süper Fantastik Burç Yorumcusu
;
; Bu kod yığını, 27 Nisan 2008'de
; Oytun Cleus tarafından, BLaCK_and_WHiTe için
; hazırlanmıştır.
;
; Bu satırlar kullanılarak,
; Creative Commons BY-NC-SA lisans türüne
; uygun olarak kullanılabilir.
;
dialog burc {
title "Süper Fantastik Burç Yorumcusu"
size -1 -1 216 155
option dbu
box "Burcunuz", 1, 2 2 75 133
list 2, 4 9 71 124, size
box "Yorumu", 3, 76 2 138 133
edit "", 4, 78 9 134 124, read multi autovs
button "Kapat", 5, 176 140 37 12, ok
box "", 6, -1 133 228 50
text "", 7, 3 142 167 8
}
on 1:dialog:burc:init:*: {
burc | did -ra $dname 7 Burç durumu güncelleniyor...
}
on 1:dialog:burc:sclick:2: {
did -ra $dname 4 $readini(burctemp.txt,$did(2).seltext,acikla)
}
on 1:dialog:burc:close:0: {
.sockclose burc | .timerBurcOku off
}
alias burc {
write -c burctemp.txt | set %burc.itemler h
sockclose burc
sockopen burc [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on 1:sockopen:burc: {
if $sockerr > 1 { return }
sockwrite -n $sockname GET /rss.asp HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
if !$dialog(burc) { dialog -m burc burc }
did -ra burc 7 Bağlantı tamam, burçlar bekleniyor...
}
on 1:sockread:burc: {
if $sockerr > 1 { return }
.timerBurcOku 0 1 { did -ra burc 7 Bunu yapan: Oytun Cleus - 27 Nisan 2008 }
sockread %t
if <item> isin %t { set %burc.itemler e | return }
if %burc.itemler == e {
if !$dialog(burc) { dialog -m burc burc }
did -ra burc 7 Burçlar indiriliyor...
if *<title>*</title>* iswm %t {
set %burc.badi $gettok($remove(%t,<title>,</title>,$chr(9)),1,32)
did -a burc 2 $gettok($remove(%t,<title>,</title>,$chr(9)),1,32)
}
if *<description>*</description*> iswm %t {
writeini burctemp.txt %burc.badi acikla $remove(%t,<description>,</description>,$chr(9))
}
}
}
menu query,status,channel {
burc addonu: burc
}

Eski burc addonlarındaki yaşanan sorunlarından dolayı Oytun Cleus'tan rica ettim. O da bu ricamı kırmadı.

[bøCek]

AsLnda SoyLe birsey Olmasi daha guzeL olurdu Koruma veya Kanal'dakı Botlarin OzeLıne gıden Herkez !burc Akrep yazdıgı zaman Ona Karsılık vermesı daha makbuLe gecerdı benim dusuncem. Yani millet mIRC'ın Icınde zaten Serdar'ın yapmis oLdugu AddonLari kuLLanior Ama yınede Eline emegine saglik arkdasin.

[bøCek]

sniper konumuzla alakası Ney Onu ben Cozemedim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(