Etiketlenen üyelerin listesi

Toplam 5 adet sonuctan sayfa basi 1 ile 5 arasi kadar sonuc gösteriliyor

Konu: Farklı Yazı Şekilleri

  1. #1
    Harika - ait Kullanıcı Resmi (Avatar)
    Harika
    Guest

    Standart Farklı Yazı Şekilleri

    alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
    alias mdx.dll { return $dll(dll\mdx.dll,$1,$2-) }
    alias yati {
    if $dialog(yazitip) = $null { dialog -m yazitip yazitip }
    else { halt }
    }

    dialog yazitip {
    title "Yazıtipi"
    size 250 150 110 170
    radio "Elit",1,10 10 90 20
    radio "Full Ascii",2,10 30 90 20
    radio "Ters",3,10 50 90 20
    radio "Büyük-Küçük",4,10 70 90 20
    radio "Renkli",5,10 90 90 20
    radio "Normal",19,10 110 90 20
    box "",20,5 0 100 135
    button "Tamam",21,5 145 100 20,ok
    }
    on 1:dialog:yazitip:sclick{ .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli }
    on 1:dialog:yazitip:sclick{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
    on 1:dialog:yazitip:sclick{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
    on 1:dialog:yazitip:sclick{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli }
    on 1:dialog:yazitip:sclick{ .enable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
    on 1:dialog:yazitip:sclick:19:{ .disable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
    on 1:dialog:yazitip:init{
    mdx.dll MarkDialog $dname
    mdx SetFont 1,2,3,4,5,19,21 14 700 arial
    mdx SetColor $dname 1,2,3,4,5,19,21 background $rgb(010,180,255)
    mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
    if ($group(#turkce).status == on ) { did -c yazitip 1 }
    if ($group(#elit).status == on ) { did -c yazitip 2 }
    if ($group(#ters).status == on ) { did -c yazitip 3 }
    if ($group(#buykuc).status == on ) { did -c yazitip 4 }
    if ($group(#renkli).status == on ) { did -c yazitip 5 }
    if ($group(#turkce).status == off ) && ($group(#elit).status == off ) && ($group(#ters).status == off ) && ($group(#buykuc).status == off ) && ($group(#renkli).status == off ) { did -c yazitip 19 }
    }
    #renkli off
    on 1:INPUT:*:{
    unset %ahenk*
    set %ahenkk $1-
    if ( $chr(47) == $mid(%ahenkk,1,1) ) { %ahenkk | halt }
    set %ahenku $len(%ahenkk)
    set %ahenks 1
    :ilk
    if ( %ahenks > %ahenku ) goto son
    set %ahenkh $mid(%ahenkk,%ahenks,1)
    if ( %ahenkh == $chr(32) ) {
    %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
    }
    %ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
    inc %ahenks
    goto ilk
    :son
    say %ahenkt
    unset %ahenk*
    halt
    }
    #renkli end
    #turkce off
    on 1:INPUT:*:{
    unset %turkce
    set %turkce $1-
    if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt }
    %turkce = $replace(%turkce,ı,I)
    %turkce = $replace(%turkce,İ,I)
    %turkce = $replace(%turkce,ş,$)
    %turkce = $replace(%turkce,Ş,$)
    %turkce = $replace(%turkce,ç,c)
    %turkce = $replace(%turkce,Ç,c)
    %turkce = $replace(%turkce,ğ,G)
    %turkce = $replace(%turkce,Ğ,G)
    %turkce = $replace(%turkce,ü,u)
    %turkce = $replace(%turkce,Ü,U)
    %turkce = $replace(%turkce,b,ß)
    %turkce = $replace(%turkce,B,ß)
    %turkce = $replace(%turkce,<,«)
    %turkce = $replace(%turkce,>,»)
    say %turkce
    unset %turkce
    halt
    }

    #buykuc end

  2. #2
    Harika - ait Kullanıcı Resmi (Avatar)
    Harika
    Guest

    Standart

    #turkce end
    #elit off
    on 1:INPUT:*:{
    unset %elit
    set %elit $1-
    if ( $chr(47) == $mid(%elit,1,1) ) { %elit | halt }
    %elit = $replace(%elit,a,å)
    %elit = $replace(%elit,b,ß)
    %elit = $replace(%elit,c,©)
    %elit = $replace(%elit,d,D)
    %elit = $replace(%elit,e,ë)
    %elit = $replace(%elit,f,F)
    %elit = $replace(%elit,h,]-[)
    %elit = $replace(%elit,i,î)
    %elit = $replace(%elit,k,|{)
    %elit = $replace(%elit,l,£)
    %elit = $replace(%elit,m,M)
    %elit = $replace(%elit,n,ñ)
    %elit = $replace(%elit,o,ø)
    %elit = $replace(%elit,p,P)
    %elit = $replace(%elit,q,¶)
    %elit = $replace(%elit,r,®)
    %elit = $replace(%elit,s,§)
    %elit = $replace(%elit,t,±)
    %elit = $replace(%elit,u,µ)
    %elit = $replace(%elit,v,V)
    %elit = $replace(%elit,w,\\')
    %elit = $replace(%elit,x,×)
    %elit = $replace(%elit,y,¥)
    %elit = $replace(%elit,z,Z)
    %elit = $replace(%elit,ı,I)
    %elit = $replace(%elit,İ,Î)
    %elit = $replace(%elit,ş,$)
    %elit = $replace(%elit,Ş,$)
    %elit = $replace(%elit,ç,¢)
    %elit = $replace(%elit,Ç,¢)
    %elit = $replace(%elit,ğ,g)
    %elit = $replace(%elit,Ğ,Ğ)
    %elit = $replace(%elit,ü,û)
    %elit = $replace(%elit,Ü,Û)
    %elit = $replace(%elit,ö,ô)
    %elit = $replace(%elit,Ö,Ô)
    %elit = $replace(%elit,!,¡)
    %elit = $replace(%elit,?,¿)
    %elit = $replace(%elit,<,[)
    %elit = $replace(%elit,>,»)
    %elit = $replace(%elit,-,¬)
    %elit = $replace(%elit,:,¦)
    %elit = $replace(%elit,',`)
    %elit = $replace(%elit,`,')
    say %elit
    unset %elit
    halt
    }
    #elit end
    #ters off
    on 1:INPUT:*:{
    unset %ters*
    set %tersd $1-
    if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }
    set %tersu $len(%tersd)
    set %terss 1
    :ilk
    if ( %tersu == 0 ) goto son
    if ( $mid(%tersd,%tersu,1) == $chr(32) ) {
    %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))
    }
    %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)
    dec %tersu
    inc %terss
    goto ilk
    :son
    say %terst
    unset %ters*
    halt
    }
    #ters end
    #buykuc off
    on 1:INPUT:*:{
    unset %buy*
    set %buyk $1-
    if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | halt }
    set %buys 1
    set %buyu $len(%buyk)
    :ilk
    if ( %buys > %buyu ) goto son
    set %buyh $mid(%buyk,%buys,1)
    if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
    }
    %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o ,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç)
    set %buyb %buyb $+ %buyh
    inc %buys
    if ( %buys > %buyu ) goto son
    set %buyh $mid(%buyk,%buys,1)
    if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
    }
    %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O ,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç)
    inc %buys
    set %buyb %buyb $+ %buyh
    goto ilk
    :son
    say %buyb
    unset %buy*
    halt
    }

  3. #3
    Teqnic - ait Kullanıcı Resmi (Avatar)
    Teqnic
    Guest

    Standart

    Güzel Bir Yazı Addon'u Emeğine Sağlık Harika..

  4. #4
    Harika - ait Kullanıcı Resmi (Avatar)
    Harika
    Guest

    Standart

    ricam'dır )))

  5. #5
    Harika - ait Kullanıcı Resmi (Avatar)
    Harika
    Guest

    Standart

    @Teqnic ricamdır )))

Konu Bilgileri

Bu Konuya Gözatan Kullanıcılar

Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)

Benzer Konular

  1. Neden "O" Diğerlerinden Daha Farklı.
    Konu Sahibi Harika Forum Forum Oyunları
    Cevap: 39
    Son Mesaj : 21.Mayıs.2016, 18:48
  2. İkiz bebeklerin babaları farklı çıktı!
    Konu Sahibi Harika Forum Dünya'dan Haberler
    Cevap: 0
    Son Mesaj : 08.Mart.2016, 22:16

Bu Konu için Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •