error exiting program - GameCreators Forum

Author

Message

Mychal B

14

Years of Service

User Offline

Joined: 21st Jul 2010

Location: Coos bay, rainville

Posted: 5th Sep 2010 12:15

Link

Alrighty, I know it's not anything with my computer for if I run other projects it will escape perfectly fine, but when I try to escape out of the game I'm currently making every time I hit escape or click on the x a message pops up from windows saying "mygame has stopped working." I cannot figure this one out!

Could it be because I'm not exiting out of a loop properly? The way I have it set up is:

do
if upkey() = 1 then end
loop
Thanks for the help!

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 5th Sep 2010 15:50

Link

I think we need to see a little bit more code than that to help.

Your snippet works fine for me.

Back to top

Profile PM Email Website

Mychal B

14

Years of Service

User Offline

Joined: 21st Jul 2010

Location: Coos bay, rainville

Posted: 6th Sep 2010 00:21

Link

Well...There's a ton of code, and I have no idea where the problem is... I can put up the main page at least though!!!Any tips for helping me find out what the problem may be would be great! Thanks in advance

disable escapekey
ai start
ai set radius 60

gosub initalizevariables
gosub makelevel
gosub makeplayer
gosub makezombies
gosub makebullets
sync on
sync rate 0

T = timer()

do
if escapekey() = 1 then exit

Elapsed=(Timer()-T)/20
If Elapsed = 1

move object 10,2
 sc_updateobject 10
 set cursor 3,2
 print screen fps()
 set cursor 3,40 : print "Enemies left: " : set cursor 110,40 : print totalenemies
 set cursor 3,60 : print "health: " : set cursor 60,60 : print playerhealth
 set cursor 3,80 : print deadzombieorder(deadzombie) 
 
 
 if totalenemies = 0 
 set cursor scr_width#/2,scr_height#/2
 print "You WIN!!!"
 endif
 
 rem begin mouse setup 
 if mouseclick() = 1
 fire = 1
 endif

rem mouse released,fire bullet
 if mouseclick() = 0 and fire = 1
   if sound playing(10) = 0
    play sound 10
    gosub shootzombie
   endif
   fire = 0
 endif

gosub movement
 gosub aistuff
 ai update

sync
elapsed = 0
T = timer()
endif
loop

initalizevariables:

playerhealth = 100
myzombies = 220
totalenemies = (myzombies - 200)*5
rem how many bullets on screen before it loops back to first
mybullets = 310
fire = 0

dim deadzombieorder(5)
deadzombieorder(1) = 0
deadzombieorder(2) = 0
deadzombieorder(3) = 0
deadzombieorder(4) = 0
deadzombieorder(5) = 0

return

+ Code Snippet

disable escapekey
ai start
ai set radius 60


gosub initalizevariables
gosub makelevel
gosub makeplayer
gosub makezombies
gosub makebullets
sync on
sync rate 0

T = timer()

do
if escapekey() = 1 then exit

Elapsed=(Timer()-T)/20
If Elapsed = 1

 move object 10,2
 sc_updateobject 10
 set cursor 3,2
 print screen fps()
 set cursor 3,40 : print "Enemies left: " : set cursor 110,40 : print totalenemies
 set cursor 3,60 : print "health: " : set cursor 60,60 : print playerhealth
 set cursor 3,80 : print deadzombieorder(deadzombie) 
 
 
 if totalenemies = 0 
 set cursor scr_width#/2,scr_height#/2
 print "You WIN!!!"
 endif
 
 rem begin mouse setup 
 if mouseclick() = 1
 fire = 1
 endif

 rem mouse released,fire bullet
 if mouseclick() = 0 and fire = 1
   if sound playing(10) = 0
    play sound 10
    gosub shootzombie
   endif
   fire = 0
 endif

 gosub movement
 gosub aistuff
 ai update 

sync
elapsed = 0
T = timer()
endif
loop

initalizevariables:

playerhealth = 100
myzombies = 220
totalenemies = (myzombies - 200)*5
rem how many bullets on screen before it loops back to first
mybullets = 310
fire = 0

dim deadzombieorder(5)
deadzombieorder(1) = 0
deadzombieorder(2) = 0
deadzombieorder(3) = 0
deadzombieorder(4) = 0
deadzombieorder(5) = 0

return

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 6th Sep 2010 00:52 Edited at: 6th Sep 2010 00:55

Link

Instead of :

+ Code Snippet

if escapekey() = 1 then exit

try :

+ Code Snippet

if keystate(1) = 1 then exit

You've disabled the escapekey. Also, you're going to need an END statement after your DO - LOOP.

So many games to code.......so little time.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 6th Sep 2010 09:27

Link

Quote: "Could it be because I'm not exiting out of a loop properly? "

You are leaving the DO/LOOP properly in the code snip but it's probably because after you EXIT from the DO/LOOP it eventually hits the RETURN without a GOSUB. Listen to LBFN and put an END after the DO/LOOP. The same thing is true with functions. If the program hits a function without a call to it the program ends with an error.

Back to top

Profile PM Email

Mychal B

14

Years of Service

User Offline

Joined: 21st Jul 2010

Location: Coos bay, rainville

Posted: 6th Sep 2010 10:12

Link

MY HOLY CHEESE NIPS!!! With one quick reference from your posts it works! Thank you guys so much. This ones been buging me for quite some time. I think prety soon my game will be ready for the WIP forum

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 6th Sep 2010 13:52

Link

Quote: "You are leaving the DO/LOOP properly in the code snip"

Grog is correct. Since you are checking the escapekey's status in your do - loop, it does indeed exit. One has to wonder why you disable the escapekey in the first place, though.

Quote: "MY HOLY CHEESE NIPS!!!"

You are funny.

So many games to code.......so little time.

Back to top

Profile PM Email

Mychal B

14

Years of Service

User Offline

Joined: 21st Jul 2010

Location: Coos bay, rainville

Posted: 6th Sep 2010 23:07

Link

disable escape key? Because I'm a total newb. didn't know how the escape key actually exits the program so I decided to try and disable it,trying to make it so I could possibly make it exit out a different way via:

+ Code Snippet

rem I don't know if the escape key escapes the same way as 
rem  the exit command 

disable escape key

if keystate(1) = 1 then exit

But it works GRRRRRRRRREATTT now!!! Thanks much

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 7th Sep 2010 02:26

Link

Here is a simple example of how disable escapekey works. Primarily, it is used when you want to do something (delete some stuff, change screen rez, etc.) before the game actually exits.

+ Code Snippet

` HOW DISABLE ESCAPEKEY WORKS   BY LBFN 6 SEPT, 2010
sync on : sync rate 60
backdrop off : hide mouse
disable escapekey
sw = screen width() / 2 : sh = screen height() / 2
repeat
  cls
  ink rgb(255,255,0),0
  center text sw,sh - 50,"Press ESC....go ahead, I won't quit."
  if keystate(1) = 1
    ink rgb(255,0,255),0
    center text sw,sh,"Ahh...I feel you pressing it, but I'm not stopping!"
  endif
  ink rgb(255,255,255),0
  center text sw,(sh * 2) - 50,"If you really want to quit, press the SPACEBAR."
  sync
until spacekey() = 1
cls
center text sw,sh,"See.....told you."
sync
wait 1000
end

So many games to code.......so little time.

Back to top

Profile PM Email

Mychal B

14

Years of Service

User Offline

Joined: 21st Jul 2010

Location: Coos bay, rainville

Posted: 7th Sep 2010 09:18

Link

Wow, that's just great. I don't even know what to say, but I do know what my next post will be! I'm wondering about copyright infringments for replicating buildings and businesses from a real town

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / error exiting program