Subversion Repositories wimsdev

Rev

Rev 3765 | Rev 9660 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if $wims_read_parm=$empty
  2.  !exit
  3. !endif
  4.  
  5. !if $savedrawcnt>0
  6.  !set savedraw$savedrawcnt=$wims_read_parm
  7.  !increase savedrawcnt
  8. !endif
  9.  
  10. !set pp=!trim $wims_read_parm
  11. !set pp=!replace internal \\ by ///?/?/?/// in $pp
  12. !set pp=!replace internal \ by $$m_ in $pp
  13. !set pp=!replace internal ///?/?/?/// by \\ in $pp
  14. !set s_=!line 1 of $pp
  15. !set pp=!line 2 to -1 of $pp
  16. !set pp=!translate internal $   $ to $\
  17. $ in $pp
  18. !set pp=!trim $pp
  19.  
  20. !set a_=!word 1 of $pp
  21. !if $a_=animate
  22.  !set a_=!line 1 of $pp
  23.  !set a_=!word 2 to -1 of $a_
  24.  !set pp=!line 2 to -1 of $pp
  25.  !set ins_anim_frames=!item 1 of $a_
  26.  !set ins_anim_delay =!item 2 of $a_
  27.  !set ins_anim_loop  =!item 3 of $a_
  28. !endif
  29. !set insdraw_filebase=$insdraw_filebase scripts/data
  30. !default insdraw_filebase=non_existent_subdirectory
  31. !set insdraw_size=$s_
  32. !set ins_align=middle
  33. !insdraw $pp
  34.  
  35.  
  36.