fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Mein Konsolenspiel was ich zum FB Lernen benutze

Uploader:	Sh4d0w
Datum/Zeit:	10.06.2012 15:56:10

SCREENRES 800, 600, 32

'Width (Fensterbreite \ Zeichenbreite), (Fensterhöhe \ Zeichenhöhe)

WIDTH 800\8, 600\16

WindowTitle "Game"



Dim Shared wood As Integer

Dim Shared food As Integer

Dim Shared stone As Integer

Dim Shared coal As Integer

Dim Shared iron As Integer

Dim Shared gold As Integer

Dim Shared eingabe As Integer



Sub menu()

    Print "------Menu------"

    Print "|1. Bauen      |"

    Print "|2. Beenden    |"

    Print ""

End Sub



Sub materialMenu()

    Print "---Materialien---"

    Print "|Holz: ", wood & " |"

    Print "|Stein: ", stone & " |"

    Print "|Kohle: ", coal & " |"

    Print "|Eisen: ", iron & " |"

    Print "|Gold: ", gold & " |"

    Print "|Nahrung: ", food & " |"

    Print "-----------------"

    Print ""

    Print ":> ";

End Sub



Sub showMenus()

    cls

    menu()

    materialMenu()

End Sub



Sub buildMenu()

    Cls

    Print "1. Haus - 3 Bewohner mehr"

    Print "Beliebige Taste Drücken, um zum Menü zurück zu kehren"

    Sleep

    showMenus()

End Sub



showMenus()



Input "", eingabe



If eingabe = 1 Then

    buildMenu()

EndIf





sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.