text RPG layout - GameCreators Forum

Author

Message

dan958

16

Years of Service

User Offline

Joined: 7th Feb 2008

Location:

Posted: 31st Mar 2008 20:43

Link

need more help with my text based rpg,

im trying to get the layout of the page, with a inventory box, text box, box to show the image of where you are in the map and battle scenes (pic included of how i want it)
but how would i do this?
would i just use squares or what?

Attachments

Login to view attachments

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 31st Mar 2008 23:02

Link

looks like you need to read up on bitmap drawing and get image and texturing to plains.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

dan958

16

Years of Service

User Offline

Joined: 7th Feb 2008

Location:

Posted: 31st Mar 2008 23:24 Edited at: 31st Mar 2008 23:25

Link

can i find any of that on this site, shall i just put in the search bar bitmap drawing?

*edit* i search bitmap drawing on this site, only to find 1 useless post.

Back to top

Profile PM

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 31st Mar 2008 23:33

Link

From the looks of it what you want to search for is "GUI".

Making a good user interface can take a log of commands, but what you are after is not to terribly difficult. Read the posts about GUIs and that should get you going in the right direction.

Back to top

Profile PM Email Website

dan958

16

Years of Service

User Offline

Joined: 7th Feb 2008

Location:

Posted: 31st Mar 2008 23:34

Link

will i have to buy a new program for doing this? becuase i have seen ( i think) people talking about dark GUI or something

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 31st Mar 2008 23:40

Link

There's a thread right at the top of this forum full of tutorials - the best structured one in there is TDK's list, and once you get to tutorial 16 (don't worry, they're all small tutorials), you'll be doing this menu stuff in your sleep.

[b]Utility plugins collection (updated 24/03/08) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 31st Mar 2008 23:47

Link

You don't have to.

One example is I've made a GUI by having an artist create an image for me that has black set as the transparency color of the image. Then I load that image and during each loop of my program I paste the image on screen in the right position.

The areas like the speed, shield, and hull meters and the display screen on the other side will have their own images pasted there to display their data in the game.

The layout that you want for your interface really doesn't look that difficult, and you could create it easily enough with a decent paint program.

Once you have that you just,

LOAD IMAGE "Media\GUI1.png", 1

and in your main loop just,

PASTE IMAGE 1, 0, 0, 1

It's really not all that hard to create the user interface. The hard part is being artistic enough to get the image you are using to look right.

Back to top

Profile PM Email Website

dan958

16

Years of Service

User Offline

Joined: 7th Feb 2008

Location:

Posted: 31st Mar 2008 23:51

Link

@IanM i will definitely read some of them tuts to get a better understanding.

@KISTech, i was thinking about doing that in fireworks or photoshop, but i can never seem to position my text properly, it will take me ages just to find where it needs to go and i will be doing random guesses becuase i have no idea on positioning.

anyway, thanks for all your help

Back to top

Profile PM

jeffhuys

18

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 7th Apr 2008 19:21

Link

@dan958:
Well, you can make a code that will check for key presses, like the arrowkeys, and when you press the down key the text will move down. Then you print the X and Y values on the screen, remember them and go on with the next text

Jeff

You're the

'th to view this signature!

Back to top

Profile PM Email

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 7th Apr 2008 19:34

Link

..and don't forget to make it all relative to the user's current screen resolution..

Back to top

Profile PM Email Website

TechLord

21

Years of Service

User Offline

Joined: 19th Dec 2002

Location: TheGameDevStore.com

Posted: 8th Apr 2008 02:12 Edited at: 8th Apr 2008 02:23

Link

Techlord's 30 min GUI

`Techlord's 30 min GUI

Global GadgetImage

Type Gadget
    Image
    X
    Y
    Width
    Height
    Value$ As String
    Event
    State
    Funct
EndType

Dim Gadget() As Gadget

Function GadgetStart()
    Add To Queue Gadget() `intialize queue at index 0
    `Load in all Gadgets here
EndFunction 0

Function GadgetStop()
    `free up all images here
    Empty Array Gadget()
EndFunction 0

Function GadgetNew(GadgetImageFilename$,GadgetX,GadgetY,GadgetFunct)
    If File Exist(GadgetImageFilename$)
        Load Image GadgetImageFilename$,Gadget().Image
    Else
        ExitFunction -1 `error
    EndIf
    Inc GadgetImage
    Add To Queue Gadget()
    Gadget().Image = GadgetImage
    Gadget().X = GadgetX
    Gadget().Y = GadgetX
    Gadget().Width = Image Width(Gadget().Image)
    Gadget().Height = Image Height(Gadget().Image)
    Gadget().Funct = GadgetFunct
    Gadget().State = 1 `Active
    GadgetImageNumber = Gadget().Image
EndFunction GadgetImageNumber

Function GadgetUpdate()

PointerX = MouseX()
    PointerY = MouseY()
    PointerClick = MouseClick()

For ID = 1 to Array Count(Gadget())

Select Gadget(ID).state
            Case 1
                If PointerX > Gadget(ID).x And PointerX < Gadget(ID).x + Gadget(ID).width And PointerY > Gadget(ID).y And PointerY < Gadget(ID).y + Gadget(ID).height
                    GadgetPointerCollision = 1
                Else
                    GadgetPointerCollision = 0
                EndIf

Select Gadget(ID).event
                    Case 0 `Idle
                        If GadgetPointerCollision Then Gadget(ID).Event = 1
                    EndCase
                    Case 1 `hover
                        If GadgetPointeCollision
                            Select PointerClick
                                Case 1`LMB
                                    Gadget(ID).Event = 2
                                EndCase
                            EndSelect
                        Else
                            Gadget(ID).Event = 0
                        EndIf
                    EndCase
                    Case 2 `click
                        GadgetFunct(ID)
                        If GadgetPointeCollision
                            Gadget(ID).Event = 1
                        Else
                            Gadget(ID).Event = 0
                        EndIf
                    EndCase
                EndSelect

`Display Gadget
                Paste Image Gadget(ID).Image, Gadget(ID).X,Gadget(ID).Y,1

EndCase
        EndSelect
    Next 0
EndFunction 0

Function GadgetFunct(ID)
    Select Gadget(ID).Funct
        Case 1
            `Do Funct 1
        EndCase
        Case 2
            `Do Funct 2
        EndCase
    EndSelect
EndFunction 0

+ Code Snippet

`Techlord's 30 min GUI

Global GadgetImage

Type Gadget
    Image
    X
    Y
    Width
    Height
    Value$ As String
    Event
    State
    Funct
EndType

Dim Gadget() As Gadget

Function GadgetStart()
    Add To Queue Gadget() `intialize queue at index 0
    `Load in all Gadgets here
EndFunction 0

Function GadgetStop()
    `free up all images here
    Empty Array Gadget()
EndFunction 0

Function GadgetNew(GadgetImageFilename$,GadgetX,GadgetY,GadgetFunct)
    If File Exist(GadgetImageFilename$)
        Load Image GadgetImageFilename$,Gadget().Image
    Else
        ExitFunction -1 `error
    EndIf
    Inc GadgetImage
    Add To Queue Gadget()
    Gadget().Image = GadgetImage
    Gadget().X = GadgetX
    Gadget().Y = GadgetX
    Gadget().Width = Image Width(Gadget().Image)
    Gadget().Height = Image Height(Gadget().Image)
    Gadget().Funct = GadgetFunct
    Gadget().State = 1 `Active
    GadgetImageNumber = Gadget().Image
EndFunction GadgetImageNumber

Function GadgetUpdate()

    PointerX = MouseX()
    PointerY = MouseY()
    PointerClick = MouseClick()

    For ID = 1 to Array Count(Gadget())

        Select Gadget(ID).state
            Case 1
                If PointerX > Gadget(ID).x And PointerX < Gadget(ID).x + Gadget(ID).width And PointerY > Gadget(ID).y And PointerY < Gadget(ID).y + Gadget(ID).height
                    GadgetPointerCollision = 1
                Else
                    GadgetPointerCollision = 0
                EndIf

                Select Gadget(ID).event
                    Case 0 `Idle
                        If GadgetPointerCollision Then Gadget(ID).Event = 1
                    EndCase
                    Case 1 `hover
                        If GadgetPointeCollision
                            Select PointerClick
                                Case 1`LMB
                                    Gadget(ID).Event = 2
                                EndCase
                            EndSelect
                        Else
                            Gadget(ID).Event = 0
                        EndIf
                    EndCase
                    Case 2 `click
                        GadgetFunct(ID)
                        If GadgetPointeCollision
                            Gadget(ID).Event = 1
                        Else
                            Gadget(ID).Event = 0
                        EndIf
                    EndCase
                EndSelect

                `Display Gadget
                Paste Image Gadget(ID).Image, Gadget(ID).X,Gadget(ID).Y,1

            EndCase
        EndSelect
    Next 0
EndFunction 0

Function GadgetFunct(ID)
    Select Gadget(ID).Funct
        Case 1
            `Do Funct 1
        EndCase
        Case 2
            `Do Funct 2
        EndCase
    EndSelect
EndFunction 0

DarkMORG: A Persistent Online Multiplayer 3D RPG FPS Game System

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / text RPG layout

Attachments