Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

DarkBASIC Discussion / WOO HOO! Finished my menu! Final Fantasy Style!

Author
Message
John H
Retired Moderator
17
Years of Service
User Offline
Joined: 14th Oct 2002
Location: Burlington, VT
Posted: 18th Oct 2002 05:01
Anyone interested? Its just the outline of a menu, like pages that you can go to. You would have to add in the code for things like configuration, and how to add and remove items from your items menu. I didnt know how to do that lol. When I get better I will add these in and post a real finished menu for everyone to stare at (lol jk )
So does anyone want to see my menu? Just post here!

RPGgamer
Final Fantasy, best series ever made.
John H
Retired Moderator
17
Years of Service
User Offline
Joined: 14th Oct 2002
Location: Burlington, VT
Posted: 18th Oct 2002 05:02
OH and PS I wrote this in DarkBASIC- havent got my hands on PRO yet!

RPGgamer

Final Fantasy, best series ever made.
Sly D
17
Years of Service
User Offline
Joined: 15th Oct 2002
Location:
Posted: 18th Oct 2002 21:21
Yeah could you give the code.I'll try to edit it.

John H
Retired Moderator
17
Years of Service
User Offline
Joined: 14th Oct 2002
Location: Burlington, VT
Posted: 18th Oct 2002 22:20
OK Ill put it up in like 10 mins.

Final Fantasy, best series ever made.
John H
Retired Moderator
17
Years of Service
User Offline
Joined: 14th Oct 2002
Location: Burlington, VT
Posted: 19th Oct 2002 00:52
Lol sorry- took an unexpected trip outa the house. Well, here it is. It is quite long, so I hope this doesnt cut it off! Here goes nothin!



Yeee boy now lets hope that worked. If you want to use this in your game PLEASE ASK HERE FIRST! This is ONLY a shell of an outline, so please dont come back compliaining things dont work like configuration. I will add these commands, just not yet! If you dont have the music just delete it, just added for some nice touch!

RPGgamer

Final Fantasy, best series ever made.
John H
Retired Moderator
17
Years of Service
User Offline
Joined: 14th Oct 2002
Location: Burlington, VT
Posted: 19th Oct 2002 06:04
Anyone tryed it? Anyone like it?
RPGgamer

Final Fantasy, best series ever made.
Megaman X
17
Years of Service
User Offline
Joined: 21st Oct 2002
Location: Sweden
Posted: 25th Oct 2002 02:17
yeah, it did work with some line cuts as play sound and company

U had quite lot of work bud.

Here is da code. There're fews musics and sounds that need to be cut off, but this will compile anyway

