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

mIRC Bigtext

02 Aralık 2015 • 12:46 OxiGeN Hazır Kodlar

mIRC te Büyük yazılar yazmak isterseniz ?

alias bigtext {
  if (!$1) { return }
  tokenize 9 $1-
  if ($0 == 1) { var %fc = 01, %bc = 00, %fs = 10, %ff = Fixedsys }
  else {
    if ($3) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = $gettok($3,1,32), %ff = $gettok($3,2-,32) }
    else {
      if ($gettok($2,2-,32) isnum) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = 10, %ff = Fixedsys }
      else { var %fs = $gettok($2,1,32), %ff = $gettok($2,2-,32), %fc = 01, %bc = 00 }
    }
  }
  if (%bc !isnum 0-15) { %bc = 00 }
  if (%fc !isnum 0-15) { %fc = 01 }
  if (!%ff || !$isfontinstalled($qt(%ff))) { %ff = Fixedsys }
  if (!%fs || %fs !isnum) { %fs = 10 }
  var %text = $1, %i 0, %y 0
  %fc = $base(%fc,10,10,2)
  %bc = $base(%bc,10,10,2)
  window -hp @bigtext
  drawfill -r @bigtext $color(%bc) $color(%bc) 0 0
  drawtext -brp @bigtext $color(%fc) $color(%bc) $qt(%ff) %fs 0 0 %text
  var %heightend = $height(%text,%ff,%fs) + 1, %widthend = $width(%text,%ff,%fs,0,1) + 1
  while (%y &lt;= %heightend) {
    var %x 0, %s = $null
    while (%x &lt;= %widthend) {
      var %c = $iif($getdot(@bigtext,%x,%y) != $color(%bc),$coc($v1,%fc),%bc)
      if (%lc != %c) {
        var %lc = %c
        %c = $+($chr(3),%c,$chr(44),%c)
      }
      else %c = $null
      %s = $+(%s,%c,@)
      inc %x
    }
    %s = $+($chr(3),%bc,$chr(44),%bc,@,%s,$chr(3),%bc,$chr(44),%bc,@)
    if ($regex(%s,/\x03(?! $+ %bc $+ )/)) {
      msg $active %s
      inc %i
    }
    inc %y
  }
  window -c @bigtext
}
alias coc {
  var %i 0
  while (%i &lt; 16) {
    if ($color(%i) == $1) return $base(%i,10,10,2)
    inc %i
  }
  return $base($2,10,10,2)
}
;Alias by praetorian.
alias isfontinstalled {
  var %w = @isfontinstalled,%f = isfontinstalled.bmp
  window -ak0pBfh +d %w -1 -1 200 100
  drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0
  drawtext -r %w $rgb(255,255,255) "this is surely not the name of an installed font" -9 5 5 test.
  drawsave %w %f
  var %crc = $crc(%f)
  clear %w
  drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0
  drawtext -r %w $rgb(255,255,255) $+(",$1,") -9 5 5 test.
  drawsave %w %f
  var %crc2 = $crc(%f)
  .remove %f
  window -c %w
  if (%crc != %crc2) { return $true }
  else { return $false }
}

alias bigtext {

if (!$1) { return }

tokenize 9 $1-

if ($0 == 1) { var %fc = 01, %bc = 00, %fs = 10, %ff = Fixedsys }

else {

if ($3) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = $gettok($3,1,32), %ff = $gettok($3,2-,32) }

else {

if ($gettok($2,2-,32) isnum) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = 10, %ff = Fixedsys }

else { var %fs = $gettok($2,1,32), %ff = $gettok($2,2-,32), %fc = 01, %bc = 00 }

}

if (%bc !isnum 0-15) { %bc = 00 }

if (%fc !isnum 0-15) { %fc = 01 }

if (!%ff || !$isfontinstalled($qt(%ff))) { %ff = Fixedsys }

if (!%fs || %fs !isnum) { %fs = 10 }

var %text = $1, %i 0, %y 0

%fc = $base(%fc,10,10,2)

%bc = $base(%bc,10,10,2)

window -hp @bigtext

drawfill -r @bigtext $color(%bc) $color(%bc) 0 0

