So... i need help... GUI (DRAW3D 2)

Blitz3D Forums/Blitz3D Beginners Area/So... i need help... GUI (DRAW3D 2)

psychicbottle (Posted 2012) [#1]

ok, so im trying to avoid the title of "Guy who trolls the forums looking for code to steal" since that is not what im trying to do at all! but i am a complete and utter loss! i am just trying to figure out how to implement code that would allow me to make GUI for my editor here, and i have been at this for a few days now and have made zero progress on my code :/ if anybody is willing to... i would really like some help. again im using hectic's GUI(Draw3D 2) and it looks super fast and simple and cleaner than sprites BUT im too stupid to understand how it works. any help? :/ here is my code Global GWidth% = 800 Global GHeight% = 600 Global ran = False Global cameraon = True GColors% = 32 GMode% = 2 Graphics3D(GWidth,GHeight,GColors,GMode) SetBuffer(BackBuffer()) HidePointer() SeedRnd(MilliSecs()) Include "default map world.bb" Include "Standerd updates.bb" Include "Types_Data.bb" Include "GUI.bb" ;LIBS Include "libs\INI.bb" Include "libs\DevilShadowSystem.bb" Include "libs\ShadowVolumes.bb" Include "libs\UserInterface.bb" Include "libs\Draw3D2.bb" Include "libs\DrawSGG.bb" Include "libs\DrawXTD.bb" Pre_Editor_Functions() While Closed = False Update_Editor() If KeyHit(2) Then Save_file() If KeyHit(3) Then Load_file() Cls() CameraUpdate() RenderWorld() Color(255,255,255) Text(0,0,"Tris : "+TrisRendered()) Text(0,10,"Entitys in world : "+GlobeID) Text(0,20,"ran : "+ran) Flip(True) Wend End Function load_file() FlushKeys() mapname$=Input$() mapname$=Trim$(mapname$) mapname$=Replace$(mapname$," ","_") FlushKeys() End Function Function save_file() FlushKeys() mapname$=Input$() mapname$=Trim$(mapname$) mapname$=Replace$(mapname$," ","_") create_save_dir(mapname$) yasha() FlushKeys() End Function Function create_save_dir(mapname$) CreateDir("maps\"+mapname$) CreateDir("maps\"+mapname$+"\Objects") End Function Function Yasha() ; Create a new INI struct to hold the data: this lives in memory Local file.INI_File = INI_Create("This is our output file") ; Sections are optional but they keep things mor organised when there are a lot of similar objects ; This section will go at the top and just store information about the whole scene INI_AddSection file, "SceneInfo", "Basic level setup stuffs" Local objC = GlobeID ;How many cubes do we want? ; Add some actual data keys INI_AddProperty file, "SceneInfo", "ObjCount", objC, "Total no. objects" ;...this many INI_AddProperty file, "SceneInfo", "LevelName", "INI demo!" Local i : For i = 0 To objC - 1 For c.cube = Each cube If c\secName$ = "Cube." + Str i INI_AddSection file, c\secName, "hmm" ;Create a new section for each object (no comment, we're boring) INI_AddProperty file, c\secName, "c\size", c\size INI_AddProperty file, c\secName, "c\col.R", c\colRed INI_AddProperty file, c\secName, "c\col.G", c\colGrn INI_AddProperty file, c\secName, "c\col.B", c\colBlu INI_AddProperty file, c\secName, "c\pos.X", c\posX# INI_AddProperty file, c\secName, "c\pos.Y", c\posY# INI_AddProperty file, c\secName, "c\pos.Z", c\posZ# EndIf Next Next ; All of the objects have now been stored in the INI struct, so we can "commit" it to disk INI_Write file, "Savedgame.ini" ; ...and throw it away, to prove that reloading works INI_Free file End Function Function LogError(err$) RuntimeError "INI error: " + err ;Simple for the example End Function If you need to be able to see all the includes i have for it then i can make a zip for you for media and what not but yeah.. Last edited 2012

