IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Açılış Efekti (Starting) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/53774-acilis-efekti-starting.html)

XcLusive 12 Nisan 2008 23:22
Açılış Efekti (Starting)
 
Kod:
on *:start:acilis
alias acilis {
  window -aCBdop +deL @Acilis 10 10 400 150
  .timerdegistir 0 0 /degistir
}
alias degistir {
  set %renk $rand(2,12)
  inc %xzy 1
  if (%xzy <= 30) { goto harf1 }
  if (%xzy <= 60) { goto harf2 }
  if (%xzy <= 90) { goto harf3 }
  if (%xzy <= 120) { goto harf4 }
  if (%xzy <= 150) { goto harf5 }
  if (%xzy <= 180) { goto harf6 }
  if (%xzy <= 210) { goto harf7 }
  if (%xzy <= 250) { goto harf8 }
  if (%xzy == 251) { set %renk 1 | goto end }
  :harf1
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z)
  halt
  :harf2
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
  halt
  :harf3
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
  halt
  :harf4
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
  halt
  :harf5
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
  halt
  :harf6
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)
  halt
  :harf7
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 i
  drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)
  halt
  :harf8
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 i
  drawtext @Acilis %renk Arial 100 235 25 n
  drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)
  halt
  :end
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 i
  drawtext @Acilis %renk Arial 100 235 25 n
  drawtext @Acilis %renk Arial 100 285 25 g
  unset %xzy
  .timerdegistir off
  .timer 1 1 window -c @Acilis
}

Yapım süresi : 10 dk :)
Kodlayan ben : :)
Çalıştırma komutu : /acilis

Med Cezir 13 Nisan 2008 04:38
Cevap: Açılış Efekti (Starting)
 
Eglenceli Bir şey :) Emegine Saglık

detay 13 Nisan 2008 11:27
Cevap: Açılış Efekti (Starting)
 
Güzel calisma timer i 0 degilde timer -h 0 100 falan yapsak yada 50 belki daha güzel olur

CipriX 13 Nisan 2008 13:05
Cevap: Açılış Efekti (Starting)
 
La olum manyakmısınız nesiniz :p

sniper 14 Nisan 2008 00:51
Cevap: Açılış Efekti (Starting)
 
hehehe Çok GüzeL ELine SağLık Kardeş de :D desi ne dersen şu canım sıkıldı uğraş uğraş bu çıktı ortaya biraz değiştirdim şimdiden özürdiLiyorum :D Matrak OLsun Diye oynadım codenin üzerinde :D :D

on *:start:acilis
alias acilis {
window -aCBdop +deL @Acilis 10 10 400 150
.timerdegistir 0 0 /degistir
}
alias degistir {
set %renk $rand(2,12)
inc %xzy 1
if (%xzy <= 30) { goto harf1 }
if (%xzy <= 60) { goto harf2 }
if (%xzy <= 90) { goto harf3 }
if (%xzy <= 120) { goto harf4 }
if (%xzy <= 150) { goto harf5 }
if (%xzy <= 180) { goto harf6 }
if (%xzy <= 210) { goto harf7 }
if (%xzy <= 250) { goto harf8 }
if (%xzy == 251) { set %renk 1 | goto end }
:harf1
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z)
halt
:harf2
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
halt
:harf3
clear @Acilis
drawtext @Acilis %renk Arial 100 1 25 S
drawtext @Acilis %renk Arial 100 55 25 =
drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
halt
:harf4
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 88 25 =
drawtext @Acilis %renk Arial 100 118 25 =
drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
halt
:harf5
clear @Acilis
drawtext @Acilis %renk Arial 100 1 25 S
drawtext @Acilis %renk Arial 100 55 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
halt
:harf6
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 88 25 =
drawtext @Acilis %renk Arial 100 118 25 =
drawtext @Acilis %renk Arial 100 135 25 =
drawtext @Acilis %renk Arial 100 135 25 =
drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)
halt
:harf7
clear @Acilis
drawtext @Acilis %renk Arial 100 1 25 S
drawtext @Acilis %renk Arial 100 55 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 208 25 =
drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)
halt
:harf8
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 88 25 =
drawtext @Acilis %renk Arial 100 118 25 =
drawtext @Acilis %renk Arial 100 135 25 =
drawtext @Acilis %renk Arial 100 190 25 =
drawtext @Acilis %renk Arial 100 240 25 >
drawtext @Acilis %renk Arial 100 250 25 ))
drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)
halt
:end
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 o
drawtext @Acilis %renk Arial 100 70 25 v
drawtext @Acilis %renk Arial 100 100 25 v
drawtext @Acilis %renk Arial 100 150 25 y
drawtext @Acilis %renk Arial 100 200 25 e
drawtext @Acilis %renk Arial 100 250 25 a
drawtext @Acilis %renk Arial 100 310 25 h
drawtext @Acilis %renk Arial 100 400 25 ^(o_o)^
unset %xzy
.timerdegistir off
.timer 1 1 window -c @Acilis
}