`IF YOU ARE TO USE THIS IN YOUR GAME- PLEASE ASK FOR
`MY PERMISSION BEFORE YOU INSERT THIS CODE!!!
`PLEASE AND THANK YOU!!!

rem title screen settings
Hide Mouse


rem Title Screen
Perform Checklist For Fonts
Set Text Size 30
Set Text Font "Enviro"
Set Text to Bold
Text 160,80,"HALBROS PRODUCTIONS"
Set Text Size 27
Set Text to normal
Set Text font "times new roman"
Text 270,115,"Presents"
Set text to normal
Set Text Size 85
Set Text Font "Abaddon"
Text 75,155,"Eternal"
Ink 50000000,0
Set text font "Comic Sans MS"
Text 325,155,"MENU!"
Ink 9999999999999999999999999999999,0
Set text size 15
set text to normal
Set text font "times new roman"
Text 190,255,"This menu was made for the game Eternal Destiny"
Set Text Size 15
set text to normal
Set Text Font "Times New Roman"
Text 280,275,"Version 1.04"
Text 250,320,"Press any key to continue"

Rem wait for key
Suspend for key

cls

rem play music


Rem main menu
main:
rem sync and loop
sync on
do

rem background for menu
Ink 400000,0
BOX 0,1,639,479

rem make menu raw
Ink 5000000,0
Line 639,0,0,0
Line 0,1,639,1
Line 0,2,639,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,639,479
Line 0,478,639,478
Line 0,477,639,477
Line 639,479,639,0
Line 638,479,638,0
Line 637,479,637,0
Line 125,325,125,0
Line 124,325,124,0
Line 123,325,123,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 0,108.3,450,108.3
Line 0,109.3,450,109.3
Line 0,110.3,450,110.3
Line 0,216.6,450,216.6
Line 0,217.6,450,217.6
Line 0,218.6,450,218.6
Line 0,324.9,639,324.9
Line 0,325.9,639,325.9
Line 0,326.9,639,326.9
Line 639,25,450,25
Line 639,26,450,26
LIne 639,27,450,27

rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Ink 500000000,0
Box 518,5,567,22
Ink 999999999999999999999999999999,0
Text 520,3,"Menu"
Text 521,43,"Items"
Text 500,83,"Equipment"
Text 519,123,"Magic"
Text 524,163,"Stats"
Text 485,203,"Configuration"
Text 525,243,"Save"
Text 527,283,"Exit"

rem text for characters
Ink 999999999999999999999999999999,0
Set text size 20
Text 130,5,"Name: ------ Class: ------"
Text 130,30,"Level --"
Text 130,55,"Health: ----/----"
Text 130,80,"Magic Points: ---/---"
Text 130,113,"Name: ------- Class: ------"
Text 130,138,"Level --"
Text 130,163,"Health: ----/----"
Text 130,188,"Magic: ---/---"
Text 130,221,"Name: ---- Class: ------"
Text 130,246,"Level -"
Text 130,271,"Health: ----/----"
Text 130,296,"Magic: ---/---"

rem instructions on menu usage
Ink 999999999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,410,"S= Save"
Text 380,440,"B= Main Menu"
Text 130,440,"Q= Exit"


rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main

rem sync and loop
sync
loop

`**************************
`* Gosub Items Screen *
`**************************


Items:
sync on
do

rem background for menu
Ink 400000,0
BOX 0,1,639,479

rem make menu raw
Ink 5000000,0
Line 639,0,0,0
Line 0,1,639,1
Line 0,2,639,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,639,479
Line 0,478,639,478
Line 0,477,639,477
Line 639,479,639,0
Line 638,479,638,0
Line 637,479,637,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 639,25,0,25
Line 639,26,0,26
LIne 639,27,0,27
Line 0,326.9,639,326.9
Line 0,325.9,639,325.9
Line 0,324.9,639,324.9
rem control of menu
Ink 99999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,410,"S= Save"
Text 380,440,"B= Main Menu"
Text 130,440,"Q= Exit"
rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Text 520,3,"Menu"
Ink 500000000,0
Box 519,45,566,62
Ink 999999999999999999999999999999,0
Text 521,43,"Items"
Text 500,83,"Equipment"
Text 519,123,"Magic"
Text 524,163,"Stats"
Text 485,203,"Configuration"
Text 525,243,"Save"
Text 527,283,"Exit"
rem text for items in menu
Ink 999999999999999999999999999999,0
Set text size 23
Text 134,3,"Current Item Inventory"
Set text size 18
Text 5,30,"Items? What items? I haven't even made the game yet!"
rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main
sync
loop
return

