Gui-OS Visual Designer V1.01 - GameCreators Forum

Author

Message

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 5th Nov 2004 00:27 Edited at: 5th Nov 2004 00:32

Link

Im making a programming until called 'Gui-OS Visual Designer V1.01' And im wondering if you think it would be worth £5...

Its A Dark Basic Version of Visual Basic which allows you to use custom skinned Windows, with semi-transparancy, fading windows and up to now I have window contents including buttons, sprites, images, text Boxes, window Txt, black boards, Avi Animations, ImageText default system Buttons and several others things... It also has additional menu commands to make right click menus and MenuBars.

Ive designed it so that it looks like Visual Basic, but you can also use the commands externally if you would rather just do the coding, rather than visualy doing it.

It Exports what youve make to Dark Basic Code to allow you to add it to a game, or whatever.

There is currenty way over 100 Commands, Some of which Ive Listed Below...

WindowMode(Wn)
OpenWindow(Wn)
CloseWindow(Wn)
MakeWindowWithMouse(Title$,Skin)
MakeRoundButtonWithMouse(Title$,Skin)

General Gui Commands 
ActivateGui()                                                : `                                         : Activate The Custom Gui Environment
LoadSkins(Path$)                                             : ` Number Of Skins Loaded                  : Use to Load Multiple Skins at Once
MakeSkin(Path$)                                              : ` Skin Number                             : Load a Single Skin
RemoveSkin(Skin)                                             : `                                         : Remove a Skin and Delete Any Images, Ect Associcated with the Skin from the Memory
FreeSkinNumber()                                             : ` Free Skin Number                        : Find a Free Entry, If none Available then Make One
NegotiveSkin(Skin)                                           : `                                         : Invert a Skin To Negotive
SkinNumberFromName(Name$)                                    : ` Skin Number                             : Retreive the Skin Number from the Skin Name
SkinInk(Sn,Mode$)                                            : `                                         : Setup your Text to Match the Skin

Window Commands 
MakeWindow(X,Y,Width,Height,Title$,Skin)                     : ` Window Number                           : Make a New Skinned Window
UpdateTitleBar(Wn,Title$)                                    : `                                         : Update The Window Title...
RemoveWindow(Wn)                                             : `                                         : Remove a Window (Does NOT Remove the DataList)
FreeWindowNumber()                                           : ` Free Window Number                      : Find a Free Entry, If none Available then Make One
ShowWindow(Wn)                                               : ` 0 = Error Or 1 = Done                   : Hide The Specified Window
HideWindow(Wn)                                               : ` 0 = Error Or 1 = Done                   : Hide The Specified Window
UpdateWindow(Wn)                                             : ` Item Type / Item Number, ect            : Update a Window And All of Its Contents
UpdateAllWindows()                                           : ` Window Selected                         : Update All the Windows [ Array Count(Window()) ]
EnableWindow(Wn)                                             : `                                         : Enable a Window
DisableWindow(Wn)                                            : `                                         : Disable a Window
SetWindowAlpha(Wn,Alpha)                                     : `                                         : Set the Alpha Of a Window, (Transparancy)
FreeWindowContentsNumber()                                   : ` Free Window Contents Number             : Find a Free Entry, If none Available then Make One
AddWindowContents(Wn,Item$,ItemN)                            : `                                         : Add an Item to a Window
RemoveWindowContents(Wc)                                     : `                                         : Remove an Item from a Window
CenterWindow(Wn)                                             : `                                         : Place a Window in the Center of the Screen
OverTitleBar(Wn)                                             : ` Returns 1 If Over TitleBar              : Check If the Mouse is Over The Window TitleBar
TitleBarHeight(Wn)                                           : ` TitleBar Height                         : Get the TitleBar Height Of a Window
MoveWindow(Wn)                                               : `                                         : Move the Window and Its Contents with the Mouse
AutoHideWindow(Wn,Direction$,WaiTime,Gap)                    : ` AutoHide Value [-1 = Error]             : AutoHide a Window (Slide Up, Down, Left or Right)
WindowOnTop(Wn)                                              : `                                         : Place a Window On Top
MakeWindowBitmap(Wn)                                         : ` Bitmap Number                           : Paste the Window Background to a Bitmap (This will allow you to use ALL 2D And Bitmap Commands on the Window)
GetWindowBitmap(Wn,BMn)                                      : `                                         : Update a Window BackGround and Delete Bitmap (Recomended Usage with [MakeWindowBitmap(Wn)])
WrapWindow(Wn)                                               : `                                         : Set the DBWindow to Windowed Mode and Wrap it With a Skinned Window
FreeMenuNumber()                                             : ` Free Menu Number                        : Find a Free Entry, If none Available then Make One
MakeMenu(Width,Height,X,Y,Sn)                                : ` Menu Number                             : Set a New Menu
AddMenuItem(Mn,Title$,In1,In2)                               : ` Window Contents Number                  : Add a Menu Item in the Form of \'Window Contents\' to a Menu...
SetMenuToMouse(Mn)                                           : `                                         : Follow this With [UpdateMenu] to Create a Right Click Menu...
UpdateMenu(Mn)                                               : ` Button Pressed                          : Update The Menu Contents

