ich bràuchte mal eure Inspiration. Ich habe gerade wieder angefangen zu Programmieren. Und habe mal zufàllig eine Exe erstellt um zu testen
ob es auch funktioniert. Aber als Exe kann die Engine3D.dll nicht inizialisiert werden. Ich habe das Programm mal auf das minimum herunter gebrochen.
Ich habe wirklich keine Idee. Zumal es in der IDE gestartet super funktioniert.
Code: Alles auswählen
;
; Multi Thread MainCraft Clone by tft
;
;
CONSOLE = 1 ; Mit einer ausgabe Console arbeiten
IRC = 0 ; InitReturnCode bei Aufruf von Funktionen
MRC = 0 ; ReturnCode bei aufruf eines Requester
SRC.s = ""; String rückgabe einer Funktion
QUIT = 0 ; Wenn 1 dann Game beänden, 2 mit Requester
Procedure.s C_Input()
Protected Ergebniss.s = "", KeyPress.s = ""
KeyPress.s = Inkey()
If KeyPress.s <> ""
If KeyPress.s = Chr(27) ; Taste ESC
Ergebniss.s = "QUIT"
EndIf
EndIf
ProcedureReturn Ergebniss.s
EndProcedure
If CONSOLE = 1
IRC = OpenConsole()
If IRC = 0
MRC = MessageRequester("InitConsole", "Cant init", #PB_MessageRequester_Ok)
End
EndIf
EndIf
IRC = InitEngine3D()
If IRC = 0
MRC = MessageRequester("InitEngine3d", "Cant init", #PB_MessageRequester_Ok)
End
EndIf
Repeat
If CONSOLE = 1 ; da das programm bis hirhin gekommen ist. Wird die Console wol offen sein
SRC.s = C_Input() : If SRC.s = "QUIT" : QUIT = 1 : EndIf
EndIf
Delay(10) ; Dem System zeit einräumen
Until QUIT <> 0
If QUIT = 2
MRC = MessageRequester("Game exit", "Game beänden?", #PB_MessageRequester_YesNo)
Debug MRC
If MRC = 6 ; Ja
ElseIf MRC = 7 ; Nein
EndIf
EndIf
If CONSOLE = 1 : CloseConsole() : EndIf
End
