home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 March / VPR9803A.ISO / Ffilly / FILLY183 / KAKUDAI.TFY < prev    next >
Text File  |  1996-12-05  |  748b  |  32 lines
  1. //TOFFYシナリオのひな型
  2.  
  3. //作品情報(""内を書き換えて下さい)
  4. #info INAM "拡大縮小表示サンプル"
  5. #info ISBJ "MoveSPic()による効果サンプル"
  6. #info IART "ともゆん"
  7. #info ICOP "(c)Tomoyuki.Uchida"
  8. #info VIDO "640x400; 65536"
  9. #info GRPC "Tomoyuki,SDI00687@niftyserve.or.jp"
  10.  
  11. //シナリオ本体
  12. main(){
  13. //ここからシナリオを書き始めて下さい
  14.  
  15. CapTitle("test");
  16. OpenWin(LoadPic("filly.bmp"));
  17. LoadPic("filly.bmp");
  18. mes(LBDOWN){
  19. ExitTitle();
  20. }
  21. for(i2=20;i2>1;i2=i2-1){
  22.   i=i2*i2;
  23.   MoveSPic(1,0,0,640,400,0,(640-640*i/100)/2,(400-400*i/100)/2,640*i/100,400*i/100);
  24. }
  25. for(i2=1;i2<20;i2=i2+2){
  26.   i=i2*i2;
  27.   MoveSPic(1,0,0,640,400,0,(640-640*i/100)/2,(400-400*i/100)/2,640*i/100,400*i/100);
  28. }
  29. CloseWinAll();
  30. //ここまでに書いてください
  31. }
  32.