What GUI does this use?

Blitz3D Forums/Blitz3D Programming/What GUI does this use?

Guy Fawkes (Posted 2010) [#1]

What GUI does this use & where may I find it? AppTitle "Legends of Arthonia Map Generator v1.0" Graphics 640,480,32,2 Dim terrain$(6) terrain$(1)="FOREST" terrain$(2)="MOUNTS" terrain$(3)="WATER" terrain$(4)="PlAINS" terrain$(5)="SWAMP" terrain$(6)="DESERT" Global x=24 Global y=24 Global back=CreateImage(481,481,1) SetBuffer ImageBuffer(back) Color 255,255,255 Rect 0,0,480,480,1 Color 0,0,0 Rect 0,0,481,481,0 For t=1 To 10 Line 0,48*t,480,48*t Next For u=1 To 10 Line 48*u,0,48*u,480 Next MaskImage back,255,0,0 SetBuffer BackBuffer() While Not KeyHit(1) ClsColor 255,255,255 Color 0,0,0 DrawImage back,0,0 Text 490,0,"Editor Key:" Text 490,12,"-Terrain" Text 490,24,"1=Woods" Text 490,36,"2=Rocks" Text 490,48,"3=Water" Text 490,60,"4=Grass" Text 490,72,"5=Swamp" Text 490,84,"6=Sand" Text 490,108,"-Walls/Unwalkable" Text 490,120,"7=Horizontal" Text 490,132,"8=Vertical" Text 490,144,"9=Corner" Text 490,156,"0=Unwalkable" Text 490,180,"-Custom" Text 490,192,"BACK=New custom" Text 490,204,"Z=Custom" Text 490,228,"-Height" Text 490,240,"F1=1" Text 490,252,"F2=2" Text 490,264,"F3=3" Text 490,276,"F4=4" Text 490,288,"F5=5" Text 490,300,"F6=6" Text 490,324,"-Other" Text 490,336,"SPACE=delete" Text 490,348,"S=save" Text 490,360,"L=Load" Text 490,372,"H=Help" ;///////////////////////////// Color 128,128,128 Text x,y,"X" If KeyHit(203) x=x-48 If x<=24 x=24 EndIf EndIf If KeyHit(205) x=x+48 If x>=456 x=456 EndIf EndIf If KeyHit(200) y=y-48 If y<=24 y=24 EndIf EndIf If KeyHit(208) y=y+48 If y>=456 y=456 EndIf EndIf ;/////////////////////////////// ;TEXT key=GetKey() If key>48 And key<55 SetBuffer ImageBuffer(back) Color 0,0,0 Text x-24,y,terrain(key-48) SetBuffer BackBuffer() EndIf ;WALLS, DELETE, UNWALKABLE If key=32 SetBuffer ImageBuffer(back) Color 255,255,255 Rect x-23,y-23,47,47,1 SetBuffer BackBuffer() EndIf If key=48 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-23,y-23,46,46,1 SetBuffer BackBuffer() EndIf If key=55 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-23,y-5,47,10 SetBuffer BackBuffer() EndIf If key=56 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-5,y-23,10,47 SetBuffer BackBuffer() EndIf If key=57 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-5,y-23,10,47 Rect x-23,y-5,47,10 SetBuffer BackBuffer() EndIf ;LEVEL If KeyHit(59) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"1" SetBuffer BackBuffer() EndIf If KeyHit(60) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"2" SetBuffer BackBuffer() EndIf If KeyHit(61) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"3" SetBuffer BackBuffer() EndIf If KeyHit(62) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"4" SetBuffer BackBuffer() EndIf If KeyHit(63) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"5" SetBuffer BackBuffer() EndIf If KeyHit(64) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"6" SetBuffer BackBuffer() EndIf ;CUSTOM If KeyHit(14) custom=CreateWindow("New Custom Label",100,100,230,150,gamewindow,1) customname=CreateTextField(10,40,200,20,custom) CreateLabel("Enter custom entry (max. 6 characters)",10,10,200,20,custom) okbutton=CreateButton("OK",72,75,85,25,custom,1) ActivateGadget customname Repeat If WaitEvent()=$401 If EventSource()=okbutton customstring$=Upper$(Left$(TextFieldText$(customname),6)) SetBuffer ImageBuffer(back) Text x-23,y,customstring$ FreeGadget custom SetBuffer BackBuffer() Exit EndIf EndIf If WaitEvent()=$803 FreeGadget custom Exit EndIf Forever EndIf If KeyHit(44) SetBuffer ImageBuffer(back) Text x-23,y,customstring$ SetBuffer BackBuffer() EndIf ;SAVE AND LOAD If KeyHit(31) save=CreateWindow("Save File Name",100,100,230,150,gamewindow,1) savename=CreateTextField(10,40,200,20,save) CreateLabel("Enter the file name with suffix .bmp:",10,10,200,20,save) okbutton=CreateButton("OK",72,75,85,25,save,1) ActivateGadget savename Repeat If WaitEvent()=$401 If EventSource()=okbutton ok=SaveImage(back,"c:"+TextFieldText$(savename)) If ok=1 Notify "File '"+TextFieldText$(savename)+"' successfully saved." Else Notify "Save error.",True EndIf FreeGadget save Exit EndIf EndIf If WaitEvent()=$803 FreeGadget save Exit EndIf Forever EndIf If KeyHit(38) loadmap$=RequestFile("Load Map","bmp") If loadmap$<>"" back=LoadImage(loadmap$) MaskImage back,255,0,0 EndIf EndIf If KeyHit(35) help=CreateWindow("Help",100,100,400,400,gamewindow,1) helptext=CreateCanvas(0,0,400,400,help) SetBuffer CanvasBuffer(helptext) Color 128,128,128 Text 200,0,"Legends of Arthonia Map Generator",True,False Text 200,12,"By: Brian Sauer, 2008",True,False Text 200,36,"This utility is for the creation of maps",True,False Text 200,48,"for the use in the LEGENDS OF ARTHONIA",True,False Text 200,60,"RPG. Use the key on the left to add map",True,False Text 200,72,"characters. Maps can be saved and loaded",True,False Text 200,84,"as .bmp files.",True,False Text 200,108,"TIPS:",True,False Text 200,120,"-Use the UNWALKABLE surface to make ",True,False Text 200,132," dungeons and castle walls.",True,False Text 200,146,"-For shops, NPC's, and other specialty",True,False Text 200,158," characters, use the CUSTOM feature.",True,False Text 200,170,"-After creating maps, submit them to the",True,False Text 200,182," the DOF website for public display.",True,False Text 200,206,"If you have any questions, comments, or",True,False Text 200,218,"suggestions for this generator, please",True,False Text 200,230,"e-mail contact@... Text 200,254,"More Legends of Arthonia tools and game",True,False Text 200,266,"material at www.dungeonsoffear.com!",True,False FlipCanvas(helptext) SetBuffer BackBuffer() Repeat If WaitEvent()=$803 FreeGadget help Exit EndIf Forever EndIf Flip Cls Wend

Ross C (Posted 2010) [#2]

I wonder why there is no include statement. This would lead to me to believe it's a .dll GUI perhaps?

Guy Fawkes (Posted 2010) [#3]

think about it. WHAT gui is this command in? WaitEvent()

Floyd (Posted 2010) [#4]

This is a weakness of the Code Archives. You can't tell what language the code is in! It is actually written in BlitzPlus, which is essentially the old 2D BlitzBasic plus a built-in GUI.

Guy Fawkes (Posted 2010) [#5]

CRAP! so how can I update it so it works with Nightgui or something like that?

Ross C (Posted 2010) [#6]

think about what? if you dont know the answer you can't pull me up for having a guess...

Kryzon (Posted 2010) [#7]

I don't know, try BlitzUI.

Guy Fawkes (Posted 2010) [#8]

no lol. i meant if u think about where that function is from, what gui do u think he used?

Kryzon (Posted 2010) [#9]

It uses the Windows UI, surely? it's not based on images (or "skins", if you will). The OS will build the forms' and gadget's graphics automatically, just like when you use NotePad or MS-Paint. The GUI commands embedded in BlitzPlus create an easy interface for you to use the Windows UI without having to hook the API in some complex\boring way. Just like MaxGUI or wxMax. EDIT: The closest way to use this in Blitz3D is either using WinBlitz3D, or perhaps a simulated solution like the Devil's GUI engine. Unfortunately, both do not support a way to "wait for an event to happen", so their update loops use 100% of your CPU.

Guy Fawkes (Posted 2010) [#10]

Well that just SUCKS....

Kryzon (Posted 2010) [#11]

They still work, nonetheless. Give them a try. Here's the link for WinBlitz3D: http://www.whitegatesoftware.com/winblitz3d.zip PS: If you're going to use WinBlitz3D, make sure to download SCHNOK. It's a visual form editor for it; makes things much faster and easier.

Guy Fawkes (Posted 2010) [#12]

CRAP! schnok crashes. i have windows vista 32-bit version ><

Sauer (Posted 2010) [#13]

Holy cow, my code! I did that in B+, so that's the GUI I used.

Guy Fawkes (Posted 2010) [#14]

@Sauer, YOU wrote this? If so, kudos to u! =D

Guy Fawkes (Posted 2010) [#15]

still can't get schnok to work.. *sigh* i would have liked to have used it. Why does it get a MAV?

Guy Fawkes (Posted 2010) [#16]

Ok, I got this to work. SORTA.. Can u guys tell me what commands to replace w/ what and how? AppTitle "Legends of Arthonia Map Generator v1.0" Graphics 640,480,32,2 Dim terrain$(6) terrain$(1)="FOREST" terrain$(2)="MOUNTS" terrain$(3)="WATER" terrain$(4)="PlAINS" terrain$(5)="SWAMP" terrain$(6)="DESERT" Include "WB3DStyles.bb" Global x=24 Global y=24 Global back=CreateImage(481,481,1) SetBuffer ImageBuffer(back) Color 255,255,255 Rect 0,0,480,480,1 Color 0,0,0 Rect 0,0,481,481,0 For t=1 To 10 Line 0,48*t,480,48*t Next For u=1 To 10 Line 48*u,0,48*u,480 Next MaskImage back,255,0,0 SetBuffer BackBuffer() While Not KeyHit(1) ClsColor 255,255,255 Color 0,0,0 DrawImage back,0,0 Text 490,0,"Editor Key:" Text 490,12,"-Terrain" Text 490,24,"1=Woods" Text 490,36,"2=Rocks" Text 490,48,"3=Water" Text 490,60,"4=Grass" Text 490,72,"5=Swamp" Text 490,84,"6=Sand" Text 490,108,"-Walls/Unwalkable" Text 490,120,"7=Horizontal" Text 490,132,"8=Vertical" Text 490,144,"9=Corner" Text 490,156,"0=Unwalkable" Text 490,180,"-Custom" Text 490,192,"BACK=New custom" Text 490,204,"Z=Custom" Text 490,228,"-Height" Text 490,240,"F1=1" Text 490,252,"F2=2" Text 490,264,"F3=3" Text 490,276,"F4=4" Text 490,288,"F5=5" Text 490,300,"F6=6" Text 490,324,"-Other" Text 490,336,"SPACE=delete" Text 490,348,"S=save" Text 490,360,"L=Load" Text 490,372,"H=Help" ;///////////////////////////// Color 128,128,128 Text x,y,"X" If KeyHit(203) x=x-48 If x<=24 x=24 EndIf EndIf If KeyHit(205) x=x+48 If x>=456 x=456 EndIf EndIf If KeyHit(200) y=y-48 If y<=24 y=24 EndIf EndIf If KeyHit(208) y=y+48 If y>=456 y=456 EndIf EndIf ;/////////////////////////////// ;TEXT key=GetKey() If key>48 And key<55 SetBuffer ImageBuffer(back) Color 0,0,0 Text x-24,y,terrain(key-48) SetBuffer BackBuffer() EndIf ;WALLS, DELETE, UNWALKABLE If key=32 SetBuffer ImageBuffer(back) Color 255,255,255 Rect x-23,y-23,47,47,1 SetBuffer BackBuffer() EndIf If key=48 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-23,y-23,46,46,1 SetBuffer BackBuffer() EndIf If key=55 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-23,y-5,47,10 SetBuffer BackBuffer() EndIf If key=56 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-5,y-23,10,47 SetBuffer BackBuffer() EndIf If key=57 SetBuffer ImageBuffer(back) Color 0,0,0 Rect x-5,y-23,10,47 Rect x-23,y-5,47,10 SetBuffer BackBuffer() EndIf ;LEVEL If KeyHit(59) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"1" SetBuffer BackBuffer() EndIf If KeyHit(60) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"2" SetBuffer BackBuffer() EndIf If KeyHit(61) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"3" SetBuffer BackBuffer() EndIf If KeyHit(62) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"4" SetBuffer BackBuffer() EndIf If KeyHit(63) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"5" SetBuffer BackBuffer() EndIf If KeyHit(64) SetBuffer ImageBuffer(back) Color 128,128,128 Text x-23,y-23,"6" SetBuffer BackBuffer() EndIf ;CUSTOM If KeyHit(14) custom=WB3D_CreateWindow("New Custom Label",100,100,230,150,gamewindow,1) ;customname=WB3D_CreateInput(10,40,200,20,custom) WB3D_CreateLabel("Enter custom entry (max. 6 characters)",10,10,200,20,custom,1) okbutton=WB3D_CreateButton("OK",72,75,85,25,custom,1) WB3D_ActivateGadget customname Repeat If WB3D_WaitEvent()=$401 If WB3D_EventSource()=okbutton ;customstring$=Upper$(Left$(WB3D_TextFieldText$(customname),6)) SetBuffer ImageBuffer(back) Text x-23,y,customstring$ WB3D_FreeGadget custom SetBuffer BackBuffer() Exit EndIf EndIf If WB3D_WaitEvent()=$803 WB3D_FreeGadget custom Exit EndIf Forever EndIf If KeyHit(44) SetBuffer ImageBuffer(back) Text x-23,y,customstring$ SetBuffer BackBuffer() EndIf ;SAVE AND LOAD If KeyHit(31) save=WB3D_CreateWindow("Save File Name",100,100,230,150,gamewindow,1) ;savename=CreateTextField(10,40,200,20,save) WB3D_CreateLabel("Enter the file name with suffix .bmp:",10,10,200,20,save,1) okbutton=WB3D_CreateButton("OK",72,75,85,25,save,1) WB3D_ActivateGadget savename Repeat If WB3D_WaitEvent()=$401 If WB3D_EventSource()=okbutton ok=SaveImage(back,"c:"+TextFieldText$(savename)) If ok=1 ;WB3D_Notify "File '"+TextFieldText$(savename)+"' successfully saved." Else WB3D_Notify "error","Save error.",True EndIf WB3D_FreeGadget save Exit EndIf EndIf If WB3D_WaitEvent()=$803 WB3D_FreeGadget save Exit EndIf Forever EndIf If KeyHit(38) ;loadmap$=RequestFile("Load Map","bmp") If loadmap$<>"" back=LoadImage(loadmap$) MaskImage back,255,0,0 EndIf EndIf If KeyHit(35) help=WB3D_CreateWindow("Help",100,100,400,400,gamewindow,1) ;helptext=CreateCanvas(0,0,400,400,help) ;SetBuffer CanvasBuffer(helptext) Color 128,128,128 Text 200,0,"Legends of Arthonia Map Generator",True,False Text 200,12,"By: Brian Sauer, 2008",True,False Text 200,36,"This utility is for the creation of maps",True,False Text 200,48,"for the use in the LEGENDS OF ARTHONIA",True,False Text 200,60,"RPG. Use the key on the left to add map",True,False Text 200,72,"characters. Maps can be saved and loaded",True,False Text 200,84,"as .bmp files.",True,False Text 200,108,"TIPS:",True,False Text 200,120,"-Use the UNWALKABLE surface to make ",True,False Text 200,132," dungeons and castle walls.",True,False Text 200,146,"-For shops, NPC's, and other specialty",True,False Text 200,158," characters, use the CUSTOM feature.",True,False Text 200,170,"-After creating maps, submit them to the",True,False Text 200,182," the DOF website for public display.",True,False Text 200,206,"If you have any questions, comments, or",True,False Text 200,218,"suggestions for this generator, please",True,False Text 200,230,"e-mail mailto:contact@dungeonsoffear",True,False Text 200,254,"More Legends of Arthonia tools and game",True,False Text 200,266,"material at www.dungeonsoffear.com!",True,False ;FlipCanvas(helptext) SetBuffer BackBuffer() Repeat If WB3D_WaitEvent()=$803 WB3D_FreeGadget help Exit EndIf Forever EndIf Flip Cls Wend Here's what needs to be replaced: ;customname=WB3D_CreateInput(10,40,200,20,custom) ;customstring$=Upper$(Left$(WB3D_TextFieldText$(customname),6)) ;savename=CreateTextField(10,40,200,20,save) ;savename=CreateTextField(10,40,200,20,save) ;WB3D_Notify "File '"+TextFieldText$(savename)+"' successfully saved." ;loadmap$=RequestFile("Load Map","bmp") ;helptext=CreateCanvas(0,0,400,400,help) ;SetBuffer CanvasBuffer(helptext) ;FlipCanvas(helptext) I need to know how to replace these lines, and I also need to know where to find a replacement function for RequestFile()

Danny (Posted 2010) [#17]

@Rez - sorry it MAV'ed on you mate. Schnok doesn't sit very well on Vista ;) I didn't knew anyone still used that old proggy... Anyway, here's a version that should work on Vista, grab it here: www.xs4all.nl/~dendanny/SCHNOK/schnok.v1.00.rar Have fun, Danny.

Guy Fawkes (Posted 2010) [#18]

thanks danny! so guys, can someone help w/ the above? I really wanna help upgrade this apparent alpha version of this rpg drag drop editor

Sauer (Posted 2010) [#19]

You're going to have issues using this to create a drag and drop editor for RPG's using this code. Its intent was to create bitmap images for pen and paper RPG's, not generate level data for computer games. There is no data structure for storing the information contained in the cells, and while you could implement one, you'd probably be better off re-writing one from scratch.

Guy Fawkes (Posted 2010) [#20]

well yea, but i can see how this could easily be turned into just that.

Ross C (Posted 2010) [#21]

no offence meant here, but if you can see how easily it can be converted, after reading Sauer's post, this should be do-able by yourself.

Guy Fawkes (Posted 2010) [#22]

No offense taken. I simply need to know the replacement functions

Ross C (Posted 2010) [#23]

It's realllly hard to be nice to you. ah, i see you have edited your post to say no offence.

Guy Fawkes (Posted 2010) [#24]

Hey I did NOTHING to u. I said I simply need to know the replacement functions. No more, no less. I havent called u a name or done ANYTHING to u..

JA2 (Posted 2010) [#25]

:)

Guy Fawkes (Posted 2010) [#26]

Ok, at least tell me what dll "requestfile", "createcanvas", "canvasbuffer", and "flipcanvas" is in.

Yasha (Posted 2010) [#27]

They're BlitzPlus commands; they're not in a DLL. You'll either need to get BlitzPlus (there's a free demo, don't know if it's got use-limitations) or reconstruct their functionality in native B3D code. RequestFile looks like a file requester box - you know when you click File -> Open at the top left of many applications, you get a box to let you choose... that thing. It looks like it returns the name of a file which is then loaded normally, so you could just cut it out and replace it with a constant filename for now, until you've worked out what you want to do about a replacement GUI system. I have no idea what a canvas is, but it sounds like some kind of independent drawing area that can be updated separately from the BackBuffer. If this is the case there is no way to do that from within Blitz3D so you'd have to draw this information somewhere on the main screen instead. So perhaps try commenting out the bits not completely necessary to functionality (information boxes etc.), and drawing the rest to a dedicated canvas area somewhere to one side of the screen?

Kryzon (Posted 2010) [#28]

WinBlitz3D \ examples \ Kev \ GUI \ WB3D_OpenFileRequest.bb

Guy Fawkes (Posted 2010) [#29]

Thanks Kryzon, but I found some code that allows request file AND drag & drop file

Guy Fawkes (Posted 2010) [#30]

as for the canvas stuff on here, what function can i use to replace them?

D4NM4N (Posted 2010) [#31]

You need to write your own, probably involving using an image buffer.