begin
    SET_MODE(320,240,8);//setting the graphics mode
    LOAD_FPG("C:\Documents and Settings\Administrator\My Documents\DC Homebrew\Nick\Platform.fpg");//loading an fpg :)
    delete_text (0);
    write (0, 64, 16, 1, "Platform Game");
    player(<parameters>); // call player process
    loop frame; end //not necessary but my habit
end

Global
    Myfpg;
begin
    SET_MODE(320,240,8);//setting the graphics mode
    Myfpg=LOAD_FPG("C:\Documents and Settings\Administrator\My Documents\DC Homebrew\Nick\Platform.fpg");//loading an fpg :)
    delete_text (0);
    write (0, 64, 16, 1, "Platform Game");
    player(Myfpg,1,50,50); // call player process
    loop frame; end //not necessary but my habit
end

Program Myfirstprogram;
Global
        Myfpg;
Begin
        Set_mode(640,480,16);
        Myfpg=Load_fpg(“images.fpg”);

        Spaceship();
        Enemy(320,240,rand(0,390000));

        Escaper();

        Loop
                Frame;
        End

End

       

Process Spaceship()
Private
        Keybuffer;

Begin
        File=Myfpg;
        Graph=1;
        x=320;
        y=240;

        Loop
                If (key(_up))
                        Advance(4);
                End

                If (key(_left))
                        Angle+=10000;
                end

                If (key(_right))
                        Angle-=10000;
                end

                If (key(_space) and keybuffer==0)
                        Bullet(x,y,angle,4);
                        Keybuffer=1;
                End

                If (not key(_space) and keybuffer==1)
                        Keybuffer=0;
                End

                Frame;
        End
End


Process Bullet(x,y,angle,speed)
Begin
        File=Myfpg;
        Graph=2;

        //Let the bullet advance 40 pixels in order to 'come out' at the front of the spaceship, instead of the middle!
        Advance(40);

        Loop
                Advance(speed);
               
                // If the bullet flies off the screen, exit the loop.
                If (x<0 or x>639 or y<0 or y>479)
                        Break;
                End

                Frame;

        End
End


Process Enemy(x,y,angle)
Begin
        File=Myfpg;
        Graph=3;

        Loop
                Advance(2);

                If (collision(type bullet))
                        Break;
                End

                Frame;
        End
End


Process Escaper()
Begin

        Loop
                If (key(_esc))
                        Exit("byebye",0);
                End

                Frame;
        End
End