My test program. - GameCreators Forum

Author

Message

Not_Maindric

17

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 28th Sep 2007 02:43 Edited at: 28th Sep 2007 03:10

Link

Ok, I am making a basic program, for tests, to make myself better. I was just wondering if this is a decent code for a basic title screen. Comments are appreaciated. Also, this is my first real time trying to make something out of DBC, so it is nothing flashy.

+ Code Snippet

`  ;;;;;;;;;;;;;;;;;;
`  ;This is a test.;;
`  ;By: Maindric ;;;;;
`  ;;;;;;;;;;;;;;;;;;

`  Let's set up the code.
SET DISPLAY MODE 1024, 768,32 : `This sets the screen size to 1024x768x32
Sync on
Hide Mouse
Load Image "ButtonsNewgame.png", 1
Load Image "ButtonsEndgame.png", 2
Load Image "CursorsBluecloudy.png", 3
Sprite 1, 0, 550, 1
Sprite 2, 0, 650, 2


` This is the main code
Do
   Sync
   Sprite 3, Mousex(), Mousey(), 3
   If SPRITE HIT(3, 1)=1
      Scale Sprite 1, 115
   Endif
   If SPRITE HIT(3, 2)=1
      If mouseclick()=1
         Exit
      Endif
      Scale Sprite 2, 115
   Endif
   If SPRITE HIT(3, 1)=0
      Scale Sprite 1, 100
   Endif
   If SPRITE HIT(3, 2)=0
      Scale Sprite 2, 100
   Endif
Loop

**Edit**
If you want me to, I can make it a zip file, so you can get the media easier to test it or whatever.

http://www.freewebs.com/maindric/

Back to top

Profile PM Email

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 28th Sep 2007 12:41

Link

yeah put the media up 'cos we can't do much without it...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 28th Sep 2007 20:26

Link

You are checking for the same collisions twice, this is wasted code. This is how I would do it:

+ Code Snippet

`make label variables
btn_new=1 : btn_end=2 : csr=3

DO
mc=mouseclick()

`reset both buttons to original size
scale sprite btn_new,100
scale sprite btn_end,100

`scale up highlighted button
csr_coll = sprite hit(csr,0)
if csr_coll >0 then scale sprite csr_coll,115

`New Game
if sprite hit(csr,btn_new)+mc = 2 then `code
`End Game
if sprite hit(csr,btn_end)+mc = 2 then `code
LOOP

There's still a much more economic way to do it but that's all I have for now.
Hope that gave you some new tricks

In programming, nothing exists

Back to top

Profile PM Email

Not_Maindric

17

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 29th Sep 2007 19:27 Edited at: 29th Sep 2007 19:28

Link

Ok, here is my zip file. It includes the source coding and all, and the bottom part os for when I am going to add stuff for the new game, right now, it is not enough to do anything with so I am working on it.

Also, I edited the code to an "If...Else...Endif" type, instead of checking the same "If" twice. This should make it a little bit, better... Also, if I am indinting incorrectly, please let me know. I am new to programming so I am not to formiliar with Indenting accuratly.

+ Code Snippet

`  ;;;;;;;;;;;;;;;;;;
`  ;This is a test.;;
`  ;By: Maindric;;;;;
`  ;;;;;;;;;;;;;;;;;;

`  Let's set up the code.
SET DISPLAY MODE 1024, 768,32 : `This sets the screen size to 1024x768x32
Sync on
Hide Mouse
Load Image "ButtonsNewgame.png", 1
Load Image "ButtonsEndgame.png", 2
Load Image "CursorsBluecloudy.png", 3
Sprite 1, 0, 550, 1
Sprite 2, 0, 650, 2


` This is the title menu of my coding.
Do
   Sync
   Sprite 3, Mousex(), Mousey(), 3
   If SPRITE HIT(3, 1)=1
      If mouseclick()=1
      Endif
      Scale Sprite 1, 115
      Else
      Scale Sprite 1, 100
   Endif
   If SPRITE HIT(3, 2)=1
      If mouseclick()=1
         Exit
      Endif
      Scale Sprite 2, 115
      Else
      Scale Sprite 2, 100
   Endif
Loop

http://www.freewebs.com/maindric/

Attachments

Login to view attachments

Back to top

Profile PM Email

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 29th Sep 2007 20:47 Edited at: 29th Sep 2007 20:49

Link

it isn't working for me... some sort of image problem... sorry mate...

I would look more but my DB keeps doing some weird flashing thing even though I put cls at the top which usually solves it and it's starting to hurt my brain...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Not_Maindric

17

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 29th Sep 2007 21:08 Edited at: 29th Sep 2007 21:10

Link

That is becouse when I organised it, it is thinking it is in a diff file, all you gotta do is save it and it will work, or let me do it again real quick...

Here you go. It should work now.

**Edit**

Nope, doesn't... Try saving the files, it MIGHT work then...

http://www.freewebs.com/maindric/

Attachments

Login to view attachments

Back to top

Profile PM Email

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 29th Sep 2007 21:41

Link

i saved the folder to my computer... so I don't think it's that...

someone else can help... I'm just causing more problems than I'm solving

in fact, if you do Build Final then it will just be a .exe which should work if it works on your computer (I think...)

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 30th Sep 2007 17:31

Link

yep a final exe includes all media and subfolders

In programming, nothing exists

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / My test program.

Attachments

Attachments