Gunluk Fal Addonu
admin tarafýndan Hazır Kodlar, mIRC Addonları içinde postalandý, tags: Addonlar, chat, google, güncel haber, güncel haberler, Haberler, hadise, help egitim, ignore, ignore eðitimi, irc eÄŸitim, IRCd Bot, ircd eÄŸitim, IRCd-Services, kodlar, liderchat help departmanı, mirc, mirc addonları, mirc bul, mirc chat, mirc dowloand, mirc download, mirc eÄŸitim, mirc eðitim, mirc haberleri, mirc ignore, mirc indir, mirc yükle, mircbul, mirch, mircindir, Remote, remoteler, sohbet, Türkçe mirc, Türkçe mirc indir;Günlük Fal addonı, Editleyen: ‘KeMaNcI’
;Günlük falınıza bakmak için “/günlükfal” yazınız, ya da popupslardaki Günlük Fal’a tıklayınız.
on *:LOAD:echo 12 -st > Günlük Fal addonını yüklediniz. “/günlükfal” yazarak yada popupslardaki Günlük Fal’a tıklayarak falınıza bakabilirsiniz.
menu status,menubar,channel {
-
Günlük Fal:günlükfal
}
alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
alias -l falgoster { if !$window(GünlükFal) { window -k0 @GünlükFal } | aline -p @GünlükFal $1- }
on *:sockopen:muneccim:{
if %burç {
sockwrite -n $sockname GET $+(/gunluk_fal/bugun.asp?burc=,%burç) HTTP/1.1
sockwrite -n $sockname Host: muneccim.com $+ $crlf $+ $crlf
}
else { echo 12 -st > Hata: Burç seçmelisiniz.. }
}
on *:sockread:muneccim:{
if ($sockerr) {
echo 12 -st > Hata: Bağlantı hatası, lütfen tekrar deneyiniz.
halt
}
else {
var %temptext
sockread %temptext
if (*<td><p align=”center”><img src=”../images/*”></td>* iswm %temptext) && $istok(koc.boga.ikizler.yengec.aslan.basak.terazi.akrep.yay.oglak.kova.balik,$gettok($gettok($gettok(%temptext,3,47),1,34),1,46),46) { falgoster $+(04,$upper($gettok($gettok($gettok(%temptext,3,47),1,34),1,46))) }
if (*<p align=”center”><big><big><font face=”Arial Black”>*</font></big></big></p>* iswm %temptext) { falgoster $+(14,$htmlfree(%temptext)) }
if (<p><font color=”#000000″ face=”Arial Narrow”><strong><big>* iswm %temptext) { falgoster $+(10,$htmlfree(%temptext)) | falgoster | if $sock(muneccim) { sockclose muneccim } }
}
unset %burç
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
dialog sa_gunlukfal {
title “Günlük Fal”
size -1 -1 59 35
option dbu
combo 1, 3 8 53 55, size drop
box “Burç:”, 2, 1 0 57 21
button “Oku”, 3, 3 22 25 10
box “”, 4, 1 17 29 17
button “Kapat”, 5, 31 22 25 10, ok
box “”, 6, 29 17 29 17
}
on *:dialog:sa_gunlukfal:*:*:{
if $devent = INIT {
didtok $dname 1 44 koç,boğa,ikizler,yengeç,aslan,başak,terazi,akrep,yay,oğlak,kova,balık
did -c $dname 1 1
}
if $devent = SCLICK {
if $did = 3 { if !$sock(muneccim) { set %burç $did($dname,1).sel | sockopen muneccim muneccim.com 80 } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
}
}
Bu Kodu Yuklemek için ONcelikle Arkadaslar İlk Yapacagımız Şey C:\Program Files içinde bulunan C:\Program Files\xx-Script Dosyamızın içine bir tane txt dosyası acıyoruz ornek olarak veriyorum gunlukfal.txt yukardaki addonumuzu bu koda yerleştirdikden sonra dosyamıza kayıt ediyoruz ve scriptimizi acıyoruz oraya yazmamız gereken acıldıkdan sonra ise /load -rs gunlukfal.txt kodunu yazıp enterledikden sonra gunluk fal addonumuz kullanıma hazır haldedir.
