TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 26th Oct 2004 16:30

Modified: 1st Jan 1970 01:00

Author: DaedalusX

Summary

A menu that you see in games like final fantasy

Full Description

same as short

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`change background from white -> orange text orange -> white

`modify to fit 1024,768,16 res

menu2:

sync on

sync rate 300

set display mode 640,480,16

cls

`Gil

G=250

`items

P$ = "Potion"

PD$ = "Pheonix Down"

PV = 100

PQ=3

PDQ =2

`weapons

knife$ = "Small Knife"

knifeQ = 1

knifest = 10

`armour

bronzepl$ = "Bronze Plate"

bronzeplQ=1

bronzeplde=10

`accesory

acc$ = "None Equipped"

HP=50

`magic

f$ = "Fire1"

Fdesc$ = "Fire elemental attack"

fmp$ = "5"

c$ = "Cure1"

Cdesc$ = "Cures small amounts of HP"

cmp$ = "10"

`stored weapons and armour

bdagger$ = "Bronze Dagger"

bdq = 1

bdst = 15

`current equiped

ceq$= knife$

inv$ = bdagger$

`------------------------------------------------

`moved this code here, where you had it HP would be reset to 50

`everytime you came back to the label start:

maxhp=100

magic=20

maxmp=20

Lv=1

str=10

mde=10

def=10

`------------------------------------------------

start:

cls

mc$ = "Daedalus"

`clear screen

`cls 0

`-----

`stats

`-----

`make decorations

ink rgb(255,255,255),0

box 0,0,479,103

box 480,0,639,475

box 0,104,479,475

ink rgb(0,0,0),0

box 2,2,480,101

box 482,2,637,473

box 0,200,450,500

box 2,104,479,473

`print stats

ink RGB(255,128,64),1

set cursor 300,10

print "MENU"

set cursor 10,10

print "";get date$()

set cursor 10,40

print "";get time$()

set cursor 20,120

print mc$

set cursor 100,150

print "[Insert Image]"

set cursor 20,300

print "HP:"

set cursor 50,300

print hp

set cursor 80,300

print "/"

set cursor 90,300

print maxhp

set cursor 150,300

Print "MP: "

set cursor 180,300

print magic

set cursor 200,300

print "/"

set cursor 210,300

print maxmp

set Cursor 50,400

Print "Gil:"

set cursor 150,400

print G

`button controls

if makebuttonstatus(550,100,"Status")>0 then buttonpressed=2

if mouseclick()=1 and buttonpressed = 2 then goto status

if makebuttonitem(550,130,"Items")>0 then buttonpressed=1

if mouseclick()=1 and buttonpressed=1 then goto item

if makebuttonmagic(550,160,"Magic")>0 then buttonpressed=3

if mouseclick()=1 and buttonpressed=3 then goto magic

if makebuttonequip(550,190,"Equip")>0 then buttonpressed=4

if mouseclick()=1 and buttonpressed=4 then goto equip

if makebuttonabil(550,220,"Ability")>0 then buttonpressed=5

if makebuttonsave(550,300,"Save")>0 then buttonpressed=11

if makebuttonexit(550,400,"Exit Menu")>0 then buttonpressed=100

if mouseclick()=1 and buttonpressed=100 then end

sync

loop

Item:

cls

`Background

ink rgb(0,0,0),0

box 0,0,639,479

`Do left menu graphics

ink rgb(255,255,255),0

box 0,0,242,477

ink RGB(0,0,0),1

box 2,2,240,475

ink RGB(255,128,64),1

text 40,35,"MENUS"

line 40,55,180,55

`Do right menu graphics

ink rgb(255,255,255),0

box 242,0,633,477

ink RGB(0,0,0),1

box 243,2,631,475

ink RGB(255,128,64),1

text 270,35,"ITEM"

text 500,35,"QUANTITY"

line 270,55,600,55

line 480,35,480,440

ink RGB(255,128,64),1

set cursor 40,70

if makebuttonheal(60,70,"Healing")>0 then buttonpressed=9

if mouseclick()=1 and buttonpressed=9 then goto healing

if makebuttonwea(67,90,"Weapons")>0 then buttonpressed=10

if mouseclick()=1 and buttonpressed=10 then goto weapon

if makebuttonback(70,450,"Back")>0 then buttonpressed=12

if mouseclick()=1 and buttonpressed=12 then goto start

sync

cls

loop

healing:

if makebuttonbackone(70,425,"Back One")>0 then buttonpressed=14

if mouseclick()=1 and buttonpressed = 14 then goto item

ink RGB(255,128,64),1

set cursor 270,70

print P$

set cursor 525,70

print PQ

set cursor 270,90

print PD$

set cursor 525,90

print PDQ

myx=mousex() : myy=mousey()

if myx>270 and myx<310

if myy>83 and myy<100

if mouseclick()=1 and HP = 0

inc HP,maxhp/4

dec PDQ

endif

myx=mousex() : myy=mousey()

if myx>270 and myx<310

if myy>67 and myy<80

if mouseclick()=1 and hp<maxhp

ink rgb(255,255,255),0

box 200,350,380,420

ink rgb(0,0,0),0

box 205,355,375,415

if HP>0

inc HP,PV

if HP>maxhp then hp=maxhp

dec PQ,1

`redraw the menu to dec PQ