_________________________________

Locked 16 Nisan 2008 13:18
Cevap: Açılış Efekti (Starting)
 
la olum birde kodlari hangi dosyaya aticağimizi gösterseydin keşke beee :P :D

XcLusive 16 Nisan 2008 13:30
Cevap: Açılış Efekti (Starting)
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

buradan öğrenebilirsin..

Kan 16 Nisan 2008 17:27
Cevap: Açılış Efekti (Starting)
 
halil bu ne hacı := çok süper olmuş :D

TrueblackmetaL 20 Nisan 2008 14:28
Cevap: Açılış Efekti (Starting)
 
şimdi ben bi addon ekledim kategoriye
!şarkı yazcam winap'tan hanqi şarkı çaldığımı göstericek böle bişey yapabilirmiyiz?

insane 07 Ekim 2008 14:51
Cevap: Açılış Efekti (Starting)
 
Bu Starting Yazan Yeri Değişemesmiyiz ? ((:

XcLusive 07 Ekim 2008 16:37
Cevap: Açılış Efekti (Starting)
 
değiştirirsin ama yazacağın harflerin x ve y boyutlarını ayarlaman gerekecek.

insane 07 Ekim 2008 16:58
Cevap: Açılış Efekti (Starting)
 
Peki NasıL YazarIz ?

Editor 07 Ekim 2008 17:35
Cevap: Açılış Efekti (Starting)
 
Kod:
on *:start:acilis
alias acilis {
  window -aCBdop +deL @Acilis 10 10 400 150
  .timerdegistir 0 0 /degistir
}
alias degistir {
  set %renk $rand(2,12)
  inc %xzy 1
  if (%xzy <= 30) { goto harf1 }
  if (%xzy <= 60) { goto harf2 }
  if (%xzy <= 90) { goto harf3 }
  if (%xzy <= 120) { goto harf4 }
  if (%xzy <= 150) { goto harf5 }
  if (%xzy <= 180) { goto harf6 }
  if (%xzy <= 210) { goto harf7 }
  if (%xzy <= 250) { goto harf8 }
  if (%xzy == 251) { set %renk 1 | goto end }
  :harf1
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z)
  halt
  :harf2
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
  halt
  :harf3
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
  halt
  :harf4
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
  halt
  :harf5
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
  halt
  :harf6
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)
  halt
  :harf7
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 i
  drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)
  halt
  :harf8
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 i
  drawtext @Acilis %renk Arial 100 235 25 n
  drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)
  halt
  :end
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 S
  drawtext @Acilis %renk Arial 100 70 25 t
  drawtext @Acilis %renk Arial 100 100 25 a
  drawtext @Acilis %renk Arial 100 150 25 r
  drawtext @Acilis %renk Arial 100 190 25 t
  drawtext @Acilis %renk Arial 100 220 25 i
  drawtext @Acilis %renk Arial 100 235 25 n
  drawtext @Acilis %renk Arial 100 285 25 g
  unset %xzy
  .timerdegistir off
  .timer 1 1 window -c @Acilis
}
KırmızıyLa gösterdiğim yerlere bakarsan anlıyacaksın Kolay Gelsin.

XcLusive 07 Ekim 2008 18:23
Cevap: Açılış Efekti (Starting)
 
