top-banner

 

..wWw.SohbetLim.net... Türkiye'nin 1 numaraLı Chat SoHBeT OdalarıNa hoşgeLdiniZ..

Menü

   Ana Sayfa
   Sohbet'e Giriş
  sesli şiirler
  Aşka Dair
  Altın Yumruklar
  Şarkı Sözleri
  Şiirler
  bedava program indir
  Canakkale Ozel
  Damar Sözler
  Dini Sohbetler
  Diyet Listeleri
  Evlilik
  FiLm izLe
  Foto Galeri
  Güzel sözler
  Güzeller Galerisi
  Hazır Mirc Kodları
  Hikayeler
  KomikLikLer
  Kurtlar Vadisi Pusu
  Magazin Haberleri
  Mircte Sohbet
  Mobilya Dekorasyon
  Muzik video
  Nostalji Klipler
  Rüya TabirLeri
  Sohbet Komutları
  SohbetLim özel videoLar
  Türk Destanları
  Yabancı Video Klipler
  Yemek tarifleri
 Hazır Mesajlar
 Sohbet Odaları
  İletişim
 

      sitemap

 Yazi Stilleri

Yazi Stilleri Yazi Stilleri hakk?nda d?k?manlar Yazi Stilleri, Yazi Stilleri ircd, Yazi Stilleri irc, ircd, unreal, unrealircd, unreal ircd - - Sohbet ve chat aramalari - icin kullanicilarina hizmet veren - Turkiye'nin en iyi sohbet sitesi - sohbet siteleri - chat odalari - damar sozler - ask sozleri - guzel sozler - canli sohbet - islami chat - dini sohbet - islami sohbet - dini chat - hayata dair aska dair Sohbet arkadaslik kurmak isteyenlere  

Okunma

8070
islami sohbet

Mirce eklenen b?t?n yaz? stilleri buyrun sizlerle.

B?r ince Bir Kal?n yazma :

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,041)

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 == @Bot) { 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 == @Bot) { 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 == @Bot) { 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 == @Bot) { 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 %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 == @Bot) { 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 == @Bot) { 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

 

 



  Yorumlar

 
sen bu siiri okurken - ahmet sel?uk ?lhan ?iirleri


kazim koyuncu - hey gidi karadeniz dinle


Sevmeli ama kimi neyi


?zlem tekin - erkekligime ver - 2010


sesli ?iirler - Yaln?zlar R?ht?m?


m?sl?m g?rses seni ben ellerin olsun diye mi sevdim


Cansu ve Kenan-? ??ld?rtan Haberler


Ren?ber ?zleyenlerini Co?turdu


Sevgi Denizi - SesLi ?iirLer


?mit Aksoy - Avare


Sohbetlim.Org DuyguSohbet Chat Odalaları Hizmeti
Sohbetlim.Org Islami Sohbet Odaları
Kış Depresyonu
Sila - Vaziyetler 2014
S?la - Saki
Sila - Reverans
Sila - Yabanci
Mircte Tekrar sevmek
Mircte Bir kad?n
mircte Bir g?n daha bitti

Copyright @ 2006 Tüm Hakları Saklıdır SoHBeTLiM.NeT

Desing By eFe