cls

`Do left menu graphics

ink rgb(255,255,255),0

box 0,0,242,477

ink rgb(0,0,0),0

box 2,2,240,475

ink RGB(255,128,64),1

text 40,35,"MENUS"

line 40,55,180,55

`Do right menu graphics

ink rgb(255,255,255),0

box 242,0,633,477

ink rgb(0,0,0),0

box 243,2,631,475

ink RGB(255,128,64),1

text 270,35,"ITEM"

text 500,35,"QUANTITY"

line 270,55,600,55

line 480,35,480,440

`small box

ink rgb(255,255,255),0

box 200,350,380,420

ink rgb(0,0,0),0

box 202,352,378,418

ink RGB(255,128,64),1

set cursor 525,70

print pq

set cursor 285,370

print hp

set cursor 320,370

print maxhp

`this will stop you drinking multiple healing potions.

`not the best way to do it, but it will get you going.

`----------------------------------

repeat : until mouseclick()=0

`----------------------------------

goto healing

endif

if makebuttonback(70,450,"Back")>0 then buttonpressed=12

if mouseclick()=1 and buttonpressed=12 then goto item

sync

loop

status:

cls

ink rgb(255,255,255),0

box 0,0,242,477

ink rgb(0,0,0),0

box 2,2,240,475

box 239,0,633,477

ink rgb(255,255,255),0

box 240,0,636,477

ink rgb(0,0,0),0

box 244,2,635,475

ink RGB(255,128,64),1

set cursor 270,30

print mc$

set cursor 400,50

print "(image)"

set cursor 270,200

Print "HP"

set cursor 305,200

print HP

set cursor 335,200

print "/"

set cursor 345,200

print maxhp

set cursor 270,225

Print "MP"

set cursor 305,225

print magic

set cursor 335,225

print "/"

set cursor 345,225

print maxmp

set cursor 270,250

print "Strength"

set cursor 340,250

print str

set cursor 270,275

print "Defence"

set cursor 340,275

print def

set cursor 270,300

print "Magic"

set cursor 340,300

print magic

set cursor 270,325

print "Magic Def"

set cursor 340,325

print mde

set cursor 270,370

print "Current Weapon:  "

set cursor 400,370

print ceq$

set cursor 270,390

print "Current Armour:  "

set cursor 400,390

print bronzepl$

set cursor 270,410

print "Accesory:  "

set cursor 400,410

print acc$

ink RGB(255,128,64),1

set cursor 20,20

print "Status"

set cursor 20,60

Print mc$

set cursor 20,80

print "level"

set cursor 60,80

print lv

set cursor 20,100

Print "HP"

set cursor 50,100

print hp

set cursor 75,100

print "/"

set cursor 79,100

print maxhp

set cursor 20,120

print "MP"

set cursor 50,120

print magic

set cursor 70,120

print "/"

set cursor 75,120

print maxmp

if makebuttonback(70,450,"Back")>0 then buttonpressed=12

if mouseclick()=1 and buttonpressed=12 then goto start

sync

loop

Magic:

cls

ink rgb(255,255,255),0

box 0,0,200,479

box 201,0,636,479

ink rgb(0,0,0),0

box 2,2,198,477

box 201,2,634,477

set cursor 70,20

ink RGB(255,128,64),1

line 40,55,180,55

print "Magic"

if scancode()=18 then goto start

if makebuttonele(90,80,"Elemental")>0 then buttonpressed=6

if mouseclick()=1 and buttonpressed=6 then goto elementalmagicinfo

if makebuttoncura(85,100,"Curative")>0 then buttonpressed=8

if mouseclick()=1 and buttonpressed=8 then goto curativeinfo

if makebuttonback(70,450,"Back")>0 then buttonpressed=12

if mouseclick()=1 and buttonpressed=12 then goto start

sync

loop

elementalmagicinfo:

ink rgb(255,255,255),0

box 0,0,200,479

box 201,0,636,479

ink rgb(0,0,0),0

box 2,2,198,477

box 201,2,634,477

ink RGB(255,128,64),1

line 40,55,180,55

line 400,55,230,55

set cursor 60,20

print "Elemental Magic"

set cursor 62,70

print "Elemental"

set cursor 240,30

print "Magic"

if makebuttonbackone(70,430,"Back one")>0 then buttonpressed=16

if mouseclick()=1 and buttonpressed = 16 then goto magic

if makebuttonback(70,450,"Back")>0 then buttonpressed=13

if mouseclick()=1 and buttonpressed = 13 then goto magic

if makebuttonfire1(260,70,"Fire1")>0 then buttonpressed=7

if mouseclick()=1 and buttonpressed=7

`insert fire data

