Arcade Extreme - GameCreators Forum

Author

Message

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 1st Aug 2005 11:36

Link

Howdy! Im making my first game, Arcade Extreme. It will have in it at least 5 different revamped versions of the classic arcade games, (Pong, Breakout, etc.) You can choose which one to play in the new game menu. Buuuuuuut, I dont know that many interesting arcadey game types, sure, there are platformers, pong, and breakout, but those are about all the ones I know. Any Ideas?

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 1st Aug 2005 12:16

Link

I know I shouldnt post this here but i dont want to double post and this is in relation to my game Arcade Extreme. If a mod could give this a boot to the newbie forum, that would be great.

Uh, i wish to, in my intro, make a bitmap appear, white screen, second bitmap, white screen, menu. How do I colour the background white? I could do it in 3D unfortunately, this is a 2D intro. Help?

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 1st Aug 2005 12:52

Link

Bug Number 1! YAY!

Here is my code: (Note, this code is only for the bit affected!!!)

_newgame:

sync on
do
   if text_button2(250,220,"Pong Extreme")= 1 then cls : goto _pong
   if text_button2(250,240,"Breakout Extreme")= 1 then cls : goto _breakout
        if text_button2(250,260,"Platformer Extreme")= 1 then goto _platformer
        if text_button2(250,280,"Back")= 1 then goto _mainmenu
sync
loop

function text_button(x,y,text$)
   tx = text width(text)
   ty = text height(text)
   pressed = 0
   if mousex() < x+(tx/2) and mousex() > x-(tx/2)
      if mousey() < y+(ty/2) and mousey() > y-(ty/2)
         pressed = 1
      endif
   endif
   if pressed = 1
      ink rgb(200,0,0),0
   else
      ink rgb(255,0,0),0
   endif
   if pressed = 0 then hold = 0
   center text x,y-(text size()/2),text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

_pong:

sync on
do
   if text_button(250,220,"Single Player")= 1 then cls : goto _singleplay
   if text_button(250,240,"Multiplayer")= 1 then cls : goto _dualplay
        if text_button(250,260,"Back")= 1 then goto _newgame
sync
loop

function text_button(x,y,text$)
   tx = text width(text$)
   ty = text height(text$)
   pressed = 0
   if mousex() < x+(tx/2) and mousex() > x-(tx/2)
      if mousey() < y+(ty/2) and mousey() > y-(ty/2)
         pressed = 1
      endif
   endif
   if pressed = 1
      ink rgb(200,0,0),0
   else
      ink rgb(255,0,0),0
   endif
   if pressed = 0 then hold = 0
   center text x,y-(text size()/2),text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

+ Code Snippet

_newgame:

sync on
do
   if text_button2(250,220,"Pong Extreme")= 1 then cls : goto _pong
   if text_button2(250,240,"Breakout Extreme")= 1 then cls : goto _breakout
        if text_button2(250,260,"Platformer Extreme")= 1 then goto _platformer
        if text_button2(250,280,"Back")= 1 then goto _mainmenu
sync
loop

function text_button(x,y,text$)
   tx = text width(text)
   ty = text height(text)
   pressed = 0
   if mousex() < x+(tx/2) and mousex() > x-(tx/2)
      if mousey() < y+(ty/2) and mousey() > y-(ty/2)
         pressed = 1
      endif
   endif
   if pressed = 1
      ink rgb(200,0,0),0
   else
      ink rgb(255,0,0),0
   endif
   if pressed = 0 then hold = 0
   center text x,y-(text size()/2),text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed


_pong:

sync on
do
   if text_button(250,220,"Single Player")= 1 then cls : goto _singleplay
   if text_button(250,240,"Multiplayer")= 1 then cls : goto _dualplay
        if text_button(250,260,"Back")= 1 then goto _newgame
sync
loop

function text_button(x,y,text$)
   tx = text width(text$)
   ty = text height(text$)
   pressed = 0
   if mousex() < x+(tx/2) and mousex() > x-(tx/2)
      if mousey() < y+(ty/2) and mousey() > y-(ty/2)
         pressed = 1
      endif
   endif
   if pressed = 1
      ink rgb(200,0,0),0
   else
      ink rgb(255,0,0),0
   endif
   if pressed = 0 then hold = 0
   center text x,y-(text size()/2),text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

Whats wrong? I think it has something to do with the variables and as I am using the same variables in the menu of the pong, It thinks I am using the same variables. Is there a way to wipe variables?

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 1st Aug 2005 15:37

Link

Done

Team EOD :: All-Round Nice Guy
Want Better dbHelp Files?

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 1st Aug 2005 21:31

Link

It's the function name that's the same. Change the name of the second function and add "$" to "text" the first two lines of the first function and it should be ok. Really i'm not 100% sure it'll be ok because I had to rem off most of the goto statements to run it.

+ Code Snippet

   tx = text width(text$)
   ty = text height(text$)