drawtext -brp @bigtext $color(%fc) $color(%bc) $qt(%ff) %fs 0 0 %text

var %heightend = $height(%text,%ff,%fs) + 1, %widthend = $width(%text,%ff,%fs,0,1) + 1

while (%y <= %heightend) {

var %x 0, %s = $null

while (%x <= %widthend) {

var %c = $iif($getdot(@bigtext,%x,%y) != $color(%bc),$coc($v1,%fc),%bc)

if (%lc != %c) {

var %lc = %c

%c = $+($chr(3),%c,$chr(44),%c)

}

else %c = $null

%s = $+(%s,%c,@)

inc %x

}

%s = $+($chr(3),%bc,$chr(44),%bc,@,%s,$chr(3),%bc,$chr(44),%bc,@)

if ($regex(%s,/\x03(?! $+ %bc $+ )/)) {

msg $active %s

inc %i

}

inc %y

}

window -c @bigtext

}

alias coc {

var %i 0

while (%i < 16) {

if ($color(%i) == $1) return $base(%i,10,10,2)

inc %i

}

return $base($2,10,10,2)

}

;Alias by praetorian.

alias isfontinstalled {

var %w = @isfontinstalled,%f = isfontinstalled.bmp

window -ak0pBfh +d %w -1 -1 200 100

drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0

drawtext -r %w $rgb(255,255,255) "this is surely not the name of an installed font" -9 5 5 test.

drawsave %w %f

var %crc = $crc(%f)

clear %w

drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0

drawtext -r %w $rgb(255,255,255) $+(",$1,") -9 5 5 test.

drawsave %w %f

var %crc2 = $crc(%f)

.remove %f

window -c %w

if (%crc != %crc2) { return $true }

else { return $false }

}

» Devamını Oku

Yorum yaz

Açılış Efekti (Starting)

02 Aralık 2015 • 12:44 OxiGeN Hazır Kodlar

Açılış Efekti (Starting)

on *:start:acilis
alias acilis {
window -aCBdop +deL @Acilis 10 10 400 150
.timerdegistir 0 0 /degistir
}
alias degistir {
set %renk $rand(2,12)
inc %xzy 1
if (%xzy <= 30) { goto harf1 } if (%xzy <= 60) { goto harf2 } if (%xzy <= 90) { goto harf3 } if (%xzy <= 120) { goto harf4 } if (%xzy <= 150) { goto harf5 } if (%xzy <= 180) { goto harf6 } if (%xzy <= 210) { goto harf7 } if (%xzy <= 250) { goto harf8 } if (%xzy == 251) { set %renk 1 | goto end } :harf1 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z) halt :harf2 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 $rand(a,z) halt :harf3 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 $rand(a,z) halt :harf4 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 $rand(a,z) halt :harf5 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 $rand(a,z) halt :harf6 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 $rand(a,z) halt :harf7 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 $rand(a,z) halt :harf8 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 $rand(a,z) halt :end clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 g unset %xzy .timerdegistir off .timer 1 1 window -c @Acilis } Çalıştırma komutu : /acilis

on *:start:acilis

alias acilis {

window -aCBdop +deL @Acilis 10 10 400 150

.timerdegistir 0 0 /degistir

}

alias degistir {

set %renk $rand(2,12)

inc %xzy 1

if (%xzy <= 30) { goto harf1 } if (%xzy <= 60) { goto harf2 } if (%xzy <= 90) { goto harf3 } if (%xzy <= 120) { goto harf4 } if (%xzy <= 150) { goto harf5 } if (%xzy <= 180) { goto harf6 } if (%xzy <= 210) { goto harf7 } if (%xzy <= 250) { goto harf8 } if (%xzy == 251) { set %renk 1 | goto end } :harf1 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z) halt :harf2 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 $rand(a,z) halt :harf3 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 $rand(a,z) halt :harf4 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 $rand(a,z) halt :harf5 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 $rand(a,z) halt :harf6 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 $rand(a,z) halt :harf7 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 $rand(a,z) halt :harf8 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 $rand(a,z) halt :end clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 g unset %xzy .timerdegistir off .timer 1 1 window -c @Acilis } Çalıştırma komutu : /acilis