ink rgb(255,255,255),0

box 300,300,500,350

ink rgb(0,0,0),0

box 302,302,498,348

ink RGB(255,128,64),1

set cursor 310,305

Print fdesc$

set cursor 310,325

print "MP needed:"

set cursor 420,325

print fmp$

endif

sync

loop

curativeinfo:

ink rgb(255,255,255),0

box 0,0,200,479

box 201,0,636,479

ink rgb(0,0,0),0

box 2,2,198,477

box 201,2,634,477

ink RGB(255,128,64),1

line 40,55,180,55

line 400,55,230,55

ink RGB(255,128,64),1

set cursor 62,70

print "Curative"

set cursor 60,20

print "Curative Magic"

set cursor 240,30

print "Magic"

if makebuttonbackone(70,430,"Back one")>0 then buttonpressed=13

if mouseclick()=1 and buttonpressed = 13 then goto magic

if makebuttonback(70,450,"Back")>0 then buttonpressed=17

if mouseclick()=1 and buttonpressed = 17 then goto start

if makebuttoncure1(260,70,"Cure1")>0 then buttonpressed=7

if mouseclick()=1 and buttonpressed=7

ink rgb(255,255,255),0

box 300,300,500,350

ink rgb(0,0,0),0

box 302,302,498,348

ink RGB(255,128,64),1

set cursor 310,305

Print cdesc$

set cursor 310,325

print "MP needed:"

set cursor 420,325

print cmp$

endif

sync

loop

weapon:

ink RGB(255,128,64),1

set cursor 525,70

print knifeQ

if makebuttonkn(305,70,knife$)>0 then buttonpressed=11

if mouseclick()=1 and buttonpressed = 11

ink rgb(255,255,255),0

box 100,200,300,400

ink rgb(0,0,0),0

box 102,202,298,398

ink RGB(255,128,64),1

set cursor 110,210

Print "Weapon Strength: "

set cursor 250,210

print knifest

set cursor 110,230

print "Strength:  "

ost = str + knifest

set cursor 250,230

print ost

endif

if makebuttonbackone(70,430,"Back one")>0 then buttonpressed=15

if mouseclick()=1 and buttonpressed = 15 then goto item

if makebuttonback(70,450,"Back")>0 then buttonpressed=16

if mouseclick()=1 and buttonpressed = 16 then goto start

sync

loop

equip:

cls

ink rgb(255,255,255),0

box 0,0,242,477

ink rgb(0,0,0),0

box 2,2,240,475

box 239,0,633,477

ink rgb(255,255,255),0

box 240,0,636,477

ink rgb(0,0,0),0

box 244,2,635,475

ink RGB(255,128,64),1

set cursor 60,30

print "Current Equipment"

set cursor 50,80

print ceq$

set cursor 20,60 : print "Weapon:"

set cursor 300,30 : print "Inventory"

if makebuttonbdg(350,82,inv$)>0 then buttonpressed=17

if mouseclick()=1 and buttonpressed = 17 then goto change

if makebuttonback(70,450,"Back")>0 then buttonpressed=16

if mouseclick()=1 and buttonpressed = 16 then goto start

sync

loop

change:

cls

ink rgb(255,255,255),0

box 0,0,242,477

ink rgb(0,0,0),0

box 2,2,240,475

box 239,0,633,477

ink rgb(255,255,255),0

box 240,0,636,477

ink rgb(0,0,0),0

box 244,2,635,475

ink RGB(255,128,64),1

set cursor 60,30

print "Current Equipment"

set cursor 50,80

ceq$=bdagger$

if ceq$ = bdagger$ then inv$ = knife$

print ceq$

set cursor 20,60 : print "Weapon:"

set cursor 300,30 : print "Inventory"

if makebuttonback(70,450,"Back")>0 then buttonpressed=16

if mouseclick()=1 and buttonpressed = 16 then goto start

sync

loop

function makebuttonitem(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

set text size 18 : center text x,y-8,desc$

if mouseclick()=0 then buttonpressed=0

endfunction buttonpressed

function makebuttonstatus(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonmagic(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonabil(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonequip(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonele(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonfire1(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttoncura(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttoncure1(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonheal(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonwea(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonkn(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonsave(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonback(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonbackone(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonbdg(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonskn(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

function makebuttonexit(x,y,desc$)

buttonpressed=0

`ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14

ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12

ink RGB(255,128,64),0

myx=mousex() : myy=mousey()

if myx>x-50 and myx<x+50

if myy>y-12 and myy<y+12

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

if buttonpressed=1

if key = 1 then key = 0

endif

set text size 18 : center text x,y-8,desc$

endfunction buttonpressed

Download

Please login to download

Comments

No comments yet.

CodeBase - RPG Menu

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	DaedalusX
CodeBase Entries:	1