kodu

  1. bLaCk`SouL

    Gzline sayaç kodu

    Gsayac on alias gzline { if ( %g.numara == $null ) { set %g.numara 1 } gzline $1- 12«( $+ 2kiCk no 5 %g.numara 12)» inc %g.numara } ;Sayacı Sıfırlamak için /gsifir alias gsifir { set %g.numara 1 } #Gsayac end menu channel,nicklist,menubar,chat,query { Gzline Sayacı .Aç:.enable #Gsayac | /echo -a...
  2. Carpediem

    !Burc

    Kod sahibi: Toprak Dialog burc { Title "Burc Yorumu" Size -1 -1 193 121 Option dbu Button "Balik", 2, 5 21 40 13 Button "İkizler", 5, 5 69 40 13 Button "Başak", 8, 50 21 40 13 Button "Terazi", 9, 50 37 40 13 Button "Akrep", 10, 50 53 40 13 Button "Yay", 11, 50 69 40 13 Edit "", 13, 99...
  3. Carpediem

    !temizle

    on $*:TEXT:/^[!.]tem(i|ı)zle/Si:#:.temizle # alias -l temizle { if !$var($+(%,temiz-,$1),1) { var %1 1 | while %1 <= 40 { msg $1 $chr(31) | inc %1 } | set -eu60 $+(%,temiz-,$1) $1 } }
  4. AntepLi

    Mirc Yazıları büyük ve Renkli yazma

    alias big { bc 01 $1- } alias cbig { if ($1 !isnum 0-15) { return } bc $1 $2- } alias rbig { bc r $1- } alias -l bc { set -u2 %sp1 ~~ set -u2 %sp2 ~~ set -u2 %sp3 ~~ set -u2 %sp4 ~~ set -u2 %sp5 ~~ set -u2 %A1 ~****~ set -u2 %A2 **~~** set -u2 %A3...
  5. AntepLi

    Yaz kodu ile sevdiklerinize Şekilli yazılar gönderin

    Alias yaz { if ($len($1-) > 115) { echo -a 4» Çok Fazla Harf Yazdınız.. En Çok 115 halt } else { var %c = $rand(3,13) if ($1 == /me) { msg $active $+ %c $+ , $+ %c $+ X $+ * $me $2- $+ X msg $active $+ %c $+ , $+ %c $+ X1, $+ %c $+ * $me $2- $+ $+ %c...
  6. AntepLi

    Sesleneni ve yazdığı mesajı aktif pencerede görme

    on 1:TEXT:*:#:{ if ($me isin $1-) { if ($active != $chan) { /echo -a $timestamp 2« Nick Uyarıcı » 1••4 # 1•• Kanalından ••[5 $nick 1] •• Size sesleniyor.. •• 7 Yazdıgı Mesaj 1[ 2 $+ $1- $+ 1 ] } } } on *:TEXT:$(* $+ $me $+ *):?:{ if ($active == $nick) { goto son }...
  7. AntepLi

    Adminler için !Git !Gel

    on *:input:#: { if ($1 == !Gel) { /sajoin $2 # } if ($1 == !Git) { /sapart $2 # } }
  8. YouMyCure

    Nick Takip Remotesi

    on *:Text:*:*: { if $nick == TAKIP_NICK { window @Yazı echo @Yazı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1- } } TAKIP_NICK yazan yere o kişinin nickini yazılacak +olarak pencerenin logunu tuttutmak için on *:Text:*:*: { if $nick == TAKIP_NICK { mkdir...
  9. YouMyCure

    /rapor nick

    Kodun Amacı Tüm Kanallardaki Ban ve Kick İşlemlerini Kaydedip Daha Sonra Sorgulatabilmek Kullanımı /rapor nick on *:ban:#: { write $mircdira/ban $+ $nick $+ .txt . | write nicks.txt $nick } on *:kick:#: { write $mircdira/kick $+ $nick $+ .txt . | write nicks.txt $nick } alias rapor { if...
Üst Alt