drawtext @Acilis %renk Arial 100 5 25 S
drawtext @Acilis %renk Arial 100 70 25 t
drawtext @Acilis %renk Arial 100 100 25 a
drawtext @Acilis %renk Arial 100 150 25 r
drawtext @Acilis %renk Arial 100 190 25 t
drawtext @Acilis %renk Arial 100 220 25 i
drawtext @Acilis %renk Arial 100 235 25 n
drawtext @Acilis %renk Arial 100 285 25 g

mavi : soldan sağa ilerleme durumu
kırmızı : yukarıdan aşağı ilerleme durumu
turuncu : harfler


x ve y koordinatlarından bahsederken bu ilerleme durumlarını kastedmiştim harfleri belirli bir izaya sokup düzgün gösterim yapmak için soldan sağa doğru itmelisin aynı izada olmaları içinde yukarıdan aşağıya doğru iteceksin yani kısacası kordinat gireceksin.

Cyberjust 10 Ekim 2008 19:51
Cevap: Açılış Efekti (Starting)
 
Bu kodun script açılışta çalışmasını yapabilirmiyiz yani mirc açılır açılmaz bu kod devreye girsin ?

XcLusive 11 Ekim 2008 00:20
Cevap: Açılış Efekti (Starting)
 
Kod:
on *:start:acilis
satırını
Kod:
on *:start:inc %xc 1 | if %xc == 1 { acilis }
yaparsan 1 kere açılır.

bøCek 11 Ekim 2008 05:19
Cevap: Açılış Efekti (Starting)
 
haLiL yapa yapa bunumu yaptin :D :D ben sana guzel bir proje buLurdum :D:D

XcLusive 11 Ekim 2008 17:39
Cevap: Açılış Efekti (Starting)
 
yapim tarihine bak ne zaman yapmışım bunu :D

bøCek 12 Ekim 2008 04:42
Cevap: Açılış Efekti (Starting)
 
Onami baktım :D bende yeni yaptin sandım :D:D ben sana proje buLdum :D:D mSn'de veririm :D

EnableExclude 14 Ekim 2008 00:51
Cevap: Açılış Efekti (Starting)
 
Amacı nedır arkdaşım bunun emegıne saglık denedım gusel bişe ama amacı nedır ?

Murebba 13 Aralık 2008 11:55
Cevap: Açılış Efekti (Starting)
 
daha neler acılılıs menusunu timer ile 10 saniye bekletmek gerekiyor : ) ama super elinize saglık

Aero 21 Aralık 2008 16:53
Cevap: Açılış Efekti (Starting)
 
amaci : iste boyle komiklikler sakalr eglenceler :)
eline saglik :)

DarkCode 22 Aralık 2008 16:36
Cevap: Açılış Efekti (Starting)
 
Teşekkürler. eline Sağlık.

OkyAnuS 22 Aralık 2008 17:29
Cevap: Açılış Efekti (Starting)
 
Guzel Birseye Benziyor Halil ,Eline Saglik:)

Heavenly 22 Aralık 2008 23:17
Cevap: Açılış Efekti (Starting)
 
:DDD supper bısey manyak olmus ya elıne saglık

Satriani 09 Kasım 2010 21:09
Cevap: Açılış Efekti (Starting)
 
arka fondaki beyaz bölgeyi yok edemezmıyız arkadaşlar ? Fon tarzında kare bır olay var arkada acıldıgı zaman hoş bir görüntü sağlamıyor yazı aynı sekılde cıksın ama arkadaki fonu iptal edelim , nasıl sağlarız bunu ?

KoRay 10 Kasım 2010 22:37
Cevap: Açılış Efekti (Starting)
 
Alıntı:
Satriani Nickli Üyeden Alıntı (Mesaj 1040572767)
arka fondaki beyaz bölgeyi yok edemezmıyız arkadaşlar ? Fon tarzında kare bır olay var arkada acıldıgı zaman hoş bir görüntü sağlamıyor yazı aynı sekılde cıksın ama arkadaki fonu iptal edelim , nasıl sağlarız bunu ?

konu hortlatmak her zaman fantastiktir :)

AntepLi 16 Mayıs 2012 09:57
Cevap: Açılış Efekti (Starting)
 
Degiştirilebilir ve geliştirilebilir güzel çalışma emeğe saygı :=)

ZenqerDenq 18 Mayıs 2013 14:33
Cevap: Açılış Efekti (Starting)
 
hahaha Süper olmuş elinize sağlık :)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:07.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk