running into problem - GameCreators Forum

Author

Message

gothboy 101

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Watonga, ok, usa

Posted: 2nd Aug 2004 04:52

Link

how do i make it to where you use the arrow keys to move the selector thing and enter to select, like making it end when you click exit game.

Rem Project: Midtime
Rem Created: 7/21/2004 10:42:00 AM

Rem ***** Main Source File *****
sync on
sync rate 0

`-------------------- Select screen -------------------------------
StartPrompt:
cls
clear entry buffer
load image "Midtime title.jpg", 1
paste image 1, 155,120
center text 200, 400, "[N]ew Game"
center text 330, 400, "[L]oad Game"
center text 450, 400, "[E]xit Game"
sync

Select upper$(INKEY$())
Case "N": gosub NewGameInit : EndCase
Case "L": gosub LoadGameInit: EndCase
Case "E": Gosub Quit: Endcase : if input "e" then end
Case default: Goto StartPrompt :Endcase
EndSelect
gosub main
wait key

`------------------------------------------------------------------
`Game typr initialization

NewGameInit:
`new game initialization code
test$="newgame was processed"
gosub main
return

LoadGameInit:
`Load game initialization
test$="load game was processed"
return

quit:
`cleanup resources
test$="quit was processed - press any key"
print test$
sync
wait key
end
return

`****************** Main Game Loop
main:
do
`cls
text 10,20,">"+test$
if mouseclick()=1
goto StartPrompt
endif
sync
loop
return

Chaos Games

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 2nd Aug 2004 09:39 Edited at: 2nd Aug 2004 09:40

Link

Really depends on what type of selector you wan to use. Sprite? 3d object? Text? Hope this helps a little. There are many ways to do this.

sync on
sync rate 0
backdrop on
color backdrop 0
a = 255
b = 100
c = 100
choice = 1
leftkeypressed = 0
rightkeypressed = 0
`-------------------- Select screen -------------------------------
do

`if key e pressed
if keystate(18) = 1
	if keypressed = 0
		choice = 3
	endif
endif
`if key l pressed
if keystate(38) = 1
	if keypressed = 0
		choice = 2
	endif
endif
`if key n is pressed
if keystate(49) = 1
	if keypressed = 0
		choice = 1
	endif
endif
`cycle through next option and update choice
if rightkey() = 1
	if keypressed = 0
		inc choice, 1
		if choice > 3 then choice = 1
	endif
else
	leftkeypressed = 0
endif

`cycle through previous option and update choice
if leftkey() = 1
	if keypressed = 0
		dec choice, 1
		if choice < 1 then choice = 3
	endif
else
	rightkeypressed = 0
endif

`set colors for print options
select choice
	case 1 : a = 255 : b = 100 : c = 100 : selected$ = "new game highlighted" : endcase
	case 2 : a = 100 : b = 255 : c = 100 : selected$ = "load game highlighted" : endcase
	case 3 : a = 100 : b = 100 : c = 255 : selected$ = "exit game highlighted" : endcase
	case default : a = a : b = b : c = c : selected$ = selected$ : endcase
endselect

`pressing enter prints the selected option
if keystate(28) = 1
	if choice = 3
		selected$ = "exit was selected"
	endif
	if choice = 2
		selected$ = "load game was selected"
	endif
	if choice = 1
		selected$ = "new game was selected"
	endif
endif

`reset keypressed
if scancode() = 0
	keypressed = 0
else
	keypressed = 1
	ink rgb(255,255,255), 0
	set cursor 5,5
	print selected$
endif

`print options
ink rgb(a,a,a),0 : center text 200, 400, "[N]ew Game"
ink rgb(b,b,b),0 : center text 330, 400, "[L]oad Game"
ink rgb(c,c,c),0 : center text 450, 400, "[E]xit Game"

sync
loop

+ Code Snippet

sync on
sync rate 0
backdrop on
color backdrop 0
a = 255
b = 100
c = 100
choice = 1
leftkeypressed = 0
rightkeypressed = 0
`-------------------- Select screen -------------------------------
do


`if key e pressed
if keystate(18) = 1
	if keypressed = 0
		choice = 3
	endif
endif
`if key l pressed
if keystate(38) = 1
	if keypressed = 0
		choice = 2
	endif
endif
`if key n is pressed
if keystate(49) = 1
	if keypressed = 0
		choice = 1
	endif
endif
`cycle through next option and update choice
if rightkey() = 1
	if keypressed = 0
		inc choice, 1
		if choice > 3 then choice = 1
	endif
else
	leftkeypressed = 0
endif

`cycle through previous option and update choice
if leftkey() = 1
	if keypressed = 0
		dec choice, 1
		if choice < 1 then choice = 3
	endif
else
	rightkeypressed = 0
endif

`set colors for print options
select choice
	case 1 : a = 255 : b = 100 : c = 100 : selected$ = "new game highlighted" : endcase
	case 2 : a = 100 : b = 255 : c = 100 : selected$ = "load game highlighted" : endcase
	case 3 : a = 100 : b = 100 : c = 255 : selected$ = "exit game highlighted" : endcase
	case default : a = a : b = b : c = c : selected$ = selected$ : endcase
endselect

`pressing enter prints the selected option
if keystate(28) = 1
	if choice = 3
		selected$ = "exit was selected"
	endif
	if choice = 2
		selected$ = "load game was selected"
	endif
	if choice = 1
		selected$ = "new game was selected"
	endif
endif

`reset keypressed
if scancode() = 0
	keypressed = 0
else
	keypressed = 1
	ink rgb(255,255,255), 0
	set cursor 5,5
	print selected$
endif

`print options
ink rgb(a,a,a),0 : center text 200, 400, "[N]ew Game"
ink rgb(b,b,b),0 : center text 330, 400, "[L]oad Game"
ink rgb(c,c,c),0 : center text 450, 400, "[E]xit Game"

sync
loop

Back to top

Profile PM Email

gothboy 101

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Watonga, ok, usa

Posted: 3rd Aug 2004 03:07

Link

thanks lost in thought

Chaos Games

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 3rd Aug 2004 03:56

Link

Glad I could help. There are better ways to do it i'm sure. Like I sadi it really depends on how you want to do it. 1000 ways to skin a cat

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / running into problem