Hoşgeldin Ya Şehr-i Ramazan...
IRCForumlari.Net - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  IF Reklam Alanı

  IRCForumlari.Net - IRC ve mIRC Kullanıcılarının Buluşma Noktası mIRC Scripting Hazır Kodlar

 


Türkiyenin En Eglenceli Forumu  Şekershell İnternet Hizmetleri

Hadi hemen sohbete başla, geyik.net  Reklam Ver

Sohbet seni bekliyor! Kelebek.Org forumtutkusu Reklam Alanı IF Reklam Alanı


Hazır Kodlar Bakıp inceleyebileceğiniz veya scriptlerinizde kullanabileceğiniz hazır addonlar.


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 28 Kasım 2005, 18:19   #1
Utku
Guest

Utku - ait Kullanıcı Resmi (Avatar)
 

Mesajlar: n/a
Konuları: 41400
WEB Sitesi:
IRC Sunucusu:
Facebook:
Twitter:
İlgi Alanı:
Aldığı Beğeni:
Verdiği Beğeni:
IF Ticaret Yüzdesi:(%)
Çeşitli yazı şekilleri addonu


-- Sponsor Baglantı --

Kod:
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:1:{  .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:2:{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:3:{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:4:{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:5:{ .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:0:{
  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
}
#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
}
#buykuc end
/yati yazıp çalıştırabilirsiniz.

Addonun yazarını bilmiyorum, ama büyük ihtimal Abc olması lazım.


Konu Utku tarafından (28 Kasım 2005 Saat 22:14 ) değiştirilmiştir.
      Alıntı

IRCForumlari.NET Reklamlar
Alt 28 Kasım 2005, 22:06   #2
NaTSuKa
Guest

NaTSuKa - ait Kullanıcı Resmi (Avatar)
 

Mesajlar: n/a
Konuları: 41400
WEB Sitesi:
IRC Sunucusu:
Facebook:
Twitter:
İlgi Alanı:
Aldığı Beğeni:
Verdiği Beğeni:
IF Ticaret Yüzdesi:(%)




Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!


      Alıntı

Alt 28 Kasım 2005, 22:16   #3
Utku
Guest

Utku - ait Kullanıcı Resmi (Avatar)
 

Mesajlar: n/a
Konuları: 41400
WEB Sitesi:
IRC Sunucusu:
Facebook:
Twitter:
İlgi Alanı:
Aldığı Beğeni:
Verdiği Beğeni:
IF Ticaret Yüzdesi:(%)




Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!


      Alıntı

Alt 20 Ekim 2006, 17:07   #4

CeNGaWeR - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 05 Aralık 2005
Mesajlar: 110
Konuları: 23
WEB Sitesi: www.sohbetevi.com
IRC Sunucusu:
Facebook:
Twitter:
İlgi Alanı:
Aldığı Beğeni: 0
Verdiği Beğeni: 0
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
IF Puanı: 0
Yanıt: Çeşitli yazı şekilleri addonu





Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!


Çevrimdışı
   
  Alıntı

Alt 21 Ekim 2006, 23:10   #5

CeNGaWeR - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 05 Aralık 2005
Mesajlar: 110
Konuları: 23
WEB Sitesi: www.sohbetevi.com
IRC Sunucusu:
Facebook:
Twitter:
İlgi Alanı:
Aldığı Beğeni: 0
Verdiği Beğeni: 0
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
IF Puanı: 0
Yanıt: Çeşitli yazı şekilleri addonu





Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!


Çevrimdışı
   
  Alıntı

Alt 21 Ekim 2006, 23:28   #6

h4pp3n - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 01 Şubat 2006
Nerden: İstanbul
Mesajlar: 409
Konuları: 13
WEB Sitesi: www.cadde.gen.tr
IRC Sunucusu: irc.mircscripting.net
Facebook: facebook.com/h4pp3n
Twitter: twitter.com/h4pp3n
İlgi Alanı: mIRC Scripting
Aldığı Beğeni: 102
Verdiği Beğeni: 102
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
IF Puanı: 1582
Yanıt: Çeşitli yazı şekilleri addonu





Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!

__________________
if (insansayisi <= hayvansayisi) { hayvan sayisi artmakta } else { hayvan sayisi coksa insan arama }

Çevrimdışı
   
  Alıntı

Alt 21 Ekim 2006, 23:50   #7

CeNGaWeR - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 05 Aralık 2005
Mesajlar: 110
Konuları: 23
WEB Sitesi: www.sohbetevi.com
IRC Sunucusu:
Facebook:
Twitter:
İlgi Alanı:
Aldığı Beğeni: 0
Verdiği Beğeni: 0
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
IF Puanı: 0
Yanıt: Çeşitli yazı şekilleri addonu





Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!


Çevrimdışı
   
  Alıntı

Alt 22 Ekim 2006, 00:58   #8

Ajan - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Kasım 2005
Mesajlar: 478
Konuları: 8
WEB Sitesi: Yok
IRC Sunucusu: Bıraktım
Facebook:
Twitter:
İlgi Alanı: C ++
Aldığı Beğeni: 7
Verdiği Beğeni: 7
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
IF Puanı: 147
Yanıt: Çeşitli yazı şekilleri addonu





Kullanıcılara ait mesajları görebilmeniz için üye olmalısınız. Üye olmak için lütfen tıklayın!

__________________
Suyun intiharıdır şelale..

Çevrimdışı
   
  Alıntı


Yeni Konu   Cevap Yaz

Etiketler
cesitli, Çeşitli, mirc download, mirc indir, sekilleri, yazi, şekilleri

Seçenekler
Stil

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

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık





LinkBack
LinkBack URL LinkBack URL
About LinkBacks About LinkBacks