`******************************
`* Gosub Equipment Screen *
`******************************

Equipment:
sync on
do
rem background for menu
Ink 400000,0
BOX 0,1,639,479

rem make menu raw
Ink 5000000,0
Line 639,0,0,0
Line 0,1,639,1
Line 0,2,639,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,639,479
Line 0,478,639,478
Line 0,477,639,477
Line 639,479,639,0
Line 638,479,638,0
Line 637,479,637,0
Line 125,325,125,0
Line 124,325,124,0
Line 123,325,123,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 0,124.3,450,124.3
Line 0,125.3,450,125.3
Line 0,126.3,450,126.3
Line 0,224.6,450,224.6
Line 0,225.6,450,225.6
Line 0,226.6,450,226.6
Line 0,324.9,639,324.9
Line 0,325.9,639,325.9
Line 0,326.9,639,326.9
Line 639,25,0,25
Line 639,26,0,26
LIne 639,27,0,27
rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Text 520,3,"Menu"
Text 521,43,"Items"
Ink 500000000,0
Box 498,85,592,105
Ink 999999999999999999999999999999,0
Text 500,83,"Equipment"
Text 519,123,"Magic"
Text 524,163,"Stats"
Text 485,203,"Configuration"
Text 525,243,"Save"
Text 527,283,"Exit"

rem instructions on menu usage
Ink 999999999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,410,"S= Save"
Text 380,440,"B= Main Menu"
Text 130,440,"Q= Exit"

rem text for characters
Ink 999999999999999999999999999999,0
Set text size 20
Text 130,30,"Name: ------ Relic: None Equipt"
Text 130,55,"Weapon: None Equipt"
Text 130,80,"Helmet: None Equipt"
Text 130,105,"Armor: None Equipt"
Text 130,128,"Name: ------ Relic: None Equipt"
Text 130,153,"Weapon: None Equipt"
Text 130,178,"Helmet: None Equipt"
Text 130,203,"Armor: None Equipt"
Text 130,226,"Name: ------ Relic: None Equipt"
Text 130,251,"Weapon: None Equipt"
Text 130,276,"Helmet: None Equipt"
Text 130,301,"Armor: None Equipt"
Text 220,3,"Equipment Menu"
Text 28,4,"Character"

rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main
sync
loop

return

`**********************
`* Magic Menu *
`**********************
Magic:
sync on
do
rem background for menu
Ink 400000,0
BOX 0,1,639,479

rem make menu raw
Ink 5000000,0
Line 639,0,0,0
Line 0,1,639,1
Line 0,2,639,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,639,479
Line 0,478,639,478
Line 0,477,639,477
Line 639,479,639,0
Line 638,479,638,0
Line 637,479,637,0
Line 125,325,125,0
Line 124,325,124,0
Line 123,325,123,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 0,108.3,450,108.3
Line 0,109.3,450,109.3
Line 0,110.3,450,110.3
Line 0,216.6,450,216.6
Line 0,217.6,450,217.6
Line 0,218.6,450,218.6
Line 0,324.9,639,324.9
Line 0,325.9,639,325.9
Line 0,326.9,639,326.9
Line 639,25,0,25
Line 639,26,0,26
LIne 639,27,0,27

rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Text 520,3,"Menu"
Text 521,43,"Items"
Text 500,83,"Equipment"
Ink 500000000,0
Box 517,125,572,146
Ink 999999999999999999999999999999,0
Text 519,123,"Magic"
Text 524,163,"Stats"
Text 485,203,"Configuration"
Text 525,243,"Save"
Text 527,283,"Exit"

rem instructions on menu usage
Ink 999999999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,410,"S= Save"
Text 380,440,"B= Main Menu"
Text 130,440,"Q= Exit"

rem text for characters
Ink 999999999999999999999999999999,0
Set text size 18
Text 130,30,"Name: ------"
Text 130,55,"The characters magic would go here"
Text 130,128,"Name: ------"
Text 130,153,"The characters magic would go here"
Text 130,226,"Name: ------"
Text 130,251,"The characters magic would go here"
Set text size 23
Text 220,3,"Magic Menu"
Text 26,4,"Character"

rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main
sync
loop

return

