Addonlar | Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Açılışında Farklı Karikatürler

13 Mart 2014 • 02:02 OxiGeN Addonlar

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 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 &amp;oo 
bwrite ss.jpg -1 -1 &amp;oo 
var %yuz = $round($calc(100 * ($sock(re).rcvd - %size) / %by),1) 
if (%yuz &gt;= 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 }

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 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 }

» Devamını Oku

Yorum yaz addon, karikatür, mirc, remote

Kick ve Kline sayaci Addon

13 Mart 2014 • 02:00 OxiGeN Addonlar

Kick Sayacı: 

alias kick { kick $1- %kicksayac | kicksayac } 

alias kicksayac { 
if (%kicksayac == $null) { 
set %kicksayac 1 
} 
%kicksayac = %kicksayac + 1 
halt 
} 

Kline Sayacı: 

alias kline { kline $1- %klinesayac | klinesayac } 

alias klinesayac { 
if (%klinesayac == $null) { 
set %klinesayac 1 
} 
%klinesayac = %klinesayac + 1 
halt 
}

Kick Sayacı:

alias kick { kick $1- %kicksayac | kicksayac }

alias kicksayac {

if (%kicksayac == $null) {

set %kicksayac 1

}

%kicksayac = %kicksayac + 1

halt

}

Kline Sayacı:

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {

if (%klinesayac == $null) {

set %klinesayac 1

}

%klinesayac = %klinesayac + 1

halt

}

» Devamını Oku

Yorum yaz addon, kick, kline, mirc, remote, sayaci

Flood Koruması Addon

13 Mart 2014 • 01:59 OxiGeN Addonlar

on @1:text:*:#:{ 
if $me !isop $chan { halt } | if $nick isop $chan { halt } 
var %bflood $strip($1-) 
var %mflood $strip($$1) 
if ($len(%bflood) &gt;= 250 ) || ($len($1) &gt;= 50 ) { 
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤ 
} 
}

on @1:text:*:#:{

if $me !isop $chan { halt } | if $nick isop $chan { halt }

var %bflood $strip($1-)

var %mflood $strip($$1)

if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {

/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤

}

» Devamını Oku

Yorum yaz addon, flood, Koruması, mirc, remote

Tüm Banları temizleyen Addon

13 Mart 2014 • 01:58 OxiGeN Addonlar

raw 367:*: { 
mode $2 -b $3 
} 
alias banac { 
mode # +b 
} 
on &amp;*:text:*:#:{ 
if ($1 == !bantemizle) { banac } 
} 
on *:ban:#aşk: { 
if (%biz == 10) { banac | msg $chan Kanal ban Listesi Temizleniyor. | set %biz 1 } 
if (%biz == 15) { banac | msg $chan Kanal ban Listesi Temizleniyor. | set %biz 1 } 
if (%biz == 15) { unset %biz } 
else { 
inc %biz 
} 
}

raw 367:*: {

mode $2 -b $3

}

alias banac {

mode # +b

}

on &*:text:*:#:{

if ($1 == !bantemizle) { banac }

}

on *:ban:#aşk: {

if (%biz == 10) { banac | msg $chan Kanal ban Listesi Temizleniyor. | set %biz 1 }

if (%biz == 15) { banac | msg $chan Kanal ban Listesi Temizleniyor. | set %biz 1 }

if (%biz == 15) { unset %biz }

else {

inc %biz

}

» Devamını Oku

Yorum yaz addon, banları, temizleyen, tüm

Ekran Koruyucu Addon

12 Mart 2014 • 14:47 OxiGeN Addonlar

