how is my FIRST ever game going (not finished)

Author

Message

spiffy

18

Years of Service

User Offline

Joined: 3rd Jan 2006

Location: why r u askin

Posted: 28th Feb 2006 21:57

Link

can someone help me put a more interessting floor onto my game ill give you the code the username is user and password pass can you also tell me any improvements that are really buggin you and help me fix them by the way think about that iv only been programming for about a week so im a noob go easy on me

+ Code Snippet

QUACK!! WHAT IS THIS

Back to top

Profile PM

spiffy

18

Years of Service

User Offline

Joined: 3rd Jan 2006

Location: why r u askin

Posted: 28th Feb 2006 21:58

Link

sorry the code is

menu:
Realusername1$="user"
Set cursor 11,100
Printc "Please Enter username:"
Repeat
 If inkey$()>""
  username$=username$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If username$=Realusername1$ then Goto pass_screen1
If username$<Realusername$ or username$>Realusername$ then goto menu

Pass_screen1:
cls
print "Please Wait!"
Wait 1000
cls
RealPassword1$="pass"
Set cursor 11,100
Printc "Input password:"
Repeat
 If inkey$()>""
  Password$=Password$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If Password$=RealPassword1$ then goto correct
If Password$<RealPassword1$ or Password$>RealPassword1$ then goto menu

Correct:
cls
Print "PASSWORD VALID!"
wait 2000
cls
Print "Welcome To The Possesser!"
Wait 2000
Cls
Print "You Are The Possesser Ready To Possess!"
Wait 2000
Cls
Print "You May Begin In 3 Seconds"
Wait 3000
cls
Text 240,220,"Get Ready to Play";
wait 2000
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\Spectre\H-Spectre-Idle.3ds",1
scale object 1,800,800,800
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\SkyBoxes\sky02\sky02.3ds",2
scale object 2,2000,2000,2000
set object cull 2,0
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100

Do
If Upkey()=1
Move Object 1,0.125
endif
If Downkey()=1
Move Object 1,-0.125
endif
If Leftkey()=1
Dec a#,0.125
endif
If Rightkey()=1
Inc a#,0.125
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)
Point Camera object position x(1),object position y(1),object position z(1)
sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

menu:
Realusername1$="user"
Set cursor 11,100
Printc "Please Enter username:"
Repeat
 If inkey$()>""
  username$=username$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If username$=Realusername1$ then Goto pass_screen1
If username$<Realusername$ or username$>Realusername$ then goto menu




Pass_screen1:
cls
print "Please Wait!"
Wait 1000
cls
RealPassword1$="pass"
Set cursor 11,100
Printc "Input password:"
Repeat
 If inkey$()>""
  Password$=Password$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If Password$=RealPassword1$ then goto correct
If Password$<RealPassword1$ or Password$>RealPassword1$ then goto menu



Correct:
cls
Print "PASSWORD VALID!"
wait 2000
cls
Print "Welcome To The Possesser!"
Wait 2000
Cls
Print "You Are The Possesser Ready To Possess!"
Wait 2000
Cls
Print "You May Begin In 3 Seconds"
Wait 3000
cls
Text 240,220,"Get Ready to Play";
wait 2000
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\Spectre\H-Spectre-Idle.3ds",1
scale object 1,800,800,800
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\SkyBoxes\sky02\sky02.3ds",2
scale object 2,2000,2000,2000
set object cull 2,0
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100

Do
If Upkey()=1
Move Object 1,0.125
endif
If Downkey()=1
Move Object 1,-0.125
endif
If Leftkey()=1
Dec a#,0.125
endif
If Rightkey()=1
Inc a#,0.125
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)
Point Camera object position x(1),object position y(1),object position z(1)
sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

QUACK!! WHAT IS THIS

Back to top

Profile PM

DB newbie

18

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 28th Feb 2006 23:13

Link

looks pretty good so far

( i didnt check to see if there were any errors if there was any.)

Check out my site!(unfinished)
http://www.freewebs.com/dbnewbie/

Back to top

Profile PM Email

Paladeus

18

Years of Service

User Offline

Joined: 26th Feb 2006

Location: Oklahoma

Posted: 5th Mar 2006 09:00

Link

I rather like it. All you need to do for the moment is maybe get some form of groundwork and make the character spin within the world rather than the world spin around him. Also, I went through the side of your world. o.o It was like being in a box with walls I could phase through or something.. lol. But good so far.

Back to top

Profile PM Email Website

spiffy

18

Years of Service

User Offline

Joined: 3rd Jan 2006

Location: why r u askin

Posted: 5th Mar 2006 22:22

Link

heres an update its getting better i think

menu:
cls
print "loading"
wait 1000
cls
Realusername1$="user"
Set cursor 11,100
Printc "Please Enter username:"
Repeat
 If inkey$()>""
  username$=username$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If username$=Realusername1$ then Goto pass_screen1
If username$<Realusername$ or username$>Realusername$ then goto menu

Pass_screen1:
cls
print "Please Wait!"
Wait 1000
cls
RealPassword1$="pass"
Set cursor 11,100
Printc "Input password:"
Repeat
 If inkey$()>""
  Password$=Password$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If Password$=RealPassword1$ then goto correct
If Password$<RealPassword1$ or Password$>RealPassword1$ then goto menu