`********************************
`* Quit (should be easy!) *
`********************************
Quit:
cls
Stop music 2
Load sound "clapping.wav",3
Play sound 3
Ink 50000,0
Set text font "Arial"
Set text size 25
Text 170,100,"Now wasn't that menu just pro?"
Ink 9999999999999999999999999,0
Set text font "Times New Roman"
Set text size 18
Text 173,177,"Thank you for viewing the Eternal Destiny Menu"
end

return

`*********************************
`* Stats of a Player *
`*********************************
Stats:
sync on
do
rem background for menu
Ink 400000,0
BOX 0,1,639,479

rem make menu raw
Ink 5000000,0
Line 639,0,0,0
Line 0,1,639,1
Line 0,2,639,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,639,479
Line 0,478,639,478
Line 0,477,639,477
Line 639,479,639,0
Line 638,479,638,0
Line 637,479,637,0
Line 125,325,125,0
Line 124,325,124,0
Line 123,325,123,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 0,108.3,450,108.3
Line 0,109.3,450,109.3
Line 0,110.3,450,110.3
Line 0,216.6,450,216.6
Line 0,217.6,450,217.6
Line 0,218.6,450,218.6
Line 0,324.9,639,324.9
Line 0,325.9,639,325.9
Line 0,326.9,639,326.9
Line 639,25,0,25
Line 639,26,0,26
LIne 639,27,0,27

rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Text 520,3,"Menu"
Text 521,43,"Items"
Text 500,83,"Equipment"
Text 519,123,"Magic"
Ink 500000000,0
Box 522,165,565,182
Ink 999999999999999999999999999999,0
Text 524,163,"Stats"
Text 485,203,"Configuration"
Text 525,243,"Save"
Text 527,283,"Exit"

rem instructions on menu usage
Ink 999999999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,410,"S= Save"
Text 380,440,"B= Main Menu"
Text 130,440,"Q= Exit"

rem text for characters
Ink 999999999999999999999999999999,0
Set text size 18
Text 130,30,"Name: ------"
Text 130,55,"The characters statistics would go here"
Text 130,75,"(Strength, EXP, etc.)"
Text 130,128,"Name: ------"
Text 130,153,"The characters statistics would go here"
Text 130,173,"(Strength, EXP, etc.)"
Text 130,226,"Name: ------"
Text 130,251,"The characters statistics would go here"
Text 130,271,"(Strength, EXP, etc.)"
Set text size 23
Text 220,3,"Statistics Menu"
Text 26,4,"Character"

rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main
sync
loop

return

`***********************
`* Configuration *
`***********************
Configuration:
sync on
do
rem background for menu
Ink 400000,0
BOX 0,1,639,479

rem make menu raw
Ink 5000000,0
Line 639,0,0,0
Line 0,1,639,1
Line 0,2,639,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,639,479
Line 0,478,639,478
Line 0,477,639,477
Line 639,479,639,0
Line 638,479,638,0
Line 637,479,637,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 0,324.9,639,324.9
Line 0,325.9,639,325.9
Line 0,326.9,639,326.9
Line 639,25,0,25
Line 639,26,0,26
LIne 639,27,0,27
rem control of menu
Ink 99999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,440,"B= Main Menu"
Text 380,410,"S= Save"
Text 130,440,"Q= Exit"
rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Text 520,3,"Menu"
Text 521,43,"Items"
Text 500,83,"Equipment"
Text 519,123,"Magic"
Text 524,163,"Stats"
Ink 500000000,0
Box 483,205,603,226
Ink 999999999999999999999999999999,0
Text 485,203,"Configuration"
Text 525,243,"Save"
Text 527,283,"Exit"
rem text for items in menu
Ink 999999999999999999999999999999,0
Set text size 23
Text 134,3,"Controls Configuration"
Set text size 18
Text 5,30,"This is where you would configure your game controls."
Text 5,50,"Oh man, I'm not looking forward to programming that!"

rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main
sync
loop

return

`*****************
`* Save Game *
`*****************
Save:
sync on
do
rem background for menu
Ink 400000,0
BOX 0,1,620,479