psychicbottle (Posted 2012) [#2]

Well i Directly stripped some code from one of his examples yet still cannot get it to work... here is my code. Graphics3D 800,600,0,2 SetBuffer BackBuffer() Local Timer=CreateTimer(58) Local Camera=CreateCamera() CameraClsColor Camera,48,48,48 Include "..\Includes\Draw3D2.bb" Include "..\Includes\DrawSGG.bb" DrawInit3D(Camera) Local Change ;CreateSGG erstellt ein SGG-Hauptelement ;Ein SGG-Hauptelement kann mehrere SGG-Nebenelemente ;wie Labels, Buttons, Listboxen und andere beinhalten Local M=CreateSGG(-275,0,100,175,"..\SGG\Standard.sgg",0,-1) ;AddingSGG erstellt ein SGG-Nebenelement ;Ein SGG-Nebenelement ist ein Objekt wie ;ein Label, Button, Listbox oder anderes Local A=AddingSGG(M,SGGROSTER,0,+100,"CUBE|SPHERE|CONE|CUBE|SPHERE|CONE",1,56) Local B=AddingSGG(M,SGGBUTTON,0, +32,"Button",0,56) Local C=AddingSGG(M,SGGBUTTON,0, +4,"Switch <#f66>(1)|Switch <#ff2>(2)|Switch <#4f4>(3)",0,56) Local D=AddingSGG(M,SGGSLIDER,0, -24,"",0,56,127) Local E=AddingSGG(M,SGGINTAKE,0, -68,"Max",0,96) Local F=AddingSGG(M,SGGINTAKE,0, -96,"Mustermann",0,96) Local G=AddingSGG(M,SGGINTAKE,0,-124,"Hauptstraße",0,96) ;SetSelectSGG ist eine Funktion, die nachträglich die Eigenschaften eines ;SGG-Nebenelements ändern kann. Welche Eigenschaften geändert werden sollen, ;gibt der zweite Parameter an. So hat der zweite Parameter folgende Bedeutungen: ; 1 = X-Position ; 2 = Y-Position ; 3 = Text-Align (0,1,2) ; 4 = Breite des Nebenelementes ; 5 = Auswahlposition (ab 0) ; 6 = Anzahl sichtbarer Zeilen ; 7 = Scrollposition ;In folgendem Fall wird das SGG-Nebenelement 'A' angesprochen ;und dessen 'Anzahl sichtbarer Zeilen' auf '4' gesetzt. Tatsächlich ;beinhaltet dieses Element '6' Einträge "1|2|3|4|5|6" siehe oben. ;(!) Hat ein SGG-Nebenelement mehr Einträge als angezeigt werden ;sollen, so kann man mit 'Scrollposition' die Auswahl machen. SetBoundSGG(A,3) SetSelectSGG(A,7) ;Neben SetSelectSGG() kann man auch mit AddSelectSGG() Relativangaben machen! ;Inhalte die ein 'String' sind, werden mithilfe SetStringSGG() gesetzt! Local MZS While Not KeyHit(1) ;Die folgende Variablenübertragung wird nur benötigt, wenn man auch Eingabefelder ;über die SGG benutzen möchte. Die Variablenübertragung soll dem Programmierer ;erlauben, die GetKey()-Funktion auch für eigene Zwecke nutzen zu können. ;Der Variablenname 'SGGKey3D' muß allerdings so beibehalten werden! SGGKey3D=GetKey() MZS=MouseZSpeed() ;Die Folgende Funktion zeichnet in diesem Beispiel das komplette SGG, wo hier das ;Handle 'M' heisst. Es können mehrere Menüzusammenstellungen erstellt und eingezeichnet ;werden. Wenn sich die Maus da drüber befindet liefert die Funktion eine '1' zurück. ;Wurde was geändert (Maus/Tastatureingabe), dann liefert die Funtion eine '2' zurück. Change=DrawSGG(M) If Change>0 Then ;Hier kann noch Zeug rein, das passieren soll, wenn sich ;etwas innerhalb der DrawSGG(M) geändert hat. Das kann ein ;Button-Klick oder eine Tastatur-Eingabebestätigungen sein. ;Wenn sich die Maus über das SGG(A)-Handle befindet, ;dann kann man mit dem Mausrad in der Liste scrollen. If SGGOver3D=A Then AddListPosSGG(A,-MZS) End If ;Da wir mit 'SetSelectSGG' die 'Anzahl sichtbarer Zeilen' auf '4' gestellt haben, das ;Element aber '6' Einträge besitzt, kann man nun auch innerhalb der '4' angezeigten ;scrollen. Im folgenden Codezeilen wird dieses nun über die Cursor-Tasten gemacht. If KeyHit(200) Then AddSelectSGG(A,-1) If KeyHit(208) Then AddSelectSGG(A,+1) WaitTimer Timer RenderWorld Text 10,10,"MESH: "+GetStringSGG$(A) Clear3D() Flip 0 Wend ;Wenn man das SGG-Hauptelement welches mit CreateSGG ;erstellt wurde nicht mehr braucht, kann man mit dem ;Befehl FreeSGG das ganze SGG-Hauptelement mit all ;den Neben- und Unterelementen löschen lassen. FreeSGG(M) End ;~IDEal Editor Parameters: ;~C#Blitz3D it seems to work correctly other than i cant actually see the GUI! but you see the text saying "mesh" if you hit the arrow keys it will change like it is supposed to.

psychicbottle (Posted 2012) [#3]

Got the GUI to show up using this ... Local P1=CreatePivot3D(0,EntityX(DebugEyes,True)+2,EntityY(DebugEyes,True),EntityZ(DebugEyes,True)+4, 0,0,0, 0.01) problem is now i cant seem to parent it to the camera cause i lose it!... :/ EDIT: sorry haha whenever i post i seem to get it just a few hours after... now just tinkering to learn the ins and outs of this thing... Last edited 2012

psychicbottle (Posted 2012) [#4]

anybody know why i wouldn't be able to get "text3d" to work..?