procedure TMainForm.ChangeBackGround
begin

   BackBmp.LoadFromFile('..\..\data\bg02.bmp');
   PrimImage.Picture.Assign(BackBmp);
   PrimImage.Repaint;

end;

            
unit effect;

interface
            
            
uses
   Windows, Classes, SysUtils, ExtCtrls, Graphics;

type
   TEffect = class
   public
      procedure BlackOut(img : TImage);
      procedure BlackIn(img : TImage; backbmp : TBitmap);
   end;
            
            
implementation
            
            
{ TEffect }

//背景のブラックアウト
procedure TEffect.BlackOut(img : TImage);
var
   //引数imgの幅と高さ
   img_w,img_h : Integer;
   //ScanLineを受け取るポインタ
   p : PByteArray;
   //ループカウンタ
   s,x,y : Integer;
begin
   //引数imgの幅と高さを取得
   img_w := img.Picture.Bitmap.Width;  --------------------------(30)
   img_h := img.Picture.Bitmap.Height;  ----|

   //8回（255を2進数で表した時に使用するビット数）繰り返す
   for s := 1 to 8 do
   begin
      //画像の縦方向について繰り返す
      for y := 0 to img_h - 1 do
      begin
         //画像の横一列のRGB値を受け取る
         p := img.Picture.Bitmap.ScanLine[y];  ------------------(31)

         //上で取得した配列pの要素について繰り返す
         for x := 0 to img_w*3 - 1 do
            //指定した座標のRGB値を半分
            //（1ビット右シフト）にする
            p^[x] := p^[x] shr 1;  ------------------------------(32)
      end;

      //画面全体の処理が終わったら、再描画する
      img.Repaint;

      //処理が速すぎる為、ウェイトを置く
      Sleep(50);
   end;
end;

//背景のブラックイン
//裏画面(backbmp)から背景を転送した後黒くする
procedure TEffect.BlackIn(img : TImage; backbmp : TBitmap);
var
   //引数imgの幅と高さ
   img_w,img_h : Integer;
   //ScanLineを受け取るポインタ
   p : PByteArray;
   //ループカウンタ
   s,x,y : Integer;
begin
   //引数imgの幅と高さを取得
   img_w := img.Picture.Bitmap.Width;
   img_h := img.Picture.Bitmap.Height;

   //8回繰り返す
   //変数sは7→0に減少していく
   for s := 7 downto 0 do
   begin
      //裏画面から表画面に背景画像を転送する
      img.Picture.Assign(backbmp);

      //画像の縦方向について繰り返す
      for y := 0 to img_h - 1 do
      begin
         //画像の横一列のRGB値を受け取る
         p := img.Picture.Bitmap.ScanLine[y];

         //上で取得した配列pの要素について繰り返す
         for x := 0 to img_w*3 - 1 do
            //指定した座標のRGB値を
            //sビット右シフトする
            p^[x] := p^[x] shr s;  ------------------------------(33)
      end;

      //画面全体の処理が終わったら、再描画する
      img.Repaint;

      //処理が速すぎる為、ウェイトを置く
      Sleep(50);
   end;
end;

            
            
end.
            

changeBG(black,n)

            
procedure TMainForm.OneStep;
var
   brief,tempstr1,tempstr2 : string;
   j,k : Integer;
begin
   //最後のページまで進んでいなければ
   if TextPoint < AllText.Count div 5 then
   begin
      //ページ番号を1増やす
      Inc(TextPoint);
      //スクリプト部分を取得
      brief := AllText[TextPoint*5-5];
            
            
      //スクリプト部分に'changeBG'が含まれていれば背景を変更する
      k := Pos('changeBG',brief);
      if k <> 0 then
      begin
         //エフェクト指定と背景番号を取得して
         //手続きChangeBackGroundを呼び出す
         //'changeBG()'の括弧の中身をtempstr1に格納する  -----------------(34)
         tempstr1 := Copy(brief, k+Length('changeBG')+1, 255);   |
         tempstr1 := Copy(tempstr1, 0, Pos(')',tempstr1)-1);     |
         //tempstr1の','より前をtempstr2に格納する               |
         tempstr2 := Copy(tempstr1,0,Pos(',',tempstr1)-1);       |
         //tempstr1には','より後を格納し直す                     |
         tempstr1 := Copy(tempstr1,Pos(',',tempstr1)+1,255);  ----
         
         ChangeBackGround(tempstr2,StrToInt(tempstr1));  -----------------(35)
      end;
            
            
      //'erase'が含まれていれば、立ちキャラを消去する
      if Pos('erase',brief) > 0 then EraseChara;

      //'chara'が含まれていれば、立ちキャラをロードして描画する
      k := Pos('chara',brief);
      if k <> 0 then
      begin
         tempstr1 := Copy(brief, k+Length('chara')+1, 255);
         tempstr1 := Copy(tempstr1, 0, Pos(')',tempstr1)-1);
         CharaBmp.LoadFromFile(Format('..\\..\\data\\chara%.2d.bmp',
                                      [StrToInt(tempstr1)]));
         DrawChara;
      end;
            
            
      //'erase''chara''changeBG'のいずれかであれば
      //メッセージウィンドウを描画する
      if Pos('erase',brief)
       + Pos('chara',brief)
       + Pos('changeBG', brief) > 0 then DrawMessageWindow;  -------------(36)
            
            
      //TextPointページのメッセージを表示
      PutText(TextPoint);
      （以下省略）
          

            
type
  TMainForm = class(TForm)
    （中略）
    procedure ChoiceInit;
    procedure EraseChara;
            
            
    procedure ChangeBackGround(EffectType : string; BGNumber : Integer);
            
            
  public
    { Public 宣言 }
  end;
            

            
//背景ＣＧを変更する手続き
//BGNumber : 背景ＣＧの番号
//EffectType : 変更エフェクト
procedure TMainForm.ChangeBackGround(EffectType : string; BGNumber : Integer);
var
   //TEffectクラスのインスタンス変数
   ef : TEffect;
begin
   //背景ＣＧの番号を設定する
   CurBack := BGNumber;
   //指定された番号の背景ＣＧをロードする
   BackBmp.LoadFromFile(Format('..\\..\\data\\bg%.2d.bmp',[CurBack]));  ---(36)

   //TEffectクラスの実体を生成する
   ef := TEffect.Create;  -------------------------------------------------(37)
   try
      //EffectTypeによる分岐
      //'black'の場合、ブラックアウト→ブラックイン
      if EffectType = 'black' then
      begin
         ef.BlackOut(PrimImage);  -----------------------------------------(38)
         ef.BlackIn(PrimImage,BackBmp);  ---------|
      end;
   finally
      //オブジェクトを解放する
      ef.Free;
   end;

   //立ち絵は消去されているためフラグを降ろす
   SetChara := False
end;