rem make menu raw
Ink 5000000,0
Line 620,0,0,0
Line 0,1,620,1
Line 0,2,620,2
Line 0,479,0,0
Line 1,479,1,0
Line 2,479,2,0
Line 0,479,620,479
Line 0,478,620,478
Line 0,477,620,477
Line 125,325,125,0
Line 124,325,124,0
Line 123,325,123,0
Line 450,325,450,0
Line 449,325,449,0
Line 448,325,448,0
Line 0,124.3,450,124.3
Line 0,125.3,450,125.3
Line 0,126.3,450,126.3
Line 0,224.6,450,224.6
Line 0,225.6,450,225.6
Line 0,226.6,450,226.6
Line 0,324.9,620,324.9
Line 0,325.9,620,325.9
Line 0,326.9,620,326.9
Line 620,25,0,25
Line 620,26,0,26
LIne 620,27,0,27

rem text for menu
Ink 999999999999999999999999999999,0
Perform checklist for fonts
Set text size 23
Set text font "Abaddon"
Text 520,3,"Menu"
Text 521,43,"Items"
Text 500,83,"Equipment"
Text 519,123,"Magic"
Text 524,163,"Stats"
Text 485,203,"Configuration"
Ink 500000000,0
Box 523,245,565,262
Ink 999999999999999999999999999999,0
Text 525,243,"Save"
Text 527,283,"Exit"

rem instructions on menu usage
Ink 999999999999999999999999999999,0
Set text size 20
Text 240,330,"Menu Controls"
Text 130,350,"I= Items"
Text 130,380,"E= Equipment"
Text 130,410,"G= Magic"
Text 380,350,"T= Stats"
Text 380,380,"C= Configuration"
Text 380,440,"B= Main Menu"
Text 380,410,"S= Save"
Text 130,440,"Q= Exit"

rem text for characters
Text 130,55,"No saved game file found"
Text 130,153,"No saved game file found"
Text 130,251,"No saved game file found"
Set text size 23
Text 220,3,"Saved Games"
Text 26,4,"Save slot"
Set text size 80
Text 45,36,"1"
Text 47,138,"2"
Text 47,236,"3"


rem control input for menu
if Inkey$()="i" then gosub Items
if Inkey$()="e" then gosub Equipment
if Inkey$()="g" then gosub Magic
if Inkey$()="q" then gosub quit
if Inkey$()="t" then gosub Stats
if Inkey$()="c" then gosub Configuration
if Inkey$()="s" then gosub Save
if Inkey$()="b" then gosub main
sync
loop

return

`Well, thats the end.... for now!
Megaman X
17
Years of Service
User Offline
Joined: 21st Oct 2002
Location: Sweden
Posted: 25th Oct 2002 02:18
sorry it was such long shit, I tried to make it as code snippet but did not work...
Ryeguy457
17
Years of Service
User Offline
Joined: 5th Oct 2002
Location:
Posted: 26th Oct 2002 09:07
Dude!!..dang! MY rpg was going to be called Eternal Destiny, too! Hehe..what are the chances? Oh well I thought the name was dumb anyways so I changed it!

Ryeguy457
17
Years of Service
User Offline
Joined: 5th Oct 2002
Location:
Posted: 26th Oct 2002 09:09
RPGGamer, are you making your game in 3d or 2d?

John H
Retired Moderator
17
Years of Service
User Offline
Joined: 14th Oct 2002
Location: Burlington, VT
Posted: 29th Oct 2002 00:49
Oh I thought no one was looking at this post anymore! I am making my game in 3D, you can go to

http://www.halbrosproductions.netfirms.com

for screenshots and more information. I will be updating the screen shots later tonight or tommmorow. I have some new stuff for my menu (basically just title screen) But I am working on getting it to go back to my game once you activate it while in the game.
Later
RPGgamer

Final Fantasy, best series ever made.

Login to post a reply

Server time is: 2020-08-13 18:53:26
Your offset time is: 2020-08-13 18:53:26