alias cast {
  set %u 333
  window -poCzdk0 +tnbL @Cast -1 -1 405 422
  drawpic -fr @Cast -1 -1 cast.jpg
  drawtext @Cast 2 Tahoma 30 80 55 $sismi
  drawtext @Cast 2 Tahoma 30 79 54 $sismi
  drawtext @Cast 2 Tahoma 10 306 65 Version
  drawtext @Cast 2 Tahoma 10 315 75 $sversion
  .timerkay 0 1 /kaydir
}
alias -l kaydir {
  drawpic -fr @Cast -1 -1 cast.jpg
  drawtext @Cast 2 Tahoma 30 80 55 $sismi
  drawtext @Cast 2 Tahoma 30 79 54 $sismi
  drawtext @Cast 2 Tahoma 10 306 65 Version
  drawtext @Cast 2 Tahoma 10 315 75 $sversion
  kaydirx
}
alias kaydirx {
  drawpic -fr @Cast -1 -1 cast.jpg
  drawtext @Cast 2 Tahoma 30 80 55 $sismi
  drawtext @Cast 2 Tahoma 30 79 54 $sismi
  drawtext @Cast 2 Tahoma 10 306 65 Version
  drawtext @Cast 2 Tahoma 10 315 75 $sversion
  set %renk $r(2,13)
  set %u $calc(%u - 6)
  if %u < 135 {
    drawtext @Cast 6 Tahoma 20 100 %u Yapımcı Hakkında Bilgi
    drawtext @Cast 2 Tahoma 15 80 $calc(%u + 30) Adı: $yapimciisim
    drawtext @Cast 5 Tahoma 15 80 $calc(%u + 50) Nicki: $yapimcinick
    drawtext @Cast 2 Tahoma 15 80 $calc(%u + 70) Yaşı: $yapimciyas
    drawtext @Cast 5 Tahoma 15 80 $calc(%u + 90) Yaşadığı Şehir: $yapimcisehir
    drawtext @Cast 2 Tahoma 15 80 $calc(%u + 110) Web Sitesi: $yapimciwebsitesi
    drawtext @Cast 5 Tahoma 15 80 $calc(%u + 130) Mail Adresi: $yapimcimail
    drawtext @Cast %renk Tahoma 20 120 $calc(%u + 160) $sismi
    .timerkay off
  }
  else {
    if %u < 303 {
      drawtext @Cast 2 Tahoma 15 80 $calc(%u + 30) Adı: $yapimciisim
    }
    if %u < 283 {
      drawtext @Cast 5 Tahoma 15 80 $calc(%u + 50) Nicki: $yapimcinick
    }
    if %u < 283 {
      drawtext @Cast 5 Tahoma 15 80 $calc(%u + 50) Nicki: $yapimcinin 
    }
    if %u < 263 {
      drawtext @Cast 2 Tahoma 15 80 $calc(%u + 70) Yaşı: $yapimciyas
    }
    if %u < 243 {
      drawtext @Cast 5 Tahoma 15 80 $calc(%u + 90) Yaşadığı Şehir: $yapimcisehir
    }
    if %u < 223 {
      drawtext @Cast 2 Tahoma 15 80 $calc(%u + 110) Web Sitesi: $yapimciwebsitesi
    }
    if %u < 203 {
      drawtext @Cast 5 Tahoma 15 80 $calc(%u + 130) Mail Adresi: $yapimcimail
    }
    if %u < 173 {
      drawtext @Cast %renk Tahoma 20 120 $calc(%u + 160) $sismi
    }
    drawtext @Cast 6 Tahoma 20 100 %u Yapımcı Hakkında Bilgi
  }
}
menu @Cast {
  Hakkında:.return $input(Cast Kayan Yazı //

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.Mynet.Com,o,Hakkında!)
}
on *:close:@Cast: {
  unset %u
  unset %renk
  .timerkay off
}
on *:load:{
  if $findfile($mircdir,cast.jpg,0) == 0 {
    echo -a HATA! mIRC Ana dizininde cast.jpg adlı bir dosya malesef bulunamadı
    echo -a Bu Sorunu Gidermek İçin:
    echo -a - cast.rar Dosyasını tekrar çıkartıp Cast Kayan Yazı klasörünün içindeki bütün dosyaları $+(,$mircdir,) Bu uzantıya atınız..
    echo -a - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ircforumlari.net adresinden online destek alınız
    .unload -rs cast.mrc
  }
  else {
    echo -a Cast Kayan Yazı Addon
    echo -a Başarıyla yüklenmiştir
    echo -a Addonu açmak için /cast Yazınız
    echo -a -
    echo -a 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ircforumlari.net
  }
} 

on *:start: cast

drawtext @Cast 6 Tahoma 20 100 %u Yapımcı Hakkında Bilgi

if %u == 135 { window -c @cast | .timerkay off }