alias credit {
  window -c @credit
  window -Ckpa +fbn @credit -1 -1 520 300 $icons(exe)
  drawrect -fr @credit $gettok(%xrgb,1,44) 1 0 0 520 300
  drawsq @credit 20 20 470 230 $sc version $bersyon
  lista
}

alias lista {
  pil1 $sc , (c) 2004
  pil1 
  pil1 Thanks..
  pil1 To the developer/author of $sc , the latest brilliant script for $version
  pil1 To helper from channel #help & #helpdesk @ DALnet network, for their help in scripting
  pil1 To IRCop's & CSop for their technical help
  pil1 
  pil1 To our friends and regulars @ channel #Cute: too many to mention
  pil1 $me $+ ,tronicer (SmartICQ),super_m_an,TeXaSgUrL012,GirbaudGuy (#girbaud)
  pil1 and the rest which 
  pil1 are too many to mention here.
  pil1 
  pil1 To everyone that thru irc or e-mail have suggested their ideas to me.
  pil1 And thanks to all who use the $sc , because that's my best recompense.
  pil1 
  pil1 Dedicated to katz18. (my final fantasy).
}
alias PIL1 { 
  inc %rx 12 | if $1 = $null return
  drawtext -c @credit 15 verdana 10 30 $calc(%rx + 30) 999 999 $1- 
  .timerset 1 30 unset %rx
}

on 1:close:@credit:{ unloads credit
