fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
KirmesTycoon.bi

Uploader:	MB Interactive Labs
Datum/Zeit:	17.10.2010 21:21:30
'Hier kommt alles rein was für das Spiel vordefiniert werden muss.

#Include Once "Inc\Input\Maus\MyMaus.bi"            'Maussteuerung

#Include Once "Inc\Grafik\Button\MyButton.bi"   'Buttons



Dim Shared GameMaus As SMaus                            'Maussteuerung

Dim Shared tbStart As tButton                       'StartButton

Dim Shared tbBeenden As tButton                         'BeendenButton

Dim Shared BS1 AS Integer                               'Status von der Maus für StartButton

Dim Shared BS2 As Integer                               'Status von der Maus für BeendenButton



Declare Sub Game_Main()             'Meine Hauptschleife

Declare Sub Init_Game()             'Meine Setupfunktion

Declare Sub Close_Game()            'Meine Closefunktion um alles runter zu fahren



'********************************************************************************

'* Funktionsbereich für den Spielablauf

'********************************************************************************

Sub Game_Main()

    'Do Loop Schleife einbauen HauptMainschleife

    'Hier Läuft Später das Ganze Spiel drinne ab

    Do

        'Maus testen

        GameMaus.Mausclick = GetMouse(GameMaus.MX, GameMaus.MY,,GameMaus.Buttons)

        BS1 = tbStart.Button_Clicked(GameMaus.MX,GameMaus.MY,GameMaus.Buttons)

        BS2 = tbBeenden.Button_Clicked(GameMaus.MX,GameMaus.MY,GameMaus.Buttons)



        'StatusButton abfrage um ein menü zu basteln

        If BS1 = 0 Then

            'ins leere geclickt??

            'Loopschleife weiter machen.

        End If



        If BS1 = tbStart.ButtonID Then

            Locate 4,1: PRINT "Es wurde Btn : " & BS1 & " angeklickt."

        End If



        If BS2 = tbBeenden.ButtonID Then

            'Programm beenden

            End

        End If



        'Mausstatus anzeigen

        GameMaus.Statusanzeige()

    Loop until inkey() = chr(255) + "k"

End Sub



Sub Init_Game()

    'Hier kommt alles rein was im Spiel gebraucht wird und initialisiert werden muss

    'Setupfunktion kommt auch

    Dim As Integer ix,iy



    ScreenRes 800,600,32

    Cls



    'Maus Initialisieren

    GameMaus = GameMaus.Init_Maus()

    'Button mit Std werte initialisieren

    tbStart = tbStart.Init_Button()

    tbBeenden = tbBeenden.Init_Button()



    'Mit neue Werte Füllen

    tbStart.ButtonID = 1701

    tbStart.PosX = 10

    tbStart.PosY = 40

    tbStart.Filename = "Res\BMP\BildAuf.bmp"



    'Mit neue Werte Füllen

    tbBeenden.ButtonID = 1702

    tbBeenden.PosX = 645

    tbBeenden.PosY = 562

    tbBeenden.Filename = "Res\BMP\Beenden.bmp"



    'Bild Anzeigen

    tbStart.Load_Button()

    tbStart.Show_Button()



    'Button laden und anzeigen

    tbBeenden.Load_Button()

    tbBeenden.Show_Button()



End Sub



Sub Close_Game()

    tbStart.Destroy_Button()

    tbBeenden.Destroy_Button()

End Sub