Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Her açılışta Farklı Karikatür Gösterimi

Ana Sayfa » internet » IRC » Her açılışta Farklı Karikatür Gösterimi
Her açılışta Farklı Karikatür Gösterimi

/*
==============================
Her Açılışta Farklı Karikatür

BY SeRDaR406

mIRC’in her açılışında farklı karikatürler gösteren

bir addon.

mIRC’in her açılışında karikatür;

Göstermek için: /ktur acik

Göstermemek için: /ktur kapali
==============================
*/

 

alias -l dw.tools {
if (!%ons) set %ons on
drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13
drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13
drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster
drawrect -r @karika $rgb(245,245,245) 1 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11)
drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) Kapat!
if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X
}
alias ktur { if ($1 == acik) { echo -a 4Her açlışta karikatür gösterimi açık! | set %ons on } | elseif ($1 == kapali) { echo -a 4Her açılışta karikatür gösterimi kapalı | set %ons off } }
alias -l ktr sockopen ka www.komikim.com 80 
on *:sockopen:ka: { 
var %m = sockwrite -n $sockname 
%m GET / HTTP/1.1 
%m Host: www.komikim.com 
%m $crlf 
}
on *:sockread:ka: { 
sockread %xw 
$iif(HTTP/1.1 500 * iswm %xw,echo -a 7(Karikatür Addonu)4Kaynak sitede şuan sorun var.Daha sonra tekrar deneyin.) 
if (/karikaturgoster.asp isin %xw) { 
write -c ss.jpg 
set %kadd $gettok($remove($gettok(%xw,4,32),src=,"),1-2,46) 
sockopen ktr www.komikim.com 80 
} 
}
on *:sockopen:ktr: { 
var %s = sockwrite -n $sockname 
%s GET %kadd HTTP/1.1 
%s Host: www.komikim.com 
%s $crlf 
}
on *:sockread:ktr: { 
sockread %s 
$iif(Length: isin %s,set %by $gettok(%s,2,32)) 
if (Data isin %s) set %hazır sadsadsa 
elseif (* !iswm %s) { 
set %size $sock(ktr).rcvd | sockrename ktr re
}
}
on *:sockread:re: {
sockread &oo
bwrite ss.jpg -1 -1 &oo 
var %yuz = $round($calc(100 * ($sock(re).rcvd - %size) / %by),1)
if (%yuz >= 100) {
set %pw $pic($shortfn(ss.jpg)).width
set %ph $calc($pic($shortfn(ss.jpg)).height + 30)
window -dohpBk[0]C +dL @karika 0 0 %pw %ph
window -a @karika
drawrect -rf @karika $rgb(245,245,245) 1 0 0 %pw %ph 
drawpic @karika 0 0 $shortfn(ss.jpg)
drawrect -r @karika $rgb(0,0,0) 1 0 0 %pw %ph
drawrect -r @karika $rgb(0,0,0) 1 0 $calc(%ph - 30) %pw 1
dw.tools $calc(%ph - 20) $calc(%pw - 20) 
.remove $shortfn(ss.jpg)
unset %hazır %by %s %size %xw %kadd
}
}
menu @karika {
uclick: {
if ($inrect($mouse.x,$mouse.y,20,$calc(%ph - 20),13,13)) {
if (%ons == on) { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 13 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 13 13 | set %ons off }
else { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 14 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 14 13 | drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $calc(%ph - 20) X | set %ons on }
}
if ($inrect($mouse.x,$mouse.y,$calc((%pw - 20) - $width(Kapat,Tahoma,11,1)),$calc((%ph - 20) + 1),$width(Kapat,Tahoma,11,1),$height(Kapat,Tahoma,11))) { window -c @karika | unset %ph %pw }
}
}
on *:start: { if (!%ons) set %ons on | if (%ons == on) ktr }

Kodların tümünü kopyalayıp mIRC Editor’ün Remote bölümüne yapıştırın.

mIRC’i kapatıp açın.Hepsi bu…

Her açılışta Farklı Karikatür Gösterimi - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

irc invex komutu

irc invex komutu 17 Ocak 2011

irc notify kullanımı

irc notify kullanımı 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

RASTGELE İÇERİKLER

Web Sohbet Güncellendi İHLAS HABER AJANSI amsg veya ame mesajların Help kanalına gitmesin addonu YAĞMUR OLSAM İzlanda Likeni EREL İNTERNET HİZMETLERİ Renklerin psikolojik etkileri

FACEBOOK'TA BİZ

Hoşgeldiniz

kelebek.gen.tr – kelebek mirc - Tüm Hakları Saklıdır