TheGameCreators - CodeBase - A cool rpg menu with grafix and stuff, its really cool, and u can use it if you like!

Category: 2D Effects

Version: 1.0

Information

Uploaded: 28th Dec 2003 06:30

Modified: 1st Jan 1970 01:00

Author: Alastair Zotos

Summary

A cool rpg menu with grafix, i know im getting better at DarkBASIC so i made this for the newbies, feel free to use it in a game!!!! Have fun! Alastair Zotos Anaconda entertainment

Full Description

A cool rpg menu with grafix, i know im getting better at DarkBASIC so i made this for the newbies, feel free to use it in a game!!!!<br /> Have fun!<br /> Alastair Zotos<br /> Anaconda entertainment

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`--------

`RPG Menu

`--------

`Created by Alastair Zotos & Anaconda Entertainment

`you can use this freely, i dont want it, but maybe in the future

`i might put it in a game!

`have fun with it.

`if you have updated anything then e-mail me at

`anacondaentertainment@hotmail.com

`(NOTE: if you cant remember what my email is when you try to send it

`just copy the e-mail address and paste in! :-)

Sync on

Sync rate 300

`===========

`Backup loop

`===========

rem Build line string

new$=entry$()

for n=1 to len(new$)

if asc(mid$(new$,n))=8

line$=left$(name$,len(line$)-1)

else

line$=line$+mid$(new$,n)

endif

next n

clear entry buffer

rem Show Entry Buffer

cls 0

ink rgb(128,128,128),1

box 200,180,440,270

ink rgb(0,0,255),1

box 200,180,440,197

ink rgb(255,255,255),1

set cursor 210,180

print "Enter Name System:"

ink 0,1

box 215,240,425,255

`outline

ink rgb(100,100,100),1

box 200,198,201,270

box 200,269,440,270

box 439,198,440,270

box 214,240,215,255

box 425,240,426,255

box 215,239,426,240

box 215,255,426,256

`blue outline

ink rgb(0,0,200),1

box 200,180,201,197

box 439,180,440,197

box 200,180,440,181

box 200,196,440,197

ink rgb(0,0,0),1

center text 320,200,"PLEASE ENTER YOUR NAME:"

ink rgb(255,255,255),1

set cursor 220,240

input line$

if returnkey()=1

goto start_game

endif

rem Update screen

sync

rem End loop

loop

`start game

start_game:

`stats

HP=100

EP=100

life=3

elife=3

magic=100

emagix=100

point=0

epoint=0

adamage=rnd(15)

mdamage=rnd(20)

sdamage=25

turn=1

atck=rnd(3)

`=========

`MAIN LOOP

`=========

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

`players turn

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

if turn=1

`clear screen

cls 0

`-----

`stats

`-----

`make decorations

ink rgb(0,255,255),1

box 0,0,639,103

ink rgb(0,0,255),1

box 7,7,632,96

`print stats

ink rgb(255,0,0),1

set cursor 300,10

print "STATS"

`print whose turn it is

set cursor 280,40

Print "It is ";line$;"'s turn!"

`print "choose"

set cursor 245,110

print "<<Choose you action!>>"

`print healths

set cursor 20,20

print "Player HP: ",HP

set cursor 510,20

print "Enemy HP: ",EP

`print magic

set cursor 20,40

print "Player MP: ",magic

set cursor 510,40

print "Enemy MP: ",emagic

`print lives

set cursor 20,60

print "Lives: ",life

set cursor 510,60

print "Enemy Lifes: ",elife

`print points

set cursor 20,80

print "Points: ",point

set cursor 510,80

print "Enemy Points: ",epoint

`create actions

if makebutton(320,200,"Attack")>0 then buttonpressed=1

if makebutton(320,250,"Magic")>0 then buttonpressed=2

if makebutton(320,300,"Special")>0 then buttonpressed=3

if makebutton(320,350,"Exit")>0 then buttonpressed=4

endif

`========

`END LOOP

`========

sync

loop

`=========

`FUNCTIONS

`=========

function makebutton(x,y,desc$)

buttonpressed=0

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

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

ink rgb(0,128,0),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

Download

Please login to download

Comments

No comments yet.

Author Name:	Alastair Zotos
CodeBase Entries:	5

CodeBase - A cool rpg menu with grafix and stuff, its really cool, and u can use it if you like!

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments