home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 March / VPR9803A.ISO / Ffilly / FILLY183 / MOJI.TFY < prev    next >
Text File  |  1996-12-05  |  1KB  |  53 lines
  1. //TOFFYシナリオのひな型
  2.  
  3. //作品情報(""内を書き換えて下さい)
  4. #info INAM "文字表示サンプル"
  5. #info IART "ともゆん"
  6. #info ICOP "(c)Tomoyuki.Uchida"
  7. #info VIDO "640x400; 256"
  8. #info GRPC "Tomoyuki,SDI00687@niftyserve.or.jp"
  9.  
  10. //シナリオ本体
  11. main(){
  12. //ここからシナリオを書き始めて下さい
  13.  
  14.  OpenWin(LoadPic("filly.bmp"));
  15.  
  16.  mes(TIME){
  17.     Moji();
  18.  }
  19.  mes(LBDOWN){
  20.     CloseWin(0);
  21.     del_all; del_me;
  22.  }
  23.  
  24.  
  25. //ここまでに書いてください
  26. }
  27.  
  28. Moji()
  29. {
  30.  step(15){
  31.     TextWrite("test string");,
  32.  
  33.      BackMode(1);
  34.     SetFont(350,"ＭＳ 明朝",128,0,0,0,400); //「ＭＳ」は全角、「明朝」との間は半角スペース
  35.      TextWrite("明朝",0,0,20);,
  36.  
  37.      BackMode(0);
  38.      TextColor(0,0,255);    //RGB順の３つの数値で文字色を指定します
  39.      SetFont(50,"ＭＳ 明朝",128,0,30,0,400);
  40.      TextWrite("少し斜め",0,0,50);,
  41.  
  42.      TextColor(255,255,255);
  43.      BgColor(0,0,255);
  44.      SetFont(100,"ＭＳ ゴシック",128,0,30,0,900,1);//「ＭＳ」は全角、「ゴシック」との間は半角スペース
  45.      TextWrite("イタリック",0,0,120);,
  46.  
  47.      for(i=0;i<=1800;i=i+50){
  48.         SetFont(80,"Book Antiqua Italic",0,0,i);//,0,400,0,0,0,7,19,2,2,4);
  49.         TextWrite("FILLY",0,300,350);
  50.      }
  51.     del_me;
  52.  }
  53. }