Açılış Efekti (Starting) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

XcLusive · 12 Nisan 2008, 23:22

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kodlayan ben :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Çalıştırma komutu : /acilis

Med Cezir · 13 Nisan 2008, 04:38

Eglenceli Bir şey
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Emegine Saglık

detay · 13 Nisan 2008, 11:27

Güzel calisma timer i 0 degilde timer -h 0 100 falan yapsak yada 50 belki daha güzel olur

13 Nisan 2008, 13:05

La olum manyakmısınız nesiniz :p

sniper · 14 Nisan 2008, 00:51

hehehe Çok GüzeL ELine SağLık Kardeş de
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
desi ne dersen şu canım sıkıldı uğraş uğraş bu çıktı ortaya biraz değiştirdim şimdiden özürdiLiyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Matrak OLsun Diye oynadım codenin üzerinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

la olum birde kodlari hangi dosyaya aticağimizi gösterseydin keşke beee :P
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

XcLusive · 16 Nisan 2008, 13:30

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

buradan öğrenebilirsin..

Kan · 16 Nisan 2008, 17:27

halil bu ne hacı := çok süper olmuş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

TrueblackmetaL · 20 Nisan 2008, 14:28

ş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

Bu Starting Yazan Yeri Değişemesmiyiz ? ((:

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IRCServices Starting Sorun.	Teori	Servisler	6	25 Aralık 2007 02:32

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.