spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Quellcode

#include "stdafx.h"

#using <mscorlib.dll>
#using <System.dll>
#using <System.Drawing.dll>
#using <System.Windows.Forms.dll>

using namespace System;
using namespace System::Drawing;
using namespace System::Drawing::Drawing2D;
using namespace System::ComponentModel;
using namespace System::Windows::Forms;
using namespace System::Collections;;

__gc public class Game : public Form

{
public:

    Game()
    {
        Game_Run();
    }
    
    void Game_Run()
    {
        Form* sform = new Form();   
        Text = "The Fighters of Sarazon 0.9";
        BackColor = System::Drawing::Color::Black;
            
        Paint += new PaintEventHandler(this, &Game::Form_Paint);
        Setup_Buttons();
        Setup_Label();
    }

private:
    Button* btn1;
    Button* btn2;
    Button* btn3;
    Button* btn4;
    Label* lbl1;

    void Setup_Buttons()
    {
        btn1 = new Button();
        btn1->Text = "Neues Spiel starten";
        btn1->Size = System::Drawing::Size(200,65);
        btn1->Location = Point(850,170);
        btn1->Font = new System::Drawing::Font("Comic Sans MS", 14, FontStyle::Regular);
        btn1->BackColor = System::Drawing::Color::Black;
        btn1->ForeColor = System::Drawing::Color::White;
        Controls->Add(btn1);
        btn1->Click += new EventHandler(this, &Game::Clicked); 

        btn2 = new Button();
        btn2->Text = "Spiel laden";
        btn2->Size = System::Drawing::Size(200,60);
        btn2->Location = Point(850,260);
        btn2->Font = new System::Drawing::Font("Comic Sans MS", 14, FontStyle::Regular);
        btn2->BackColor = System::Drawing::Color::Black;
        btn2->ForeColor = System::Drawing::Color::White;
        Controls->Add(btn2);
        btn2->Click += new EventHandler(this, &Game::Clicked);

        btn3 = new Button();
        btn3->Text = "Credits";
        btn3->Size = System::Drawing::Size(200,60);
        btn3->Location = Point(850,340);
        btn3->Font = new System::Drawing::Font("Comic Sans MS", 14, FontStyle::Regular);
        btn3->BackColor = System::Drawing::Color::Black;
        btn3->ForeColor = System::Drawing::Color::White;
        Controls->Add(btn3);
        btn3->Click += new EventHandler(this, &Game::Clicked);

        btn4 = new Button();
        btn4->Text = "Spiel verlassen";
        btn4->Size = System::Drawing::Size(200,60);
        btn4->Location = Point(850,420);
        btn4->Font = new System::Drawing::Font("Comic Sans MS", 14, FontStyle::Regular);
        btn4->BackColor = System::Drawing::Color::Black;
        btn4->ForeColor = System::Drawing::Color::White;
        Controls->Add(btn4);
        btn4->Click += new EventHandler(this, &Game::Clicked);
    }

    void Setup_Label()
    {
        lbl1 = new Label();
        lbl1->AutoSize = true;
        lbl1->Text = "created by spacegaier(30.01.06)";
        lbl1->Location = Point(840,760);
        lbl1->Size = System::Drawing::Size (lbl1->PreferredHeight, lbl1->PreferredWidth);
        lbl1->Font = new System::Drawing::Font("Comic Sans MS", 13, FontStyle::Italic);
        lbl1->ForeColor = Color::White;
        Controls->Add(lbl1);
    }

    void Clicked(Object* pSender, EventArgs* pArgs)
    {
        if (pSender == btn1)
        {
            Close();
        }
        if (pSender == btn2)
        {
            MessageBox::Show("Diese Option ist in der Demoversion nicht verfügbar");
        }
        if (pSender == btn3)
        {
            MessageBox::Show("Diese Option ist in der Demoversion nicht verfügbar");
        }
        if (pSender == btn4)
        {
            Application::Exit();
        }
    }

    void Form_Paint(Object* pSender, PaintEventArgs* pe)
        {
            Graphics* gr = pe->Graphics;
            Bitmap* bmp = new Bitmap("Logo 2.0.bmp");
            gr->DrawImage(bmp, 75,55);
        }
};

__gc public class Site_1 : public Form
{

public:
    Site_1()
    {
            Text = "The Fighters of Sarazon 0.9";
            BackColor = System::Drawing::Color::Black;
            Size = System::Drawing::Size(1170,800);
            Paint += new PaintEventHandler(this, &Site_1::Form_Paint);
            Setup_Texts();
    }
private:
    
    TextBox* text1;
    TextBox* text2;
    
    void Form_Paint(Object* pSender, PaintEventArgs* pe)
        {
            Graphics* gr = pe->Graphics;
            Graphics* gs = pe->Graphics;
            Graphics* gt = pe->Graphics;
            Graphics* gu = pe->Graphics;
            Bitmap* bmp = new Bitmap("Logo 2.3.bmp");
            gr->DrawImage(bmp, 35,35);
            Bitmap* bmp2 = new Bitmap ("Star 1.1.bmp");
            gs->DrawImage(bmp2,7,565);
            Bitmap* bmp3 = new Bitmap("Star 1.2.bmp");
            gt->DrawImage(bmp3, 900, 650);
            Bitmap* bmp4 = new Bitmap("Star 1.0.bmp");
            gu->DrawImage(bmp4, 720, 10);
        }
        
    void Setup_Texts()
    {
        text2 = new TextBox();
        text2->Location = Point(140,283);
        text2->Size = System::Drawing::Size(940,300);
        text2->ForeColor = System::Drawing::Color::White;
        text2->Font = new System::Drawing::Font("Comic Sans MS",14, FontStyle::Regular);
        text2->Enabled = false;
        text2->Multiline = true;
        text2->Text = "Zunächst einmal: Die Bedienung dieses Programmes ist eingentlich idiotensicher. Sollten sie dennoch Fragen haben, so teilen sie diese bitte ihrem Rechner wird. (Bei guter Pflege wird er antworten.)\r\n\r\n"
                      "Anderenfalls ist er vielleicht nicht mit ihrer Umgangsweise zufrieden. (Hören sie auf ihn mutwillig zu treten). Möglicherweise ist auch der zugeführte Strom nicht erstklassig. (Wechseln sie also bitte den Anbieter). Sollten all diese Tipps keine Veränderung bringen (so wie bei mir) sollten sie ernsthaft den Neukauf eines Computers in Betracht ziehen.\r\n\r\n"
                      "Aber zurück zum Thema. Sie werden nun einige Fragen gestellt bekommen, welche sie bitte nach bestem Trachten und Sinnen ausfüllen, sowahr ihnen Gott helfe (falls sie Budhist sind, können sie auch Allah oder sonst einen um Hilfe bitten).\r\n\r\n";
        text2->BackColor = Color::Black;
        Controls->Add(text2);
    }
};

int  __stdcall WinMain(void)
{

    Application::Run(new Game());
}