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 ? ((:


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net