alias Ekoru { 
.window -Bdok0pbx +fyX @Ekran_koruyucu
.timer_sc_nokta 0 3 drawdot @Ekran_koruyucu $rand(0,15) 2000 10 5 
.timer_sckoşabine 0 5 drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys 1000 11 500 500 $me
gelbana
.timer_scgel -hio 0 1 gelbana
.timer_sc_koşgel 0 1 baslıx
.timer_sc_kapat_ -mio 0 1 .SCC | .set %MX $+($mouse.x,$mouse.y)
}
alias SCC {
if ( $+($mouse.x,$mouse.y) == %MX) { Halt } 
if ( $+($mouse.x,$mouse.y) != %MX) { SCF } 
}
alias SCF { .timersc off | .window -c @Ekran_koruyucu | .timer_sc* off }
on *:KEYDOWN:@Ekran_koruyucu:*:SCF
alias -l gelbana {
drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys $rand(0,500) $rand(0,500) $rand(0,500) MTX
drawtext -r @Ekran_koruyucu ($rgb(100,173,255) verdana 20 200 650 Ekranı Açmak için Fareyi Kıpırdatın }
alias -l baslıx {
drawtext -r @Ekran_koruyucu $rgb(73,73,73) Verdana 50 112 12 Screen Saver
drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Verdana 50 110 10 Screen Saver
}

alias Ekoru {

.window -Bdok0pbx +fyX @Ekran_koruyucu

.timer_sc_nokta 0 3 drawdot @Ekran_koruyucu $rand(0,15) 2000 10 5

.timer_sckoşabine 0 5 drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys 1000 11 500 500 $me

gelbana

.timer_scgel -hio 0 1 gelbana

.timer_sc_koşgel 0 1 baslıx

.timer_sc_kapat_ -mio 0 1 .SCC | .set %MX $+($mouse.x,$mouse.y)

}

alias SCC {

if ( $+($mouse.x,$mouse.y) == %MX) { Halt }

if ( $+($mouse.x,$mouse.y) != %MX) { SCF }

}

alias SCF { .timersc off | .window -c @Ekran_koruyucu | .timer_sc* off }

on *:KEYDOWN:@Ekran_koruyucu:*:SCF

alias -l gelbana {

drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys $rand(0,500) $rand(0,500) $rand(0,500) MTX

drawtext -r @Ekran_koruyucu ($rgb(100,173,255) verdana 20 200 650 Ekranı Açmak için Fareyi Kıpırdatın }

alias -l baslıx {

drawtext -r @Ekran_koruyucu $rgb(73,73,73) Verdana 50 112 12 Screen Saver

drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Verdana 50 110 10 Screen Saver

}

» Devamını Oku

Yorum yaz addon, ekran, koruyucu

Download – Dosya indirici addon

12 Mart 2014 • 14:46 OxiGeN Addonlar


Örnek : /download Sohbet.net selam.txt
İşte kod:

alias download {
if ($sock(download)) {
echo $colour(info text) @download *** başka bir dosya download ediliyor, birazdan tekrar deneyiniz.
return
}
sockopen download $1 80
sockmark download $1 $2
}
on *:sockopen:download:{
if ($sockerr) {
echo $colour(info text) @download *** download ederken hata: $sockerr
return
}
write -c $gettok($sock($sockname).mark,2,32)
unset %downloadlength %downloadready
window -c @download
sockwrite -n $sockname GET $+(/,$gettok($sock($sockname).mark,2,32)) HTTP/1.0
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,32)
sockwrite -n $sockname
}
on *:sockread:download:{
if (%downloadready != 1) {
var %header
sockread %header
while ($sockbr) {
if (Content-length: * iswm %header) {
%downloadlength = $gettok(%header,2,32)
if (* !iswm $window(@download)) window @download
echo $colour(info text) @download *** dosya boyutu: %downloadlength bytes
}
elseif (* !iswm %header) {
%downloadready = 1
%downloadoffset = $sock($sockname).rcvd
break
}
sockread %header
}
}
sockread 4096 &amp;d
while ($sockbr) {
if (* !iswm $window(@download)) window @download
echo $colour(info text) @download *** alınan: $round( $calc(100 * ($sock($sockname).rcvd - %downloadoffset) / %downloadlength) ,1) $+ %
bwrite $gettok($sock($sockname).mark,2,32) -1 -1 &amp;d
sockread 4096 &amp;d
}
}
on *:sockclose:download:{
echo $colour(info text) @download *** indirme tamamlandı.
}

Örnek : /download Sohbet.net selam.txt

İşte kod:

alias download {

if ($sock(download)) {

echo $colour(info text) @download *** başka bir dosya download ediliyor, birazdan tekrar deneyiniz.

return

}

sockopen download $1 80

sockmark download $1 $2

}

on *:sockopen:download:{

if ($sockerr) {

echo $colour(info text) @download *** download ederken hata: $sockerr

return

}

write -c $gettok($sock($sockname).mark,2,32)

unset %downloadlength %downloadready

window -c @download

sockwrite -n $sockname GET $+(/,$gettok($sock($sockname).mark,2,32)) HTTP/1.0

sockwrite -n $sockname Accept: */*

sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,32)

sockwrite -n $sockname

}

on *:sockread:download:{

if (%downloadready != 1) {

var %header

sockread %header

while ($sockbr) {

if (Content-length: * iswm %header) {

%downloadlength = $gettok(%header,2,32)

if (* !iswm $window(@download)) window @download

echo $colour(info text) @download *** dosya boyutu: %downloadlength bytes

}

elseif (* !iswm %header) {

%downloadready = 1

%downloadoffset = $sock($sockname).rcvd

break

}

sockread %header

}

sockread 4096 &d

while ($sockbr) {

if (* !iswm $window(@download)) window @download

echo $colour(info text) @download *** alınan: $round( $calc(100 * ($sock($sockname).rcvd - %downloadoffset) / %downloadlength) ,1) $+ %

bwrite $gettok($sock($sockname).mark,2,32) -1 -1 &d

sockread 4096 &d

}

on *:sockclose:download:{

echo $colour(info text) @download *** indirme tamamlandı.

}

» Devamını Oku

Yorum yaz addon, dosya, download, indirici, mirc, remote

Tarihte Bugün Addon

12 Mart 2014 • 14:45 OxiGeN Addonlar

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }
alias tbugun { dialog -m tarih tarih  }
on *:SockOpen:tarih*:{
  sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0
  sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf
}
on *:SockRead:tarih*:{ 
  var %a
  sockread %a
  if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }
  if (%sjn == Ok!) &amp;&amp; (sayfa başına !isin %a) &amp;&amp; (dön&lt;/FONT&gt; !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),&lt;BR&gt;,$crlf)) }
  if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }
}
dialog tarih {
  title "Tarihte Bugün Gösterici"
  size -1 -1 133 169
  option dbu
  edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar
  button "Çıkış", 2, 47 151 37 12, ok
}
on *:dialog:tarih:init:*:{
  unset %sjn 
  sockclose tarih* 
  sockopen $+(tarih,$r(1,999)) www.bianet.org 80
}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }

alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }

alias tbugun { dialog -m tarih tarih }

on *:SockOpen:tarih*:{

sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0

sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf

}

on *:SockRead:tarih*:{

var %a

sockread %a

if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }

if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) }

if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }

}

dialog tarih {

title "Tarihte Bugün Gösterici"

size -1 -1 133 169

option dbu

edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar

button "Çıkış", 2, 47 151 37 12, ok

}

on *:dialog:tarih:init:*:{

unset %sjn

sockclose tarih*

sockopen $+(tarih,$r(1,999)) www.bianet.org 80

}

» Devamını Oku

Yorum yaz addon, bugün, mirc, remote, tarihte

« 1 … 24 25 26 27 28 … 39 »