home *** CD-ROM | disk | FTP | other *** search
/ Dream 55 / Amiga_Dream_55.iso / Amiga / Internet / Web / RandAnim.lha / Install_New_Anim < prev    next >
Text File  |  1998-08-30  |  1KB  |  41 lines
  1. /* Randomise Transfer Anim */
  2. /* A small program to allow random IBrowse Transfer Anims */
  3.  
  4. address COMMAND
  5.  
  6. 'failat 21'
  7.  
  8. if ~exists("IBrowse") then do
  9.     say "This program must be executed from inside the IBrowse directory!"
  10.     say "Make sure you have click on the Install_Anim_Randomiser icon first!"
  11.     exit
  12. end
  13.  
  14. if ~exists("Transfer_Anims") then do
  15.     'makedir Transfer_Anims'
  16.     'copy "images/def_transferanimation" TO "Transfer_Anims/def_transferanimation.1"'
  17. end
  18.  
  19. /* how many have we got then? */
  20. maxanims = 1
  21.  
  22. rxset file '`requestfile NOICONS title="Choose anim to install" negative="Don''t install any"`'
  23. animname = getclip('FILE')
  24.  
  25. if (~exists(animname) | length(animname)=0) then do
  26.     say "Operation cancelled."
  27.     exit
  28. end
  29.  
  30. do i = 1 to 1000
  31.     if exists("Transfer_Anims/def_TransferAnimation." || i)
  32.         then maxanims = maxanims + 1
  33.     else
  34.         break
  35. end
  36.  
  37. 'copy "' || animname || '" TO Transfer_Anims/def_TransferAnimation.' || maxanims 
  38. 'Filenote Transfer_Anims/def_TransferAnimation.' || maxanims || ' ' || animname
  39.  
  40. say "Animation Installed. You currently have " || maxanims || " animations installed."
  41.