» Devamını Oku

Yorum yaz

mİRC Bot Oluşturmak

02 Aralık 2015 • 12:43 OxiGeN Hazır Kodlar

irc kodu:

alias doldur {
var %ik 1
var %ikss $3
while (%ikss >= %ik) {
/sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1
dec %ikss
}
}

alias doldur {

var %ik 1

var %ikss $3

while (%ikss >= %ik) {

/sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1

dec %ikss

}

» Devamını Oku

Bir yorum

Remote Değiştirmeyi Engelleme

02 Aralık 2015 • 12:41 OxiGeN Addonlar

mIRC addonlar , mIRC Script için hazır kodlar, mIRC Bot ve İnviterler, mIRC dosyaları, Remote değiştirmeyi engelle, mirc Remote değiştirmeyi engelle kodu mIRC Remote Değiştirmeyi Engellemek Addonunu kullanmak için aşagıdaki kodu mIRC Script programınıza ekliyerek remote değiştirmeyi engellemeye sahip olabilirsiniz. alias remote { if $1 == off { if !%remote. [ $+ [ $1 ] ] { inc -u3 %remote. […]

» Devamını Oku

Yorum yaz

mIRC /sread Remote Okuma

02 Aralık 2015 • 11:50 OxiGeN Hazır Kodlar

Bilgi: /sread komutu ile mIRC’inizde yüklü remotelerin listelendiği bir combo açılır ve listeden seçtiğiniz remote dosyası ile aynı isimde bir pencere oluşur ve remote sayfası olduğu gibi o pencereye yansır. Kullanımı:

/sread

sread {
%remotes = $input(List, oem, Remotes, [ $left($regsubex($str(.,$script(0)),/./g,$nopath($script(\n)) $+ $chr(44)),-1) ] )
%win = @ $+ %remotes
window -en %win
loadbuf -r %win $shortfn($findfile($mircdir,%remotes,1) )
}

/sread

sread {

%remotes = $input(List, oem, Remotes, [ $left($regsubex($str(.,$script(0)),/./g,$nopath($script(\n)) $+ $chr(44)),-1) ] )

%win = @ $+ %remotes

window -en %win

loadbuf -r %win $shortfn($findfile($mircdir,%remotes,1) )

}

» Devamını Oku

Yorum yaz hazır kodlar, mirc, okuma, remote, scripting, turkce mırc

Ascii Dönüştürücü

02 Aralık 2015 • 10:11 OxiGeN Hazır Kodlar

Ascii Dönüştürücü kod’u gerçekten her coder’a gerekli kodlardan biridir, öncelikle basitçe Ascii Replacer(Ascii Dönüştürücü) nedir ondan bahsedelim. Özellikle web bağlantılı socketlerde karşınıza çok çıkabilecek sorunlardan birini ortadan kaldırmaya yarayan bu kod, webden gelen genellikle Türkçe karakterde bu sorunu yaratan bazı sembolleri orjinal haline çevirme amacıyla kullanılmaktadır. Mesela ö karakteri bir web karakteridir ve bunun karşılığı ö harfidir işte bu […]

» Devamını Oku

Yorum yaz

Türkçe Mirc Clone KorumaSı

01 Aralık 2015 • 13:08 OxiGeN Hazır Kodlar

Türkçe Mirc Clone KorumaSı

menu status,menubar, {
.-
.• © Turkirc Koruma !
..• Açık !:.enable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi AÇıldi. %logo
..• Kapalı !:.disable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi Kapatildi.. %logo
.-
}

#sericlone on
on *:snotice:*:{
if *Client*connecting*on* iswm $1- {
.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 2 {
.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) 30d :
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
}

#sericlone end

menu status,menubar, {

..• Açık !:.enable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi AÇıldi. %logo

..• Kapalı !:.disable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi Kapatildi.. %logo

}

#sericlone on

on *:snotice:*:{

if *Client*connecting*on* iswm $1- {

.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 2 {

.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) 30d :

unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

}

#sericlone end

» Devamını Oku

Yorum yaz addon, alias, clone, clone koruma, mirc, remote, script, turkce mırc, turkirc, variable

« 1 … 8 9 10 11 12 … 84 »