Need help on a point system - GameCreators Forum

Author

Message

ViktorLazarev

13

Years of Service

User Offline

Joined: 20th Feb 2013

Location: On a PC Runing OSx with a VBox Linux :D

Posted: 15th Mar 2013 16:37

Link

Herro everyone, I'm making a quiz game , and I need a point system, but I don't know how to do it. Can anyone help me?

http://youtube.com/user/ViktorLazarev
Life is never good without a computer.

Back to top

Profile PM Email Website

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 15th Mar 2013 17:36

Link

If there are multiple players then you will want to make an array:

DIM Score(n)

"n" represents the number of players

D.D.

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 15th Mar 2013 17:38

Link

point system? just like a mouse?

if so; try this code

sync rate 60
hide mouse
do
	cls
	DrawMouse()
loop

global MX as Float
global MY as Float
global MX1 as float
global MY1 as float
global MX2 as float
global MY2 as float
global InitMouse as Boolean
global TrailLimit as float
global MouseLimit as float
global MLKey as Byte
global MClick as Byte
global OldClickX as Integer
global OldClickY as Integer
global CircleSmooth as float
global CircleSize as Integer
function DrawMouse()
	
	
	if InitMouse = 0
		mx = Mousex()
		my = mousey()
		
		//Setup custom mouse values here.
		mx1 = mx+15
		my1 = my+15
		
		mx2 = mx+1
		my2 = my+25
		Init = True
		
		TrailLimit = 6
		MouseLimit = 6
		InitMouse = 1
		CircleSize = 15
	endif
	
	
	//mouse events.. OnPress, OnRelease and WhileHold event.
	if MLKey = 3 then MLKey = 0
	if MLKey = 2 and mouseclick()=0 then MLKey = 3
	if MLKey = 1 then MLKey = 2
	if MLKey = 0 and mouseclick()=1 then MLKey = 1
	
	mx = CurveValue(Mousex(),mx,MouseLimit)
	my = CurveValue(Mousey(),my,MouseLimit)
	
	mx1 = curvevalue(mx+15,mx1,TrailLimit)
	my1 = curvevalue(my+15,my1,TrailLimit)
	
	mx2 = curvevalue(mx+1,mx2,TrailLimit)
	my2 = curvevalue(my+25,my2,TrailLimit)
	
	line mx,my,mx1,my1
	line mx,my,mx2,my2
	line mx1,my1,mx2,my2
	
	if MClick =1 and MLKey <> 1
		CircleSmooth = curvevalue(CircleSize,CircleSmooth,10)
		circle OldClickX,OldClickY,CircleSmooth
		if floor(CircleSmooth)+1=> CircleSize then MClick = 0  
	endif
	if MLKey = 1
			MClick = 1
			OldClickX = mx
			OldClickY = my
			CircleSmooth = 0
	endif
endfunction

+ Code Snippet

sync rate 60
hide mouse
do
	cls
	DrawMouse()
loop


global MX as Float
global MY as Float
global MX1 as float
global MY1 as float
global MX2 as float
global MY2 as float
global InitMouse as Boolean
global TrailLimit as float
global MouseLimit as float
global MLKey as Byte
global MClick as Byte
global OldClickX as Integer
global OldClickY as Integer
global CircleSmooth as float
global CircleSize as Integer
function DrawMouse()
	
	
	if InitMouse = 0
		mx = Mousex()
		my = mousey()
		
		//Setup custom mouse values here.
		mx1 = mx+15
		my1 = my+15
		
		mx2 = mx+1
		my2 = my+25
		Init = True
		
		TrailLimit = 6
		MouseLimit = 6
		InitMouse = 1
		CircleSize = 15
	endif
	
	
	//mouse events.. OnPress, OnRelease and WhileHold event.
	if MLKey = 3 then MLKey = 0
	if MLKey = 2 and mouseclick()=0 then MLKey = 3
	if MLKey = 1 then MLKey = 2
	if MLKey = 0 and mouseclick()=1 then MLKey = 1
	
	mx = CurveValue(Mousex(),mx,MouseLimit)
	my = CurveValue(Mousey(),my,MouseLimit)
	
	mx1 = curvevalue(mx+15,mx1,TrailLimit)
	my1 = curvevalue(my+15,my1,TrailLimit)
	
	mx2 = curvevalue(mx+1,mx2,TrailLimit)
	my2 = curvevalue(my+25,my2,TrailLimit)
	
	line mx,my,mx1,my1
	line mx,my,mx2,my2
	line mx1,my1,mx2,my2
	
	if MClick =1 and MLKey <> 1
		CircleSmooth = curvevalue(CircleSize,CircleSmooth,10)
		circle OldClickX,OldClickY,CircleSmooth
		if floor(CircleSmooth)+1=> CircleSize then MClick = 0  
	endif
	if MLKey = 1
			MClick = 1
			OldClickX = mx
			OldClickY = my
			CircleSmooth = 0
	endif
