on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say %1 | haltdef } }
 
İLk Harfi REnkLi Yazmak :
 
on *:input:*: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
    msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
    halt
  }
}

 
İLk Harfi İnce Yazmak :
 
on *:input:*:if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 { say $bold($1-) | halt }
alias bold return $regsubex($1-,/(?<=^| )(.)/g,$+($chr(2),\1,$chr(2)))

 
ÇEştLi Yazı Stilleri :
 
#yaziturkce off 
on 1:INPUT:*:{  
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  unset %turkce 
  set %turkce $1- 
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt } 
  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô) 
  say %turkce 
  unset %turkce  
  halt 
  :halt 
  halt 
  :son 
} 
#yaziturkce end 
#yazikalinince off 
on 1:input:*:{ 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %kelime $1- 
  if ( $left($1,1) == . ) { goto bit } 
  set %kelime $replace(%kelime,ı,I) 
  set %kelime $replace(%kelime,ğ,g) 
  set %kelime $replace(%kelime,l,L) 
  set %kelime $replace(%kelime,b,ß) 
  set %kelime $replace(%kelime,Ş,$) 
  set %kelime $replace(%kelime,j,J) 
  set %kelime $replace(%kelime,o,ø) 
  set %kelime $replace(%kelime,t,†) 
  set %kelime $replace(%kelime,ç,¢) 
  set %kelime $replace(%kelime,:,¦) 
  set %kelime $replace(%kelime,Ç,¢) 
  set %kelime $replace(%kelime,ç,¢) 
  set %kelime $replace(%kelime,ü,û) 
  set %kelime $replace(%kelime,Ü,Û) 
  set %kelime $replace(%kelime,ö,ô) 
  set %kelime $replace(%kelime,Ö,Ô) 
  set %kelime $replace(%kelime,?,¿)  
  set %kelime $replace(%kelime,x,×)  
  set %kelime $replace(%kelime,slm,SeLam) 
  set %kelime $replace(%kelime,nbr,naßer¿) 
  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.) 
  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)  
  set %kelime $replace(%kelime,allah,Allah)  
  set %kelime $replace(%kelime,Yazgulu,YazguLu)  
  :bit 
  say %kelime 
  unset %kelime 
  :halt 
  halt 
  :son 
} 
#yazikalinince end 
#yazielite off 
on 1:input:*:{ 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %kelime $1- 
  if ( $left($1,1) == . ) { goto bit } 
  set %kelime $replace(%kelime,ı,I) 
  set %kelime $replace(%kelime,ğ,g) 
  set %kelime $replace(%kelime,l,L) 
  set %kelime $replace(%kelime,b,ß) 
  set %kelime $replace(%kelime,ı,I) 
  set %kelime $replace(%kelime,ş,$) 
  set %kelime $replace(%kelime,Ş,$) 
  set %kelime $replace(%kelime,j,J) 
  set %kelime $replace(%kelime,ç,¢) 
  set %kelime $replace(%kelime,ü,û) 
  set %kelime $replace(%kelime,Ü,Û) 
  set %kelime $replace(%kelime,ö,ô) 
  set %kelime $replace(%kelime,Ö,Ô) 
  set %kelime $replace(%kelime,:,¦) 
  set %kelime $replace(%kelime,?,¿)  
  set %kelime $replace(%kelime,slm,SeLam) 
  set %kelime $replace(%kelime,nbr,naßer¿) 
  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.) 
  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)  
  set %kelime $replace(%kelime,allah,Allah) 
  set %kelime $replace(%kelime,Yazgulu,YazguLu)  
  :bit 
  say %kelime 
  unset %kelime 
  :halt 
  halt 
  :son 
} 
#yazielite end 
#yaziqarisma off 
on 1:input:*:{ 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %kelime $1- 
  if ( $left($1,1) == . ) { goto bit } 
  set %kelime $replace(%kelime,o-,º) 
  set %kelime $replace(%kelime,k,]{) 
  set %kelime $replace(%kelime,1/4,¼) 
  set %kelime $replace(%kelime,1/2,½) 
  set %kelime $replace(%kelime,/,÷) 
  set %kelime $replace(%kelime,0,ø) 
  set %kelime $replace(%kelime,1,¹) 
  set %kelime $replace(%kelime,2,²) 
  set %kelime $replace(%kelime,3,³) 
  set %kelime $replace(%kelime,ae,Æ) 
  set %kelime $replace(%kelime,a,å) 
  set %kelime $replace(%kelime,b,ß) 
  set %kelime $replace(%kelime,c,©) 
  set %kelime $replace(%kelime,e,ë) 
  set %kelime $replace(%kelime,i,î) 
  set %kelime $replace(%kelime,l,£) 
  set %kelime $replace(%kelime,n,ñ) 
  set %kelime $replace(%kelime,o,ø) 
  set %kelime $replace(%kelime,r,®) 
  set %kelime $replace(%kelime,s,§) 
  set %kelime $replace(%kelime,u,µ) 
  set %kelime $replace(%kelime,x,×) 
  set %kelime $replace(%kelime,y,¥) 
  set %kelime $replace(%kelime,!,¡) 
  set %kelime $replace(%kelime,?,¿) 
  set %kelime $replace(%kelime,<set>,») 
  set %kelime $replace(%kelime,-,¬) 
  set %kelime $replace(%kelime,:,¦) 
  set %kelime $replace(%kelime,slm,SeLam) 
  set %kelime $replace(%kelime,nbr,naßer¿) 
  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.) 
  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)  
  set %kelime $replace(%kelime,allah,Allah) 
  set %kelime $replace(%kelime,Yazgulu,YazguLu)  
  :bit 
  say %kelime 
  unset %kelime 
  :halt 
  halt 
  :son 
} 
#yaziqarisma end 
#yaziilkbuyuk on
on 1:INPUT:*: { 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %Var3 $1- 
  unset %Var1 %Var2 
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1)) 
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand } 
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt } 
  :Start1 
  inc %Var1 1 
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($len(%Var3) != %Var1) { goto Start1 } 
  say %Var2 
  halt 
  :ServerCommand 
  :halt 
  halt 
  :son 
} 
#yaziilkbuyuk end 
#yazirenkli off 
on 1:INPUT:*:{ 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  unset %ahenk*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt } 
  :ilk 
  inc %ahenks 
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt } 
  %ahenkh = $mid($1-,%ahenks,1) 
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160)) 
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh 
  goto ilk 
  :halt 
  halt 
  :son 
} 
#yazirenkli end 
dialog Yazim { 
  title "Yazıtipi" 
  size -1 -1 110 220 
  radio "Tûrk¢e",1,10 10 90 20 
  radio "eLite",2,10 30 90 20 
  radio "Ilk Harf Büyük",3,10 50 90 20 
  radio "KaLın-İnce",7,10 70 90 20 
  radio "Qa®i§ma",5,10 90 90 20 
  radio "Rengarenk",6,10 110 90 20 
  radio "Normal",19,10 130 90 20 
  box "",20,5 0 100 155 
  button "TAMAM",21,5 195 100 20,ok 
} 
on 1:dialog:Yazim:*:*: { 
  if ( $devent == init ) { 
    if ($group(#yaziturkce).status == on ) { did -c Yazim 1 } 
    elseif ($group(#yazielite).status == on ) { did -c Yazim 2 } 
    elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 } 
    elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 } 
    elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 } 
    elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 } 
    else { did -c Yazim 19 } 
  } 
  if ( $devent == sclick ) { 
    if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | echo %logo2 11Yazı Stili "4Tûrk¢e11" Açıldı! } 
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo %logo2 11Yazı Stili "4eLite11" Açıldı! } 
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo %logo2 11Yazı Stili "4İlk Harf Büyük11" Açıldı! } 
    if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo %logo2 11Yazı Stili "4KaLın-İnCe11" Açıldı! } 
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo %logo2 11Yazı Stili "4Qa®i§ma11" Açıldı! } 
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo %logo2 11Yazı Stili "4R8e7n14G0a12r9e6N3k11" Açıldı! } 
    if ( $did == 19) { .disable #yazi* } 
  } 
} 
alias Yazim { dialog -m Yazim Yazim } 
alias acolor { dialog -m acolor acolor } 
dialog acolor { 
  title "Renkli yazı" 
  size -1 -1 169 109 
  box "Renk", 1, 6 5 80 69 
  text "Renkno:", 2, 16 27 22 13 
  edit "", 3, 51 20 25 22, center multi return 
  text "Arka:", 4, 16 50 29 13 
  edit "", 5, 51 43 25 22, center multi return 
  box "Diğer", 6, 84 5 79 69 
  check "Kalın", 7, 94 27 43 13 
  check "Çizgili", 8, 94 49 61 13 
  button "Önizleme", 9, 21 82 55 20 
  button "Tamam", 10, 93 82 55 20, ok 
  box "", 11, -1 -6 171 116 
} 
on *:dialog:acolor:*:*: { 
  if $devent = init { 
    did -a $dname 3 %ac.text 
    did -a $dname 5 %ac.back 
    if (%ac.bold == on) { did -c $dname 7 } 
    if (%ac.underline == on) { did -c $dname 8 } 
  } 
  if $devent = edit { 
    if $did = 3 { set %ac.text $did(3).text } 
    if $did = 5 { set %ac.back $did(5).text } 
  } 
  if $devent = sclick { 
    if $did = 7 { 
      if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2  } 
      if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 } 
    } 
    if $did = 8 { 
      if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2  } 
      if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 } 
    } 
    if $did = 9 { echo -a  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! } 
  } 
} 
#acolor off 
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt } 
#acolor end