Button Commands 
FreeButtonNumber()                                           : ` Free Button Number                      : Find a Free Entry, If none Available then Make One
MakeButton(X,Y,Width,Height,Caption$,IN1,IN2,Skin)           : ` Button Number                           : Make a Skinned Button
MakeRoundButton(X,Y,Caption$,Skin)                           : ` Button Number                           : Make a Skinned Rounded Button
EnableButton(Bn)                                             : `                                         : Enable a Button
DisableButton(Bn)                                            : `                                         : Disable a Button
UpdateButton(Bn)                                             : ` MouseClick() if Button Pressed          : Update a Skinned Button (Obsolete With [UpdateWindow()])
ShowButton(Bn)                                               : `                                         : Hide The Button Sprite
HideButton(Bn)                                               : `                                         : Hide The Button Sprite
RemoveButton(Bn)                                             : `                                         : Remove a Button (Does NOT Remove The DataBank)

HelpText Commands 
SetHelpText(Type$,Tn,String$)                                : ` 1 = OK Or 0 = Error                     : Set HelpText 0n an Item
HelpText(String$)                                            : `                                         : Display System HelpText...

Text Commands 
AddTextToWindow(Wn,X,Y,String$,Style$)                       : `                                         : Write Text to a Window
Sprite Commands 
FreeSpriteNumber()                                           : ` Free System Sprite Number               : Provide a Free Sprite Number
MouseOverSprite(Sn)                                          : ` 1 = Mouse Over Sprite                   : Check if the Mouse is Over a Sprite
CenterSprite(SN,IN)                                          : `                                         : Place a Sprite in the Middle of the Screen
ZoomSprite(SN,WaiTime,Zoom)                                  : ` [0=Error], [1=ZoomIn], [2=ZoomOut]      : If Sprite Hidden Then ZoomIn, Else ZoomOut On Sprite
SpriteOnTop(SN)                                              : `                                         : Will Set a Sprite, With the Highest System Priority (Above Windows)
MoveSprite(Sn)                                               : `                                         : Move the Sprite with the Mouse
FreeWindowSpriteNumber()                                     : ` Free Window Sprite Number               : Find a Free Entry, If none Available then Make One
AddSpriteToWindow(Wn,Sn,X,Y)                                 : ` Window Contents Number                  : Add a Sprite to a Window (You can Still Animate These Aswell)
WindowSpriteNumber(Sn)                                       : ` WindowSprite Number                     : Find the WindowSprite Number, (Allows Access to Window X/Y OffSet For Animation)

Animation Commands 
FreeAnimationNumber()                                        : ` Free System Image Number                : Provide a Free Image Number
AddAnimationToWindow(Wn,An,X,Y,Xe,Ye)                        : ` Window Contents Number                  : Add An AVI File to a Window

ProgressBar Commands
FreeProgressBarNumber()                                   : ` Free ProgressBar Number        : Get a Free ProgressBar Number
MakeProgressBar(X,Y,Width,Height)                         : ` ProgressBar Number             : Make a New ProgressBar
SetProgressBarColor(PBn,BoarderColor,BackColor,FillColor) : `                                : Set a ProgressBars Colors
SetProgressBarAngle(PBn,Angle#)                           : `                                : Rotate the ProgressBar
SetProgressBar(PBn,Value#)                                : `                                : Set the ProgressBar Value as a Real Number
AddProgressBarToWindow()                                  : ` Window Contents Number         : Add a ProgressBar to a Window

Image + Bitmap Commands
FreeBitmapNumber()                                           : ` Free Bitmap Number                      : Provide a Free Bitmap Number
FreeImageNumber()                                            : ` Free System Image Number                : Provide a Free Image Number
AddImageToWindow(Wn,In,X,Y)                                  : `                                         : Add an Image to a Window
EncriptPicture(PicMode$,N,Mem,Name$)                         : `                                         : Encript an Image or Bitmap to avoid people Altering Them... (Security)
DecriptPicture(PicMode$,N,Mem,Name$)                         : `                                         : Decript an Encripted Image or Bitmap
FadeIn(BlurValue,KeyPress,Pic$,Mf$,Mn)                       : ` KeyPress$ [0/1]                         : Fade an Image Into View with Blue and Fade
FadeOut(BlurValue,KeyPress,Pic$,Mn)                          : ` KeyPress$ [0/1]                         : Fade an Image Out of View with Blue and Fade

File Commands
FreeFileNumber()                                             : ` Free File Number                        : Provide a Free File Number

System Commands 
OpenCDDrive()                                                : `                                         : Open the CD Drive
CloseCDDrive()                                               : `                                         : Close the CD Drive
Open_RegEdit(File$)                                          : `                                         : Open \'RegEdit\'
Open_WordPad(File$)                                          : `                                         : Open \'WordPad\'
Open_NotePad(File$)                                          : `                                         : Open \'NotePad\'
Open_Cmd(File$)                                              : `                                         : Open \'Dos Prompt\'
Open_Explorer(Path$)                                         : `                                         : Open \'Explorer\'
Open_ControlPanel(File$)                                     : `                                         : Open \'Control Panel\'
Open_MyDocuments(File$)                                      : `                                         : Open \'My Documents\'
Open_InfoPath(File$)                                         : `                                         : Open \'InfoPath\'
Open_OutLook(File$)                                          : `                                         : Open \'My OutLook\'
Open_Excel(File$)                                            : `                                         : Open \'Excel\'
Open_Edit(File$)                                             : `                                         : Open \'Edit\'
Open_Paint(File$)                                            : `                                         : Open \'Paint\'
Open_Access(File$)                                           : `                                         : Open \'Access\'
Open_Works(File$)                                            : `                                         : Open \'Works\'
Open_Solitaire()                                             : `                                         : Open \'Solitaire\'
Open_Hearts()                                                : `                                         : Open \'Hearts'

+ Code Snippet

WindowMode(Wn)
OpenWindow(Wn)
CloseWindow(Wn)
MakeWindowWithMouse(Title$,Skin)
MakeRoundButtonWithMouse(Title$,Skin)

General Gui Commands 
ActivateGui()                                                : `                                         : Activate The Custom Gui Environment
LoadSkins(Path$)                                             : ` Number Of Skins Loaded                  : Use to Load Multiple Skins at Once
MakeSkin(Path$)                                              : ` Skin Number                             : Load a Single Skin
RemoveSkin(Skin)                                             : `                                         : Remove a Skin and Delete Any Images, Ect Associcated with the Skin from the Memory
FreeSkinNumber()                                             : ` Free Skin Number                        : Find a Free Entry, If none Available then Make One
NegotiveSkin(Skin)                                           : `                                         : Invert a Skin To Negotive
SkinNumberFromName(Name$)                                    : ` Skin Number                             : Retreive the Skin Number from the Skin Name
SkinInk(Sn,Mode$)                                            : `                                         : Setup your Text to Match the Skin

Window Commands 
MakeWindow(X,Y,Width,Height,Title$,Skin)                     : ` Window Number                           : Make a New Skinned Window
UpdateTitleBar(Wn,Title$)                                    : `                                         : Update The Window Title...
RemoveWindow(Wn)                                             : `                                         : Remove a Window (Does NOT Remove the DataList)
FreeWindowNumber()                                           : ` Free Window Number                      : Find a Free Entry, If none Available then Make One
ShowWindow(Wn)                                               : ` 0 = Error Or 1 = Done                   : Hide The Specified Window
HideWindow(Wn)                                               : ` 0 = Error Or 1 = Done                   : Hide The Specified Window
UpdateWindow(Wn)                                             : ` Item Type / Item Number, ect            : Update a Window And All of Its Contents
UpdateAllWindows()                                           : ` Window Selected                         : Update All the Windows [ Array Count(Window()) ]
EnableWindow(Wn)                                             : `                                         : Enable a Window
DisableWindow(Wn)                                            : `                                         : Disable a Window
SetWindowAlpha(Wn,Alpha)                                     : `                                         : Set the Alpha Of a Window, (Transparancy)
FreeWindowContentsNumber()                                   : ` Free Window Contents Number             : Find a Free Entry, If none Available then Make One
AddWindowContents(Wn,Item$,ItemN)                            : `                                         : Add an Item to a Window
RemoveWindowContents(Wc)                                     : `                                         : Remove an Item from a Window
CenterWindow(Wn)                                             : `                                         : Place a Window in the Center of the Screen
OverTitleBar(Wn)                                             : ` Returns 1 If Over TitleBar              : Check If the Mouse is Over The Window TitleBar
TitleBarHeight(Wn)                                           : ` TitleBar Height                         : Get the TitleBar Height Of a Window
MoveWindow(Wn)                                               : `                                         : Move the Window and Its Contents with the Mouse
AutoHideWindow(Wn,Direction$,WaiTime,Gap)                    : ` AutoHide Value [-1 = Error]             : AutoHide a Window (Slide Up, Down, Left or Right)
WindowOnTop(Wn)                                              : `                                         : Place a Window On Top
MakeWindowBitmap(Wn)                                         : ` Bitmap Number                           : Paste the Window Background to a Bitmap (This will allow you to use ALL 2D And Bitmap Commands on the Window)
GetWindowBitmap(Wn,BMn)                                      : `                                         : Update a Window BackGround and Delete Bitmap (Recomended Usage with [MakeWindowBitmap(Wn)])
WrapWindow(Wn)                                               : `                                         : Set the DBWindow to Windowed Mode and Wrap it With a Skinned Window
FreeMenuNumber()                                             : ` Free Menu Number                        : Find a Free Entry, If none Available then Make One
MakeMenu(Width,Height,X,Y,Sn)                                : ` Menu Number                             : Set a New Menu
AddMenuItem(Mn,Title$,In1,In2)                               : ` Window Contents Number                  : Add a Menu Item in the Form of \'Window Contents\' to a Menu...
SetMenuToMouse(Mn)                                           : `                                         : Follow this With [UpdateMenu] to Create a Right Click Menu...
UpdateMenu(Mn)                                               : ` Button Pressed                          : Update The Menu Contents

Button Commands 
FreeButtonNumber()                                           : ` Free Button Number                      : Find a Free Entry, If none Available then Make One
MakeButton(X,Y,Width,Height,Caption$,IN1,IN2,Skin)           : ` Button Number                           : Make a Skinned Button
MakeRoundButton(X,Y,Caption$,Skin)                           : ` Button Number                           : Make a Skinned Rounded Button
EnableButton(Bn)                                             : `                                         : Enable a Button
DisableButton(Bn)                                            : `                                         : Disable a Button
UpdateButton(Bn)                                             : ` MouseClick() if Button Pressed          : Update a Skinned Button (Obsolete With [UpdateWindow()])
ShowButton(Bn)                                               : `                                         : Hide The Button Sprite
HideButton(Bn)                                               : `                                         : Hide The Button Sprite
RemoveButton(Bn)                                             : `                                         : Remove a Button (Does NOT Remove The DataBank)

HelpText Commands 
SetHelpText(Type$,Tn,String$)                                : ` 1 = OK Or 0 = Error                     : Set HelpText 0n an Item
HelpText(String$)                                            : `                                         : Display System HelpText...

Text Commands 
AddTextToWindow(Wn,X,Y,String$,Style$)                       : `                                         : Write Text to a Window
Sprite Commands 
FreeSpriteNumber()                                           : ` Free System Sprite Number               : Provide a Free Sprite Number
MouseOverSprite(Sn)                                          : ` 1 = Mouse Over Sprite                   : Check if the Mouse is Over a Sprite
CenterSprite(SN,IN)                                          : `                                         : Place a Sprite in the Middle of the Screen
ZoomSprite(SN,WaiTime,Zoom)                                  : ` [0=Error], [1=ZoomIn], [2=ZoomOut]      : If Sprite Hidden Then ZoomIn, Else ZoomOut On Sprite
SpriteOnTop(SN)                                              : `                                         : Will Set a Sprite, With the Highest System Priority (Above Windows)
MoveSprite(Sn)                                               : `                                         : Move the Sprite with the Mouse
FreeWindowSpriteNumber()                                     : ` Free Window Sprite Number               : Find a Free Entry, If none Available then Make One
AddSpriteToWindow(Wn,Sn,X,Y)                                 : ` Window Contents Number                  : Add a Sprite to a Window (You can Still Animate These Aswell)
WindowSpriteNumber(Sn)                                       : ` WindowSprite Number                     : Find the WindowSprite Number, (Allows Access to Window X/Y OffSet For Animation)

Animation Commands 
FreeAnimationNumber()                                        : ` Free System Image Number                : Provide a Free Image Number
AddAnimationToWindow(Wn,An,X,Y,Xe,Ye)                        : ` Window Contents Number                  : Add An AVI File to a Window

ProgressBar Commands
FreeProgressBarNumber()                                   : ` Free ProgressBar Number        : Get a Free ProgressBar Number
MakeProgressBar(X,Y,Width,Height)                         : ` ProgressBar Number             : Make a New ProgressBar
SetProgressBarColor(PBn,BoarderColor,BackColor,FillColor) : `                                : Set a ProgressBars Colors
SetProgressBarAngle(PBn,Angle#)                           : `                                : Rotate the ProgressBar
SetProgressBar(PBn,Value#)                                : `                                : Set the ProgressBar Value as a Real Number
AddProgressBarToWindow()                                  : ` Window Contents Number         : Add a ProgressBar to a Window

Image + Bitmap Commands
FreeBitmapNumber()                                           : ` Free Bitmap Number                      : Provide a Free Bitmap Number
FreeImageNumber()                                            : ` Free System Image Number                : Provide a Free Image Number
AddImageToWindow(Wn,In,X,Y)                                  : `                                         : Add an Image to a Window
EncriptPicture(PicMode$,N,Mem,Name$)                         : `                                         : Encript an Image or Bitmap to avoid people Altering Them... (Security)
DecriptPicture(PicMode$,N,Mem,Name$)                         : `                                         : Decript an Encripted Image or Bitmap
FadeIn(BlurValue,KeyPress,Pic$,Mf$,Mn)                       : ` KeyPress$ [0/1]                         : Fade an Image Into View with Blue and Fade
FadeOut(BlurValue,KeyPress,Pic$,Mn)                          : ` KeyPress$ [0/1]                         : Fade an Image Out of View with Blue and Fade

File Commands
FreeFileNumber()                                             : ` Free File Number                        : Provide a Free File Number

System Commands 
OpenCDDrive()                                                : `                                         : Open the CD Drive
CloseCDDrive()                                               : `                                         : Close the CD Drive
Open_RegEdit(File$)                                          : `                                         : Open \'RegEdit\'
Open_WordPad(File$)                                          : `                                         : Open \'WordPad\'
Open_NotePad(File$)                                          : `                                         : Open \'NotePad\'
Open_Cmd(File$)                                              : `                                         : Open \'Dos Prompt\'
Open_Explorer(Path$)                                         : `                                         : Open \'Explorer\'
Open_ControlPanel(File$)                                     : `                                         : Open \'Control Panel\'
Open_MyDocuments(File$)                                      : `                                         : Open \'My Documents\'
Open_InfoPath(File$)                                         : `                                         : Open \'InfoPath\'
Open_OutLook(File$)                                          : `                                         : Open \'My OutLook\'
Open_Excel(File$)                                            : `                                         : Open \'Excel\'
Open_Edit(File$)                                             : `                                         : Open \'Edit\'
Open_Paint(File$)                                            : `                                         : Open \'Paint\'
Open_Access(File$)                                           : `                                         : Open \'Access\'
Open_Works(File$)                                            : `                                         : Open \'Works\'
Open_Solitaire()                                             : `                                         : Open \'Solitaire\'
Open_Hearts()                                                : `                                         : Open \'Hearts'

P.S.

its mainly Sprite Based, so If you have anything that you think would look good in a window, let me know whould you

Attachments

Login to view attachments

Back to top

Profile PM Email Website

AluminumPork

20

Years of Service

User Offline

Joined: 28th Oct 2003

Location: Duluth, MN, USA

Posted: 5th Nov 2004 00:57

Link

Sounds very cool. Competitor to BlueGUI? I would definitly pay... wait, that's in euro, what would it be in american? Anyways, sounds cheap, I'd buy it.

P4 2.4Ghz HT, 512MB RAM, ATI Radeon 9600 128MB, 19" Samsung SyncMaster 997DF, 80GB HD

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 5th Nov 2004 01:14

Link

is it wrapping BlueGUI? just curious - no offense intended.

DBP_NETLIB_v1.4.3

DarkTOPIA site coming soon!

Back to top

Profile PM

IanG

20

Years of Service

User Offline

Joined: 25th Sep 2004

Location: Cyberspace

Posted: 5th Nov 2004 01:29

Link

he said it was sprite based so i gather not, it just does everything that blue gui does, so i wouldn't get it

Used to be Phoenix_insane registered in september 2003 despite what the date says to the left <--
PC - amd athlon 2ghz, 512mb, geforce fx5200 128mb, 200gb, xp pro sp2

Back to top

Profile PM

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 5th Nov 2004 01:52

Link

It sounds like a good, clever project but with BlueGUI out I don't think many people would buy it.

Realms Of Tutopia: Rise Of Evil
http://www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

1tg46

20

Years of Service

User Offline

Joined: 1st Feb 2004

Location: I dont know!

Posted: 5th Nov 2004 04:01

Link

But you have to admit that it is pretty useful, as of right now BlueGUI does not have skinnable buttons, and other suff, but yet you could change their appearance with API commands. But I wouldn't buy it because BlueGUI is enough for me at the moment.

What makes your product unique or better than BlueGUI? If you can answer that question then you might be in business.

Good luck,
1tg46

Click the sig

Back to top

Profile PM Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 5th Nov 2004 12:51 Edited at: 5th Nov 2004 13:19

Link

Hi Everyone

BlueIDE

+ Code Snippet

Ive Heard of 'BlueGUI' But Ive never tried it as I dont have it, but
as I understand it allows you to access Components like windows,
textboxes, ect, by accessing windows Dlls, but does it come with a 
WYSIWYG Editor like Visual Basic.


And my system allows you to use a custom gui environment WITHOUT 
USING ANY WINDOW DLL's which I wanted to do.


As for the idea of making it compatable with BlueIDE, my system uses 
[Sprite Priority], so if it uses anythink like this so that I could 
set an item to appear between sprites then I should be able to make 
it compatable, but if not then I dont think so

Custom Skins

+ Code Snippet

Also im using this to make customs windows for a matrix editor which
my brother is making, iv'e used semi-transparant windows with a 
choice of skins which you can set in an options window that I made.


The skins are made up by 7 Bitmaps, and a file called [Skin.ini] 
where it gets all the Default information like text styles, back and 
fore colors, Default Size for items like textboxes and buttons, 
border side, ect.


The default sizes arnt used unless You specify an X and Y size of 0 
when making an item like a button


Its Easy to make your own skin, Ive make about 20 so far, but a 
friend of mine is making some for me, and he seems to be better at 
making them than me.


You Can make a skin to match your game instead of using one thats 
defined by windows...

Net Commands

+ Code Snippet

Ive also been Working  on some Net Commands to be able to send window 
commands to another player during netgames

Including,

MakeNetWindow()
NetMsg(User,Message$)
SendWindow(User)
If User = 0 Then it sents to All Net Players Connected

Im thinking about using these to make a 'Chat Window' where it would 
update the window contents on connected users

And Ive just come up with an idea for another command...

[Make Menu From CheckList]

Back to top

Profile PM Email Website

BearCDPOLD

20

Years of Service

User Offline

Joined: 16th Oct 2003

Location: AZ,USA

Posted: 5th Nov 2004 13:22

Link

Will it support DB classic?

Crazy Donut Productions, Current Project: Project Starbuks
Sony stole our name!

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 5th Nov 2004 13:26

Link

Ive just tries it in classic, but it didnt work

Does Classic support Types?

Back to top

Profile PM Email Website

Rknight

21

Years of Service

User Offline

Joined: 25th Sep 2003

Location: NJ

Posted: 5th Nov 2004 13:29

Link

I think you could definitely do well with it. I'd probably buy it since it uses an alternative system which might work better in some circumstances.

Back to top

Profile PM

BearCDPOLD

20

Years of Service

User Offline

Joined: 16th Oct 2003

Location: AZ,USA

Posted: 5th Nov 2004 13:56

Link

Unfortunately Classic doesn't have types, you have to sit there and stick everything in a string array and remember which elements are supposed to be which data types and convert accordingly.

Crazy Donut Productions, Current Project: Project Starbuks
Sony stole our name!

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 5th Nov 2004 13:59

Link

Its not quite complete yet and there are still some commands that ide like to do and some small bugs to sort out, but ill try to make a demo

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 5th Nov 2004 14:17 Edited at: 5th Nov 2004 14:20

Link

Hi Bear

It used to be in string arrays, but I changed it as its much easier to understand in types and ive found that some of the types work as commands to alter the items in certain ways,

Ie: To Freeze a Window in its current state
Window(#).Enabled = 0

Compared To
Window(#,8) = 0

Back to top

Profile PM Email Website

Rknight

21

Years of Service

User Offline

Joined: 25th Sep 2003

Location: NJ

Posted: 6th Nov 2004 00:44

Link

To sell I think you'd do well to make some good example programs with source:

A miniature word processor with font selection, something along the lines of a DarkBasic Wordpad.

A basic music/animation/sound player program with buttons, etc.

A very basic 'paint' program with color pallette.

That'd probably do you well.

As well as making sure changing skins is easy to do.

Back to top

Profile PM

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 6th Nov 2004 08:25 Edited at: 6th Nov 2004 08:25

Link

Just to clarify things:

BlueGUI is a plugin which lets you use windows controls in your projects. In uses the standard Windows DLL commands to do this, as opposed to using DBPro 2D / 3D commands.

It *does* come with a visual editor - http://www.robertknight.me.uk/blue2/site/index.php?view=info_demodl&demo=rainbow
BlueGUI however *does not* support skinnable gadgets.

BlueGUI:Windows UI Plugin - All the power of the windows interface in your DBPro games.

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 6th Nov 2004 12:55 Edited at: 6th Nov 2004 13:07

Link

Hi Everyone
As I said Ive not Seen BlueGUI before, but that 'Rainbow Visual UI Designer' Looks better than Mine, Mine has a ToolBar Window like yours But mine has a Different 'Gadget properties' Style like in Visual Basic and an AutoHiding MenuBar at the top of the Screen instead of in the ToolBar Window...
Although the Rainbow Editor does look better than mine

And Hi Mr Kid
Ive tied using search and replace on he Types to chance it to Arrays Like Window(#,15), Ect, AND IT RAN IN CLASSIC, But then it crashed as the FreeSkinNumber() Function and several other Function still Required The Types, But I 'MIGHT' be able to convert it for 'Classic' And 'Pro' if that would be better.

And as for 'good example programs', Ill see what I can do

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 6th Nov 2004 13:00 Edited at: 6th Nov 2004 13:02

Link

Ive Just Completed the Command

MenuNumber = MakeMenuFromCheckList()

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 6th Nov 2004 21:50 Edited at: 6th Nov 2004 21:58

Link

Hi

Heres I sample of a simple window and a toolbar

does this look understandable to you?

ActivateGui()
               NoS = LoadSkins("C:Skins")
                     ActiveSkin = 4

` StartUp Window...
           ` This little window is the one on the first thread
           ` Called 'Splash Screen.Zip'
        Wn = MakeWindow(0,0,500,250,"Welcome to Gui-OS...",0)
             SetWindowAlpha(Wn,255)
        OK = MakeRoundButton(10,220,"OK",0)
             SetHelpText("Button",OK,"Click HERE to Continue") : AddWindowContents(Wn,"Button",OK)
       BMn = MakeWindowBitmap(Wn)

Line 10,215,Bitmap Width(BMn) - 10,215
  Load Image "C:\Logo.bmp",1,1
 Paste Image 1,3,TitleBarHeight(Wn),1
Delete Image 1
         Ink RGB(0,0,200),0              : Text 130,220,"Gui-OS Visual Designer"
             SkinInk(ActiveSkin,"Title") : Text 130,230,"V1.01..."
             GetWindowBitmap(Wn,BMn)
             CenterWindow(Wn)

` Toolbar
` This will make a toolBar in a Seperare window
` to add a toobar to a window you would use [AddToobarToWindow(TBn,Wn,X,Y)]
  TBn = MakeToolBar(0,0,25,25,"Down",0)
  IN1 = FreeImageNumber() : Load Image "C:ToolBarSelectA.bmp",IN1,1
  IN2 = FreeImageNumber() : Load Image "C:ToolBarSelectB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Selector")
        Load Image "C:ToolBarButtonA.bmp",IN1,1
        Load Image "C:ToolBarButtonB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Button")
        Load Image "C:ToolBarImageA.bmp",IN1,1
        Load Image "C:ToolBarImageB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Image")
        Load Image "C:ToolBarSpriteA.bmp",IN1,1
        Load Image "C:ToolBarSpriteB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Sprite")
        Load Image "C:ToolBarAnimationA.bmp",IN1,1
        Load Image "C:ToolBarAnimationB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Animation")
        Load Image "C:ToolBarMenuA.bmp",IN1,1
        Load Image "C:ToolBarMenuB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Menu")
        Load Image "C:ToolBarProgressA.bmp",IN1,1
        Load Image "C:ToolBarProgressB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Progress")
        Load Image "C:ToolBarTextA.bmp",IN1,1
        Load Image "C:ToolBarTextB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Text")
        Load Image "C:ToolBarTextBoxA.bmp",IN1,1
        Load Image "C:ToolBarTextBoxB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"TextBox")
        Load Image "C:ToolBarToolBarA.bmp",IN1,1
        Load Image "C:ToolBarToolBarB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"ToolBar")
        Load Image "C:ToolBarWindowA.bmp",IN1,1
        Load Image "C:ToolBarWindowB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Window")

TBw = MakeWindowFromToolBar(TBn)
        SetWindowAlpha(TBw,255)

Show Mouse

Do
UpdateAllWindows()
If ItemSelect <> ""
If ItemSelect = "Window" Then
If ItemSelect = "AVI" Then
If ItemSelect = "Button" Then
EndIf
Loop

+ Code Snippet

                     ActivateGui()
               NoS = LoadSkins("C:Skins")
                     ActiveSkin = 4

           ` StartUp Window...
           ` This little window is the one on the first thread
           ` Called 'Splash Screen.Zip'
        Wn = MakeWindow(0,0,500,250,"Welcome to Gui-OS...",0)
             SetWindowAlpha(Wn,255)
        OK = MakeRoundButton(10,220,"OK",0)
             SetHelpText("Button",OK,"Click HERE to Continue") : AddWindowContents(Wn,"Button",OK)
       BMn = MakeWindowBitmap(Wn)

        Line 10,215,Bitmap Width(BMn) - 10,215
  Load Image "C:\Logo.bmp",1,1
 Paste Image 1,3,TitleBarHeight(Wn),1
Delete Image 1
         Ink RGB(0,0,200),0              : Text 130,220,"Gui-OS Visual Designer"
             SkinInk(ActiveSkin,"Title") : Text 130,230,"V1.01..."
             GetWindowBitmap(Wn,BMn)
             CenterWindow(Wn)

` Toolbar
` This will make a toolBar in a Seperare window
` to add a toobar to a window you would use [AddToobarToWindow(TBn,Wn,X,Y)]
  TBn = MakeToolBar(0,0,25,25,"Down",0)
  IN1 = FreeImageNumber() : Load Image "C:ToolBarSelectA.bmp",IN1,1
  IN2 = FreeImageNumber() : Load Image "C:ToolBarSelectB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Selector")
        Load Image "C:ToolBarButtonA.bmp",IN1,1
        Load Image "C:ToolBarButtonB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Button")
        Load Image "C:ToolBarImageA.bmp",IN1,1
        Load Image "C:ToolBarImageB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Image")
        Load Image "C:ToolBarSpriteA.bmp",IN1,1
        Load Image "C:ToolBarSpriteB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Sprite")
        Load Image "C:ToolBarAnimationA.bmp",IN1,1
        Load Image "C:ToolBarAnimationB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Animation")
        Load Image "C:ToolBarMenuA.bmp",IN1,1
        Load Image "C:ToolBarMenuB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Menu")
        Load Image "C:ToolBarProgressA.bmp",IN1,1
        Load Image "C:ToolBarProgressB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Progress")
        Load Image "C:ToolBarTextA.bmp",IN1,1
        Load Image "C:ToolBarTextB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Text")
        Load Image "C:ToolBarTextBoxA.bmp",IN1,1
        Load Image "C:ToolBarTextBoxB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"TextBox")
        Load Image "C:ToolBarToolBarA.bmp",IN1,1
        Load Image "C:ToolBarToolBarB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"ToolBar")
        Load Image "C:ToolBarWindowA.bmp",IN1,1
        Load Image "C:ToolBarWindowB.bmp",IN2,1
        AddToToolBar(TBn,"",IN1,IN2,"Window")

  TBw = MakeWindowFromToolBar(TBn)
        SetWindowAlpha(TBw,255)

Show Mouse

Do
UpdateAllWindows()
If ItemSelect <> ""
If ItemSelect = "Window" Then
If ItemSelect = "AVI" Then
If ItemSelect = "Button" Then
EndIf
Loop

If this looks confusing then let me know why so I can make it easier to use.

Back to top

Profile PM Email Website

Nack

21

Years of Service

User Offline

Joined: 29th Jul 2003

Location:

Posted: 7th Nov 2004 01:08 Edited at: 7th Nov 2004 01:08

Link

The code looks good, but if it is sprite base, i think it can be shorten...mine gui system does exactly what u are talkin about. And here is my code that do what you just talked about(a simple window and a toolbar). I think some have seen my system already too...

+ Code Snippet

rem SETUP CODE ======
setupUI()
SetUIBackgroundColor(RGB(192,192,192))
SetUIMenuColor(RGB(80,140,200),RGB(120,180,240))
SetUIMenuTextColor(RGB(140,200,255))
SetUIMenuGradCol(RGB(80,140,200),RGB(0,64,128),RGB(80,140,200),RGB(0,64,128))
SetUIButtonSelectCol(80,140,200)
SetUICheckBoxCol(192,192,192,0,64,128)
SetUIListCol(RGB(210,210,210),RGB(15,71,113))
SetScrollBar(RGB(80,140,200))
REM ======END SETUP CODE

for n = 1 to 2
   BuildUI(n,"Window "+str$(n),200,50,150,250,0)
   SetUItrans(n,80)
   AdddropMenu(n,1,"File",90,5,5)
   AddDropSubmenu(n,1,1,"1",80,140,200,1,0)
   AddDropSubmenu(n,1,2,"2",80,140,200,0,0)
   AddDropSubmenu(n,1,3,"3",80,140,200,0,0)
   AddDropSubmenu(n,1,4,"4",80,140,200,0,1)     
AddButton(n,1,192,192,192,"",6,3,21,21,5,26,1,"Icons/new.png",4,3,0)
next n

Back to top

Profile PM Website

darkdomy

21

Years of Service

User Offline

Joined: 6th Apr 2003

Location: Italy

Posted: 16th Nov 2004 08:03

Link

HELLO

HELP!! DOWNLOAD THE Gui-OS Visual Designer V1.01

SEND LINK OR PROGRAMS VIA E-MAIL

HELO, ATTEND NEWS

Anxiously awaiting BlueGUI v2

it informs to me when and ended BlueGUI v2

Back to top

Profile PM Email Website

Oneka

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: Hampton,VA

Posted: 16th Nov 2004 08:24

Link

lol mine works like nack's but I think may have a few more features
or less o_o;

MakeMenu(1, 0, 0,SCREEN WIDTH()-1, 18, 1, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 1, "File", 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(1, 1, "New Landscape", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(1, 1, "Open Landscape", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(1, 1, "Save Landscape", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(1, 1, "Exit", 4, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 2, "Modes", MenuButtonLength(1) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(2, 2, "Landscape Builder", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "World Maker", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "Particle Editor", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "Camera Editor", 4, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "Exit Modes", 5, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 3, "Effects", MenuButtonLength(2) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(3, 3, "N/A", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(3, 3, "N/A", 2, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 4, "Options", MenuButtonLength(3) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(4, 4, "Controls", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(4, 4, "Backdrop Color", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(4, 4, "Music", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(4, 4, "Videos", 4, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 5, "Help", MenuButtonLength(4) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(5, 5, "Blank", 1, MenuColorR, MenuColorG, MenuColorb)
MakeSubMenu(5, 5, "Blank", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 4, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 5, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 6, MenuColorR, MenuColorG, MenuColorB)

+ Code Snippet

MakeMenu(1, 0, 0,SCREEN WIDTH()-1, 18, 1, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 1, "File", 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(1, 1, "New Landscape", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(1, 1, "Open Landscape", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(1, 1, "Save Landscape", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(1, 1, "Exit", 4, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 2, "Modes", MenuButtonLength(1) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(2, 2, "Landscape Builder", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "World Maker", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "Particle Editor", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "Camera Editor", 4, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(2, 2, "Exit Modes", 5, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 3, "Effects", MenuButtonLength(2) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(3, 3, "N/A", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(3, 3, "N/A", 2, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 4, "Options", MenuButtonLength(3) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(4, 4, "Controls", 1, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(4, 4, "Backdrop Color", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(4, 4, "Music", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(4, 4, "Videos", 4, MenuColorR, MenuColorG, MenuColorB)
MakeMenuButton(1, 5, "Help", MenuButtonLength(4) + 4, 6, 0, 1, MenuColorR - Shade, MenuColorG - Shade, MenuColorB - Shade)
MakeSubMenu(5, 5, "Blank", 1, MenuColorR, MenuColorG, MenuColorb)
MakeSubMenu(5, 5, "Blank", 2, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 3, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 4, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 5, MenuColorR, MenuColorG, MenuColorB)
MakeSubMenu(5, 5, "Blank", 6, MenuColorR, MenuColorG, MenuColorB)

Making better games everday!
Oh yeah and just so you know its Oh-nek-a not One-ka!

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 16th Nov 2004 08:37

Link

Can someone translate what darkdomy said from "capital panic">"english"? Cheers..

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 16th Nov 2004 22:39 Edited at: 16th Nov 2004 22:51

Link

I'm Working on A Demo at the Moment. You'll be able to do everythink Except 'Save' And 'Export Code', But be Pationt Because Ive just been put on the Night Shift at work which means I have Less Time to Programme...

Ive made it so that its Shorter As Nack Said (Less Lines of Code Needed)

Ive Also Counted up the Commands Including the Type Commands, And it works out at about 200 Commands so Far

Im Not looking forward to Writing Help to Every Command Though

QUESTION:
As its Sprite Based, Would it Work Faster if the Commands where Converted to a Dll?

Back to top

Profile PM Email Website

IanG

20

Years of Service

User Offline

Joined: 25th Sep 2004

Location: Cyberspace

Posted: 17th Nov 2004 01:52

Link

probably

Used to be Phoenix_insane registered in september 2003 despite what the date says to the left <--
PC - amd athlon 2.0ghz, 512mb, GeForce FX 5200 128mb, 200gb, xp pro sp2

Back to top

Profile PM

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 20th Nov 2004 07:59

Link

Hi.

Currently Im doing Return Values As Below

+ Code Snippet

If WindowSelect = 1
If itemSelect$  = "BUTTON"
If ItemSelect   = 1 Then Goto
If ItemSelect   = 2 Then Goto
Endif
If itemSelect$  = "SPRITE"
If ItemSelect   = 1 Then Goto
Endif
EndIf

There Must be an Easier Way to know if an Item was Selected, so does anyone have any ideas?
Im wondering how BlueGUI Would do this

Back to top

Profile PM Email Website

Nack

21

Years of Service

User Offline

Joined: 29th Jul 2003

Location:

Posted: 20th Nov 2004 12:18

Link

It depends on how you programmed it. My GUIsystem detects things automatically. It can filter out which window is on top, 2nd, 3rd...etc. Buttons and stuff.....it really depend on how ur system is structured.

The best way to detect let say buttons, is to check if you mouse contact with the window, then check the buttons then store it in an array for later procedure usage. That way when you need to check if a button is press, all i have to do is: if buttonpressed(1,1) = 1. This works for all menu, buttons, sliders, listbox....etc.

Hope i am not too confusing....hehe, kinda in a rush...but its up to you, good luck on ur system!

Back to top

Profile PM Website

Oneka

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: Hampton,VA

Posted: 20th Nov 2004 16:49

Link

lol you designed it like 90% the same way I did

execpt I made it so that it doesnt show more then one Submenu active at once

but everything is just about that same xD

Making better games everday!
Oh yeah and just so you know its Oh-nek-a not One-ka!

Back to top

Profile PM Email Website

Nack

21

Years of Service

User Offline

Joined: 29th Jul 2003

Location:

Posted: 21st Nov 2004 00:31

Link

90% the same? WHoaaa....thast freakyyy! lol
Maybe we should make like a demo to show the system! LOL, want to see urs too lol

Back to top

Profile PM Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 21st Nov 2004 04:01

Link

Hi, Maybe I Should Try Again.

Im doing it So that the Editor Writes the Code Once you Select [Compile Code], And it checks for the Selected Item Like so

+ Code Snippet

If WindowSelect = 1
If itemSelect$  = "BUTTON"
If ItemSelect   = 1 Then Goto
If ItemSelect   = 2 Then Goto
Endif
If itemSelect$  = "SPRITE"
If ItemSelect   = 1 Then Goto
Endif
EndIf

But the Code Written by the Editor Also Includes This Below

+ Code Snippet

Function Button_MakeWindow_OnOver()
Function Button_MakeWindow_OnClick()

Function Button_MakeButton_OnOver()
Function Button_MakeButton_OnClick()

Function Button_MakeRButton_OnOver()
Function Button_MakeRButton_OnClick()

This means it Writes the Code for you, And you just input the Function

Ie:

+ Code Snippet

Function Button_Exit_OnClick()
         a$ = MsgBox("Y/N","Exit...","Are you Sure you Wish to Exit",0)
      If a$ = "Y" Then End
EndFunction

This is Fine for The Editor, But if you wanted to Play Around With the Commands, Then its Quite Confusing, so im wondering if there would be an easier way

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 21st Nov 2004 04:12

Link

Heres How it Looks After Exported to Code...

+ Code Snippet

System_Sub_Identify: If WindowSelect = 1
                     If itemSelect$ = "BUTTON"
                     If ItemSelect = Button_MakeWindow Then Goto Button_MakeWindow_OnClick()
                     If ItemSelect = Button_MakeButton Then Goto Button_MakeButton_OnClick()
                     If ItemSelect = Button_MakeRBotton Then Goto Button_MakeRButton_OnClick()
                     Endif
                     EndIf
                     Return

Function Button_MakeWindow_OnOver()
EndFunction
Function Button_MakeWindow_OnClick()
EndFunction

Function Button_MakeButton_OnOver()
EndFunction
Function Button_MakeButton_OnClick()
EndFunction

Function Button_MakeRButton_OnOver()
EndFunction
Function Button_MakeRButton_OnClick()
EndFunction

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Work in Progress / Gui-OS Visual Designer V1.01

Attachments