endfunction

Advanced Updater for your games!

Back to top

Profile PM Website

Sph!nx

17

Years of Service

User Offline

Joined: 3rd Dec 2008

Location: The Netherlands

Posted: 16th Mar 2013 12:14

Link

A believe Viktor means a score system. As Derek suggested, I would use an array for that to store every player with all additional data (like score).

Regards Sph!nx
www.mental-image.net

Back to top

Profile PM

ViktorLazarev

13

Years of Service

User Offline

Joined: 20th Feb 2013

Location: On a PC Runing OSx with a VBox Linux :D

Posted: 18th Mar 2013 16:12

Link

What I meant is how to use a point system in a quiz-ish game. Its a one player game, and I have no idea how to make an array on scoring.

http://youtube.com/user/ViktorLazarev
Life is never good without a computer.

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 18th Mar 2013 16:28 Edited at: 18th Mar 2013 16:30

Link

Derek showed you how to create an array, now you need a plan.

You need to design concepts like this in plain english (or what ever language you speak), then translate. You may not always need to design on paper, but once you work out the logic and flow, the programming becomes easier.

Here is a design for your problem. As you get more capable, simple designs like this can be created in your mind; but for now, write it out.

+ Code Snippet

Define what a question is. (A User Defined Type [UDT] with x number of answers and correct answer)
Store a number of questions. (Use an array)
Mark correct answers.
Add questions to list randomly. (With another array, add questions in random order)


REPEAT
 Pick a question from the list
 Show the question

 IF waiting for answer
  Show question
 ELSE
  Show result
  
  IF true
    Add score
    Display correct answer message
  ELSE
    Display incorrect answer message
  ENDIF
   
   Remove question from the list
UNTIL question list is empty

Now that is one way to create a quiz, there are loads of ways; other people will handle it differently.

Write out the way you want it to work. Copy each statement as a comment in DBP, then use that to guide your programming.

Back to top

Profile PM Email Website

Libervurto

20

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 18th Mar 2013 23:41

Link

What's with all the ridiculously vague calls for help on this board? If you ask vague questions you're only going to get vague answers.

Quote: "What I meant is how to use a point system in a quiz-ish game. Its a one player game, and I have no idea how to make an array on scoring."

This is still pretty vague. How does the scoring system work? Do you get a set number of points for answering each question correctly, or are some questions more valuable than others (e.g. bonus questions, different difficulties)? Does the amount of points awarded depend on how long the player takes to answer the question? Are there different scores to keep track of, maybe for different categories? Are there other elements to the game, besides questions, (like most game-shows) that we might need to consider?

A simple game can have many possibilities. This is what makes coding fun after all!

Back to top

Profile PM Email

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 19th Mar 2013 14:57

Link

Check out the post I made here... where I made a very simple quiz engine with scoring.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

ViktorLazarev

13

Years of Service

User Offline

Joined: 20th Feb 2013

Location: On a PC Runing OSx with a VBox Linux :D

Posted: 26th Mar 2013 03:00

Link

I did something simpler!

+ Code Snippet

MyScore = 0

print "Score";MyScore
center text 320,240,"Click A"

do
if KEYSTATE(30) then gosub next
loop

next:
MyScore = MyScore + 10
cls 0
print "Score:";MyScore
center text 320,240,"The Point System works!"
wait key

http://youtube.com/user/ViktorLazarev
Life is never good without a computer.

Back to top

Profile PM Email Website

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 26th Mar 2013 20:22

Link

Your code will fail, as you never return from your gosub.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

pcRaider

19

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 27th Mar 2013 01:23

Link

ok

+ Code Snippet

MyScore = 0

print "Score";MyScore
center text 320,240,"Click A"

do
  if KEYSTATE(30) then gosub next01
loop
end

next01:
wait key
MyScore = MyScore + 10
cls 0
print "Score:";MyScore
center text 320,240,"The Point System works!"
return

windowsXp

Back to top

Profile PM

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 27th Mar 2013 21:10

Link

At least mine is usable and expandable in the real world. lol

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

ViktorLazarev

13

Years of Service

User Offline

Joined: 20th Feb 2013

Location: On a PC Runing OSx with a VBox Linux :D

Posted: 27th Mar 2013 21:52

Link

I put it in my game, and it works perfectly!

http://youtube.com/user/ViktorLazarev
Life is never good without a computer.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Need help on a point system