Correct:
cls
Print "PASSWORD VALID!"
wait 2000
cls
Print "Welcome To The Possesser!"
Wait 2000
Cls
Print "You Are The Possesser Ready To Possess!"
Wait 2000
Cls
Print "You May Begin In 3 Seconds"
Wait 3000
cls
Text 240,220,"Get Ready to Play";
wait 2000
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\Spectre\H-Spectre-Idle.3ds",1
scale object 1,800,800,800
rotate object 1, 180,0,180
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\SkyBoxes\sky02\sky02.3ds",2
scale object 2,8000,8000,8000
set object cull 2,0
make object box 10,800,1,800
Position object 10,-0,0,-0
Load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Natural\grass2.BMP",3
texture object 10,3
make object box 11,50,50,50
position object 11,50,0,-0
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U3_10.BMP",4
texture object 11,4
make object box 12,55,1,55
position object 12,50,25,-0
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\roof_U3_02.BMP",5
texture object 12,5
make object box 13,1000,55,1
position object 13,100,0,390
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 13,6
make object box 14,1,55,1000
position object 14,390,0,100
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 14,6
make object box 15,1,55,1000
position object 15,-390,0,100
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 15,6
make object box 16,1000,55,1
position object 16,100,0,-390
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 16,6

Do
If downkey()=1
Move Object 1,0.125
endif
If upkey()=1
Move Object 1,-0.125
endif
If rightkey()=1
Dec a#,0.25
endif
If leftkey()=1
Inc a#,0.25
endif
yrotate object 1,a#
if object collision(1,11)=1
move object 1,1
endif
if object collision(1,13)=1
move object 1,1
endif
if object collision(1,14)=1
move object 1,1
endif
if object collision(1,15)=1
move object 1,1
endif
if object collision(1,16)=1
move object 1,1
endif

posx#=cos(270-a#) * 50 + object position x(1)
posz#=sin(270-a#) * 50 + object position z(1)
Position Camera posx#,object position y(1)+12,posz#
Point Camera object position x(1),object position y(1)+12,object position z(1)
Point Camera object position x(1),object position y(1),object position z(1)
sync
Loop
end

+ Code Snippet

menu:
cls
print "loading"
wait 1000
cls
Realusername1$="user"
Set cursor 11,100
Printc "Please Enter username:"
Repeat
 If inkey$()>""
  username$=username$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If username$=Realusername1$ then Goto pass_screen1
If username$<Realusername$ or username$>Realusername$ then goto menu




Pass_screen1:
cls
print "Please Wait!"
Wait 1000
cls
RealPassword1$="pass"
Set cursor 11,100
Printc "Input password:"
Repeat
 If inkey$()>""
  Password$=Password$+inkey$()
  Printc "*"
  Wait 250
 Endif
Until returnkey()=1

If Password$=RealPassword1$ then goto correct
If Password$<RealPassword1$ or Password$>RealPassword1$ then goto menu



Correct:
cls
Print "PASSWORD VALID!"
wait 2000
cls
Print "Welcome To The Possesser!"
Wait 2000
Cls
Print "You Are The Possesser Ready To Possess!"
Wait 2000
Cls
Print "You May Begin In 3 Seconds"
Wait 3000
cls
Text 240,220,"Get Ready to Play";
wait 2000
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\Spectre\H-Spectre-Idle.3ds",1
scale object 1,800,800,800
rotate object 1, 180,0,180
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\SkyBoxes\sky02\sky02.3ds",2
scale object 2,8000,8000,8000
set object cull 2,0
make object box 10,800,1,800
Position object 10,-0,0,-0
Load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Natural\grass2.BMP",3
texture object 10,3
make object box 11,50,50,50
position object 11,50,0,-0
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U3_10.BMP",4
texture object 11,4
make object box 12,55,1,55
position object 12,50,25,-0
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\roof_U3_02.BMP",5
texture object 12,5
make object box 13,1000,55,1
position object 13,100,0,390
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 13,6
make object box 14,1,55,1000
position object 14,390,0,100
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 14,6
make object box 15,1,55,1000
position object 15,-390,0,100
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 15,6
make object box 16,1000,55,1
position object 16,100,0,-390
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Textures\BMP\Urban\wall_U1_01.bmp",6
texture object 16,6


Do
If downkey()=1
Move Object 1,0.125
endif
If upkey()=1
Move Object 1,-0.125
endif
If rightkey()=1
Dec a#,0.25
endif
If leftkey()=1
Inc a#,0.25
endif
yrotate object 1,a#
if object collision(1,11)=1
move object 1,1
endif
if object collision(1,13)=1
move object 1,1
endif
if object collision(1,14)=1
move object 1,1
endif
if object collision(1,15)=1
move object 1,1
endif
if object collision(1,16)=1
move object 1,1
endif

posx#=cos(270-a#) * 50 + object position x(1)
posz#=sin(270-a#) * 50 + object position z(1)
Position Camera posx#,object position y(1)+12,posz#
Point Camera object position x(1),object position y(1)+12,object position z(1)
Point Camera object position x(1),object position y(1),object position z(1)
sync
Loop
end

Back to top

Profile PM

Yamman

19

Years of Service

User Offline

Joined: 11th Jun 2005

Location:

Posted: 5th Mar 2006 23:56

Link

for only programming for a week, that looks really good.

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 6th Mar 2006 04:40

Link

/me must install DarkMATTER

FunkyStickmen: Battle of the Races (1%)

Back to top

Profile PM Email

Computer Nerd

19

Years of Service

User Offline

Joined: 25th Jan 2005

Location: What do you care?

Posted: 7th Mar 2006 20:01

Link

Nice job, your one of the rare newbies which start small. Unfornately I took on too much when I was a newcomer, and sometimes still do. Nice work and keep programming you'll never regret it.

Current Project - Jono's Maze(Open Source, 3d maze shooter)
Progress Of Project - 0.5%

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / how is my FIRST ever game going (not finished)