One thing... you don't need functions in the middle of code. Functions are usually put at the bottom... of course that may be just a personal preference.

Back to top

Profile PM Email

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 1st Aug 2005 23:11

Link

@JessTicular

Thanks, I owe you.

@Grog Grueslayer

Thanks, uh, its working now (mostly) and the reason I put the functions up near the top of my code is because that is where they come into effect, near the start of my game, eg. main menus. I had to change a little of the function code around, uh there were a couple of lines using a variable which didnt exist, I forgot to create it at the start of the code.

Then there was the

+ Code Snippet

   tx = text width(text$)
   ty = text height(text$)

which you helped with.

So many bugs! I still have a lot of code to learn!

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

Heckno

20

Years of Service

User Offline

Joined: 8th Sep 2004

Location: Palm Coast, FL

Posted: 2nd Aug 2005 01:18

Link

Ring, throw in missle command game.. thats was pretty cool...

Back to top

Profile PM Email

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 2nd Aug 2005 03:25 Edited at: 2nd Aug 2005 04:34

Link

Did you figure out how to make it change colors without 3D? Use this code if you haven't:

+ Code Snippet

rem Do pic thing that you were talking about
paste image 1,0,0
wait 1000
cls rgb(250,250,250)
wait 1000
paste image 2,0,0
wait 1000
cls rgb(250,250,250)
wait 1000
gosub _main_menu

rem Main Menu
_main_menu:
`POST YOUR CODE FOR IT HERE!

You can use that, but, you should probably have a better way to use thewait, like timer() or something. I don't know how to use the timer() command, so you'll have to look elsewhere.

------------------
Vote for Excelsis on the Puzzle Game Compo

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 09:50 Edited at: 2nd Aug 2005 09:57

Link

@Heckno

Missle Command. As in side scroller? That would be pretty cool and would give me more practice in collision, backgrounds, etc...

@master programmer

I didnt know you could change the colour of a cls command. Cool. Thanx!
Oh, and i had to change it a bit, I needed it so that it changes back to black when the second picture is up, so I used this instead:

+ Code Snippet

`Load the first two images for the intro
Load image "images\arcade1.bmp",1
load image "images\arcade2.bmp",2

Paste image 1, 125, 125
sleep 1200
cls rgb(250,250,250)
sleep 5
cls rgb(0,0,0)
paste image 2, 125,125
sleep 2000
cls

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 12:24 Edited at: 2nd Aug 2005 12:27

Link

Bug number 2! WOOOOOOT!

I don't get it. It says that "Image does not exist" when it gets to playing image 5. I dont get it. Image 5 is there and everything. If it has something to do with my loading of my images, here is that code:

+ Code Snippet

load image "images1.bmp",4
load image "images2.bmp",5
load image "images3.bmp",6
load image "images4.bmp",7
load image "images5.bmp",8
load image "images6.bmp",9
load image "images7.bmp",10
load image "images8.bmp",11
load image "images9.bmp",12

and here is the code where it comes into play:

if player2score#=1 then paste image 4,230,50
if player2score#=2 then delete image 4
if player2score#=2 then paste image 5,230,50
if player2score#=3 then delete image 5
if player2score#=3 then paste image 6,230,50
if player2score#=4 then delete image 6
if player2score#=4 then paste image 7,230,50
if player2score#=5 then delete image 7
if player2score#=5 then paste image 8,230,50
if player2score#=6 then delete image 8
if player2score#=6 then paste image 9,230,50
if player2score#=7 then delete image 9
if player2score#=7 then paste image 10,230,50
if player2score#=8 then delete image 10
if player2score#=8 then paste image 11,230,50
if player2score#=9 then delete image 11
if player2score#=9 then paste image 12,230,50
if player2score#=10 then cls
if player2score#=10 then goto _player2win
if player1score#=1 then paste image 4,290,50
if player1score#=2 then delete image 4
if player1score#=2 then paste image 5,270,50
if player1score#=3 then delete image 5
if player1score#=3 then paste image 6,270,50
if player1score#=4 then delete image 6
if player1score#=4 then paste image 7,270,50
if player1score#=5 then delete image 7
if player1score#=5 then paste image 8,270,50
if player1score#=6 then delete image 8
if player1score#=6 then paste image 9,230,50
if player1score#=7 then delete image 9
if player1score#=8 then paste image 10,230,50
if player1score#=9 then delete image 10
if player1score#=9 then paste image 11,230,50
if player1score#=10 then cls
if player1score#=10 then goto _player1win

+ Code Snippet

if player2score#=1 then paste image 4,230,50
if player2score#=2 then delete image 4
if player2score#=2 then paste image 5,230,50
if player2score#=3 then delete image 5
if player2score#=3 then paste image 6,230,50
if player2score#=4 then delete image 6
if player2score#=4 then paste image 7,230,50
if player2score#=5 then delete image 7
if player2score#=5 then paste image 8,230,50
if player2score#=6 then delete image 8
if player2score#=6 then paste image 9,230,50
if player2score#=7 then delete image 9
if player2score#=7 then paste image 10,230,50
if player2score#=8 then delete image 10
if player2score#=8 then paste image 11,230,50
if player2score#=9 then delete image 11
if player2score#=9 then paste image 12,230,50
if player2score#=10 then cls
if player2score#=10 then goto _player2win
if player1score#=1 then paste image 4,290,50
if player1score#=2 then delete image 4
if player1score#=2 then paste image 5,270,50
if player1score#=3 then delete image 5
if player1score#=3 then paste image 6,270,50
if player1score#=4 then delete image 6
if player1score#=4 then paste image 7,270,50
if player1score#=5 then delete image 7
if player1score#=5 then paste image 8,270,50
if player1score#=6 then delete image 8
if player1score#=6 then paste image 9,230,50
if player1score#=7 then delete image 9
if player1score#=8 then paste image 10,230,50
if player1score#=9 then delete image 10
if player1score#=9 then paste image 11,230,50
if player1score#=10 then cls
if player1score#=10 then goto _player1win

And the file in question is where it should be. Its in the attachment if somethings wrong with it

Me sleepy now. Goodnight.

Thanx in advance,

The Ringmaster

Clouds float the exact same way bricks don't
- Douglas Adams

Attachments

Login to view attachments

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 12:30

Link

Oooh! I think I know whats wrong!!!!
In my code I say:

+ Code Snippet

if player2score#=1 then paste image 4,230,50

then I say:

+ Code Snippet

if player2score#=2 then delete image 4

but then I use the if player2score#=2 again in the:

+ Code Snippet

if player2score#=2 then paste image 5,230,50

right after I say delete!
I think this is whats wrong with my code, but I still dont know how to fix it unless I use the cls command.

Two secs....

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 12:33

Link

Heh...

Using the cls command fixed the problem that needing fixing (I think). But it also turned my whole screen black. I know why this happened. cls is the "Clear screen" command. It was made to wipe screens.

So I am back to the drawing board. Heh.

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 2nd Aug 2005 22:58

Link

No problem, I usually do this though instead of using sleeps and wait commands:

+ Code Snippet

rem Load media
load image "image1.jpg",1
load image "image2.jpg",2
load image "image3.jpg",3
make object plain 1,640,480
make object plain 2,640,480
make object plain 3,640,480
texture object 1,1
texture object 2,2
texture object 3,3
set object 1,1,0,0
set object 2,1,0,0
set object 3,1,0,0
hide object 2 : hide object 3

rem Loop
backdrop on
color backdrop rgb(250,250,250)

do
inc time#,1
if time#=100 then hide object 1 : show object 2
if time#=200 then hide object 2 : show object 3
loop

You can change it, etc.

------------------------------
Vote for Excelsis on the Puzzle Game Compo
l

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 23:56

Link

@master programmer

Yup, It worked. Thanx! Um, also, Why did you use the "set object command" in your snippet?

Thanx again,

~The Ringmaster

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

Deep Thought 42

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: New Jersey, USA

Posted: 3rd Aug 2005 03:46

Link

Retro Arcade Games:
Centipede
Galaga
Pac-Man
Invaders

"Winners never quit and quitters never win. But those who never win and never quit are idiots."

Back to top

Profile PM Email Website

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 3rd Aug 2005 05:46

Link

*The Ring Master,
I used the set object 1,1,0,0 command because it makes the image transparent if you're using black, which is effective with text. Its just a habbit, I usually use text. You can exclude it if you want.

--------------------------------------
Vote for Excelsis on the Puzzle Game Compo

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 3rd Aug 2005 10:33

Link

@master programmer

Uh yeah, it didn't work unfortunately, hopefully it has to do with my positioning of the object, but they objects are not showing up.

@Deep Thought 42

Centipede, Pacman, Galaga and Invaders, you mean like space invaders? I have played centipede, I really enjoy it. Ive heard of Galaga, what is it?

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

Deep Thought 42

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: New Jersey, USA

Posted: 3rd Aug 2005 15:31

Link

This is what Galaga looks like. It is somewhat like Space Invaders except a bit faster and some enemies take a dive at you. Enemies do formations as well. You can get two ships if you rescue one from an enemy (one certain enemy can take your ship over).

"Winners never quit and quitters never win. But those who never win and never quit are idiots."

Back to top

Profile PM Email Website

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 4th Aug 2005 00:13 Edited at: 4th Aug 2005 00:14

Link

Oooooh. Gal-aga. I thought you meant Gal-aga
Nah, seriously though, I remember playing that game, a long, long, long time ago, actually not that long ago. They have it on the new United Arab Emirates aeroplane consoles that are in the planes.
Weeee!
I like planes.

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Arcade Extreme

Attachments