Quick Question - GameCreators Forum

Author

Message

Digital Dragon

19

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 3rd Feb 2005 02:13 Edited at: 3rd Feb 2005 15:04

Link

I'm not a noob but if I post this is any other forum i will get loads of stick for asking rubbish Questions!

I am doing a school project and i am making a menu for it like a start menu.

I am so annoyed because i know how to do it just because i have an endfunction problem with my code!

It says command out of place i tried endif but that didn't work either.

Plz help i got to do this project for just after the weekend!

Here is the code for my menu

Rem Menu Functions

function menu()

x1 = rgb(0,0,255)

make object plain 730000,10,10
scale object 730000,165,123,0
set object to camera orientation 730000
position object 730000,0,1,-5.1
set object light 730000,0
ink rgb(255,0,0),0

color object 730000,x1

while x = 0
  z = 0
  y = 0
  if mousex() > 30 and mousex() < 65 and mousey() > 127 and mousey() < 152
    set text to bold
    ink rgb(100,100,100),0
    text 30,127,"Play Spanish Armada - The Board Game!"
    if mouseclick() = 1
      x = 1
    endif
  else
    set text to normal
    ink rgb(0,0,0),0
    text 30,127,"Start Game"
  endif
  if mousex() > 30 and mousex() < 65 and mousey() > 175 and mousey() < 200
    set text to bold
    ink rgb(100,100,100),0
    text 30,175,"Options"
    if mouseclick() = 1
           while z = 0
if mousex() > 30 and mousex() < 65 and mousey() > 230 and mousey() < 250
          set text to bold
          ink rgb(100,100,100),0
          text 30,230,"Low"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,230,"Low"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 265 and mousey() < 280
          set text to bold
          ink rgb(100,100,100),0
          text 30,265,"Medium"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,265,"Medium"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 300 and mousey() < 320
          set text to bold
          ink rgb(100,100,100),0
          text 30,300,"High"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,300,"High"
        endif
      endwhile
    endif
else
    set text to normal
    ink rgb(0,0,0),0
    text 30,175,"Options"
  endif
endfunction

+ Code Snippet

Rem Menu Functions

function menu()

x1 = rgb(0,0,255)

make object plain 730000,10,10
scale object 730000,165,123,0
set object to camera orientation 730000
position object 730000,0,1,-5.1
set object light 730000,0
ink rgb(255,0,0),0

color object 730000,x1

while x = 0
  z = 0
  y = 0
  if mousex() > 30 and mousex() < 65 and mousey() > 127 and mousey() < 152
    set text to bold
    ink rgb(100,100,100),0
    text 30,127,"Play Spanish Armada - The Board Game!"
    if mouseclick() = 1
      x = 1
    endif
  else
    set text to normal
    ink rgb(0,0,0),0
    text 30,127,"Start Game"
  endif
  if mousex() > 30 and mousex() < 65 and mousey() > 175 and mousey() < 200
    set text to bold
    ink rgb(100,100,100),0
    text 30,175,"Options"
    if mouseclick() = 1
           while z = 0
if mousex() > 30 and mousex() < 65 and mousey() > 230 and mousey() < 250
          set text to bold
          ink rgb(100,100,100),0
          text 30,230,"Low"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,230,"Low"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 265 and mousey() < 280
          set text to bold
          ink rgb(100,100,100),0
          text 30,265,"Medium"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,265,"Medium"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 300 and mousey() < 320
          set text to bold
          ink rgb(100,100,100),0
          text 30,300,"High"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,300,"High"
        endif
      endwhile
    endif
else
    set text to normal
    ink rgb(0,0,0),0
    text 30,175,"Options"
  endif
endfunction

I really need a quick comment on how to do it
plz!

P.S look down to my latest thread!

Mrnaughty is my name being NAUGHTY is my game. lol

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 3rd Feb 2005 03:11

Link

you don't have a problem with the endfunction - you just forgot to put in the second endwhile!!

btw, you might want to look at the co-ordinates a little bit, at the moment they are both too short.

Hope this helps.

Rem Menu Functions
function menu()

x1 = rgb(0,0,255)

make object plain 730000,10,10
scale object 730000,165,123,0
set object to camera orientation 730000
position object 730000,0,1,-5.1
set object light 730000,0
ink rgb(255,0,0),0

color object 730000,x1

while x = 0
  z = 0
  y = 0
  if mousex() > 30 and mousex() < 65 and mousey() > 127 and mousey() < 152
    set text to bold
    ink rgb(100,100,100),0
    text 30,127,"Play Spanish Armada - The Board Game!"
    if mouseclick() = 1
      x = 1
    endif
  else
    set text to normal
    ink rgb(0,0,0),0
    text 30,127,"Start Game"
  endif
  if mousex() > 30 and mousex() < 65 and mousey() > 175 and mousey() < 200
    set text to bold
    ink rgb(100,100,100),0
    text 30,175,"Options"
    if mouseclick() = 1
           while z = 0
           if mousex() > 30 and mousex() < 65 and mousey() > 230 and mousey() < 250
          set text to bold
          ink rgb(100,100,100),0
          text 30,230,"Low"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,230,"Low"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 265 and mousey() < 280
          set text to bold
          ink rgb(100,100,100),0
          text 30,265,"Medium"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,265,"Medium"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 300 and mousey() < 320
          set text to bold
          ink rgb(100,100,100),0
          text 30,300,"High"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,300,"High"
        endif
      endwhile
    endif
else
    set text to normal
    ink rgb(0,0,0),0
    text 30,175,"Options"
endif
endwhile
endfunction

+ Code Snippet

Rem Menu Functions
function menu()

x1 = rgb(0,0,255)

make object plain 730000,10,10
scale object 730000,165,123,0
set object to camera orientation 730000
position object 730000,0,1,-5.1
set object light 730000,0
ink rgb(255,0,0),0

color object 730000,x1

while x = 0
  z = 0
  y = 0
  if mousex() > 30 and mousex() < 65 and mousey() > 127 and mousey() < 152
    set text to bold
    ink rgb(100,100,100),0
    text 30,127,"Play Spanish Armada - The Board Game!"
    if mouseclick() = 1
      x = 1
    endif
  else
    set text to normal
    ink rgb(0,0,0),0
    text 30,127,"Start Game"
  endif
  if mousex() > 30 and mousex() < 65 and mousey() > 175 and mousey() < 200
    set text to bold
    ink rgb(100,100,100),0
    text 30,175,"Options"
    if mouseclick() = 1
           while z = 0
           if mousex() > 30 and mousex() < 65 and mousey() > 230 and mousey() < 250
          set text to bold
          ink rgb(100,100,100),0
          text 30,230,"Low"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,230,"Low"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 265 and mousey() < 280
          set text to bold
          ink rgb(100,100,100),0
          text 30,265,"Medium"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,265,"Medium"
        endif
        if mousex() > 30 and mousex() < 65 and mousey() > 300 and mousey() < 320
          set text to bold
          ink rgb(100,100,100),0
          text 30,300,"High"
          if mouseclick() = 1
            z = 1
          endif
        else
          set text to normal
          ink rgb(0,0,0),0
          text 30,300,"High"
        endif
      endwhile
    endif
else
    set text to normal
    ink rgb(0,0,0),0
    text 30,175,"Options"
endif
endwhile
endfunction

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

Digital Dragon

19

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 3rd Feb 2005 04:12 Edited at: 6th Apr 2005 19:22

Link

ty so much dodo
it does now work but now the background stays white so the text disappers when on an original black background it doesn't?
I am confuzed y does it do that?

thx
Mrnaughty

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 3rd Feb 2005 04:32

Link

what do you mean exactly?

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

Digital Dragon

19

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 3rd Feb 2005 04:42 Edited at: 3rd Feb 2005 15:22

Link

[edited]
I am so annoyed...look down to see y!
[edited/]

Mrnaughty is my name being NAUGHTY is my game. lol

Back to top

Profile PM Email

Digital Dragon

19

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 3rd Feb 2005 15:03 Edited at: 3rd Feb 2005 15:23

Link

But now this is really bugging me!
I have got a lot of options together and they all run on if you press 1,2 or 3
But when I do it, it goes to the option below!
plz help!

sync on
sync rate 0
cls
global key_time=35

menu:
cls
Y_POS=0
KType(0,Y_POS,"Hello, and welcome to Scott and Robbie's Spanish Armada Board Game!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"I hope you will enjoy are game since, as you see it is different!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Press 1 to enter Spanish Armada - The Board Game!"):INC Y_POS,20
KType(20,Y_POS,"Press 2 to read the manual"):INC Y_POS,20
wait 1000
if inkey$()="1" then goto bob
if inkey$()="2" then goto manual
wait key

bob:
cls
Y_POS=0
KType(20,Y_POS,"Welcome to Spanish Aramda"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Have you got your board ready and all the counters set up?"):INC Y_POS,20
KType(20,Y_POS,"1) Yes"):INC Y_POS,20
KType(20,Y_POS,"2) No"):INC Y_POS,20

if inkey$()="1" then goto Start
if inkey$()="2" then goto Goon
wait key

Goon:
cls
Y_POS=0
KType(20,Y_POS,"Then do it!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Common just read at the manual!"):INC Y_POS,20
wait 2000
goto menu

Start:
cls
Y_POS=0
KType(20,Y_POS,"Good so your ready.. so lets go and play ... Spanish Aramada!!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Now let's start"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"First, what type of question do you want "):INC Y_POS,20
KType(20,Y_POS,"1)Easy"):INC Y_POS,20
KType(20,Y_POS,"2)Medium"):INC Y_POS,20
KType(20,Y_POS,"3)or Hard"):INC Y_POS,20

if inkey$()="1" then goto Easy1
if inkey$()="2" then goto Medium1
if inkey$()="3" then goto Hard1
wait key

Easy1:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Easy..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Who was the Queen of England at the time of the Armada?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Elizabeth I"):INC Y_POS,20
KType(20,Y_POS,"2)Elizabeth II"):INC Y_POS,20
KType(20,Y_POS,"3)Mary I"):INC Y_POS,20

if inkey$()="1" then goto righteasy1
if inkey$()="2" then goto Wrong
if inkey$()="3" then goto Wrong
wait key

righteasy1:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, but you only move forward 1 circle."):INC Y_POS,20
wait key
goto menu2

Medium1:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Medium..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"What formation did the Spanish go in?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Square"):INC Y_POS,20
KType(20,Y_POS,"2)Star"):INC Y_POS,20
KType(20,Y_POS,"3)Cresent"):INC Y_POS,20

if inkey$()="1" then goto Wrong
if inkey$()="2" then goto Wrong
if inkey$()="3" then goto rightmedium1
wait key

rightmedium1:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, you move forward 2 circles."):INC Y_POS,20
wait key
goto menu2

Hard1:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Hard..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Who was the King of Spain?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Phillip II"):INC Y_POS,20
KType(20,Y_POS,"2)Phillip I"):INC Y_POS,20
KType(20,Y_POS,"3)James VI"):INC Y_POS,20

if inkey$()="1" then goto righthard1
if inkey$()="2" then goto Wrong
if inkey$()="3" then goto Wrong
wait key

righthard1:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Very Good, you move forward 3 circles!"):INC Y_POS,20
wait key
goto menu2

manual:
cls
Y_POS=0
KType(20,Y_POS,"This is the manual"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Set up the board and put the spanish counters on 2 "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"And your english ones on 1"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"These are the main objectives."):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- You are the English and you have to chase the Spanish round the board"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-You can choose whether you want a hard, medium or easy question"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-If you get a question wrong you stay on the same space and the Spainsh Armada "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Get 1 point, If the Spanish Aramada gets 5 points you lose!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- The questions go from what is name of the person who lead the English "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"to Who was the queen of England"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"You start on number 1 and progress till you get to the end then you win!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"P.S You might want to hit the keys quite hard and maybe 2 times."):INC Y_POS,20
wait key
goto menu

menu2:
cls
Y_POS=0
KType(20,Y_POS,"Next lot of questions."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Do you want to pick "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Easy."):INC Y_POS,20
KType(20,Y_POS,"2)Medium"):INC Y_POS,20
KType(20,Y_POS,"3)Hard"):INC Y_POS,20

if inkey$()="1" then goto Easy2
if inkey$()="2" then goto medium2
if inkey$()="3" then goto hard2
wait key

easy2:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Easy..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Was this one of the reasons for Phillip to go to war?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"She had refused to marry him but she had played him for a fool"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Yes"):INC Y_POS,20
KType(20,Y_POS,"2)No"):INC Y_POS,20

if inkey$()="1" then goto righteasy2
if inkey$()="2" then goto Wrong2
wait key

medium2:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Medium..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS," Philip II believed that when the Spanish invaded "):INC Y_POS,20
wait 1000
KType(20,Y_POS," That the Catholics would rise up and help defeat Elizabeth! "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Was this true? "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Yes"):INC Y_POS,20
KType(20,Y_POS,"2)No"):INC Y_POS,20

if inkey$()="1" then goto  rightmedium2
if inkey$()="2" then goto Wrong2
wait key

hard2:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Hard..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"What year did the Spanish Armada leave the port?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)1588"):INC Y_POS,20
KType(20,Y_POS,"2)1570"):INC Y_POS,20
KType(20,Y_POS,"3)1620"):INC Y_POS,20

if inkey$()="1" then goto righthard2
if inkey$()="2" then goto Wrong2
if inkey$()="3" then goto Wrong2
wait key

righteasy2:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, but you only move forward 1 circle."):INC Y_POS,20
wait key
goto menu3

rightmedium2:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, you move forward 2 circles."):INC Y_POS,20
wait key
goto menu3

righthard2:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Very Good, you move forward 3 circles!"):INC Y_POS,20
wait key
goto menu3

menu3:
cls
Y_POS=0
KType(20,Y_POS,"I am doing well!!!"):INC Y_POS,20
wait 1000
end

wrong:
cls
Y_POS=0
KType(20,Y_POS,"Wrong"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Unlucky!"):INC Y_POS,20
wait key
goto menu2

wrong2:
cls
Y_POS=0
KType(20,Y_POS,"Wrong"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Unlucky!"):INC Y_POS,20
wait key
goto menu3

function ktype(x,y,s$)
b$=""
for n=1 to len(s$)
b$=left$(s$,n)
ink rgb(rnd(255),rnd(255),rnd(255)),0
text x,y,b$
sync
wait key_time
next n
endfunction

+ Code Snippet

sync on
sync rate 0
cls
global key_time=35

menu:
cls
Y_POS=0
KType(0,Y_POS,"Hello, and welcome to Scott and Robbie's Spanish Armada Board Game!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"I hope you will enjoy are game since, as you see it is different!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Press 1 to enter Spanish Armada - The Board Game!"):INC Y_POS,20
KType(20,Y_POS,"Press 2 to read the manual"):INC Y_POS,20
wait 1000
if inkey$()="1" then goto bob
if inkey$()="2" then goto manual
wait key


bob:
cls
Y_POS=0
KType(20,Y_POS,"Welcome to Spanish Aramda"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Have you got your board ready and all the counters set up?"):INC Y_POS,20
KType(20,Y_POS,"1) Yes"):INC Y_POS,20
KType(20,Y_POS,"2) No"):INC Y_POS,20


if inkey$()="1" then goto Start
if inkey$()="2" then goto Goon
wait key

Goon:
cls
Y_POS=0
KType(20,Y_POS,"Then do it!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Common just read at the manual!"):INC Y_POS,20
wait 2000
goto menu


Start:
cls
Y_POS=0
KType(20,Y_POS,"Good so your ready.. so lets go and play ... Spanish Aramada!!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Now let's start"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"First, what type of question do you want "):INC Y_POS,20
KType(20,Y_POS,"1)Easy"):INC Y_POS,20
KType(20,Y_POS,"2)Medium"):INC Y_POS,20
KType(20,Y_POS,"3)or Hard"):INC Y_POS,20

if inkey$()="1" then goto Easy1
if inkey$()="2" then goto Medium1
if inkey$()="3" then goto Hard1
wait key

Easy1:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Easy..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Who was the Queen of England at the time of the Armada?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Elizabeth I"):INC Y_POS,20
KType(20,Y_POS,"2)Elizabeth II"):INC Y_POS,20
KType(20,Y_POS,"3)Mary I"):INC Y_POS,20

if inkey$()="1" then goto righteasy1
if inkey$()="2" then goto Wrong
if inkey$()="3" then goto Wrong
wait key

righteasy1:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, but you only move forward 1 circle."):INC Y_POS,20
wait key
goto menu2


Medium1:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Medium..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"What formation did the Spanish go in?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Square"):INC Y_POS,20
KType(20,Y_POS,"2)Star"):INC Y_POS,20
KType(20,Y_POS,"3)Cresent"):INC Y_POS,20

if inkey$()="1" then goto Wrong
if inkey$()="2" then goto Wrong
if inkey$()="3" then goto rightmedium1
wait key

rightmedium1:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, you move forward 2 circles."):INC Y_POS,20
wait key
goto menu2


Hard1:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Hard..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Who was the King of Spain?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Phillip II"):INC Y_POS,20
KType(20,Y_POS,"2)Phillip I"):INC Y_POS,20
KType(20,Y_POS,"3)James VI"):INC Y_POS,20

if inkey$()="1" then goto righthard1
if inkey$()="2" then goto Wrong
if inkey$()="3" then goto Wrong
wait key


righthard1:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Very Good, you move forward 3 circles!"):INC Y_POS,20
wait key
goto menu2




manual:
cls
Y_POS=0
KType(20,Y_POS,"This is the manual"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Set up the board and put the spanish counters on 2 "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"And your english ones on 1"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"These are the main objectives."):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- You are the English and you have to chase the Spanish round the board"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-You can choose whether you want a hard, medium or easy question"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-If you get a question wrong you stay on the same space and the Spainsh Armada "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Get 1 point, If the Spanish Aramada gets 5 points you lose!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- The questions go from what is name of the person who lead the English "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"to Who was the queen of England"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"You start on number 1 and progress till you get to the end then you win!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"P.S You might want to hit the keys quite hard and maybe 2 times."):INC Y_POS,20
wait key
goto menu






menu2:
cls
Y_POS=0
KType(20,Y_POS,"Next lot of questions."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Do you want to pick "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Easy."):INC Y_POS,20
KType(20,Y_POS,"2)Medium"):INC Y_POS,20
KType(20,Y_POS,"3)Hard"):INC Y_POS,20

if inkey$()="1" then goto Easy2
if inkey$()="2" then goto medium2
if inkey$()="3" then goto hard2
wait key

easy2:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Easy..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Was this one of the reasons for Phillip to go to war?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"She had refused to marry him but she had played him for a fool"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Yes"):INC Y_POS,20
KType(20,Y_POS,"2)No"):INC Y_POS,20


if inkey$()="1" then goto righteasy2
if inkey$()="2" then goto Wrong2
wait key


medium2:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Medium..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS," Philip II believed that when the Spanish invaded "):INC Y_POS,20
wait 1000
KType(20,Y_POS," That the Catholics would rise up and help defeat Elizabeth! "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Was this true? "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)Yes"):INC Y_POS,20
KType(20,Y_POS,"2)No"):INC Y_POS,20

if inkey$()="1" then goto  rightmedium2
if inkey$()="2" then goto Wrong2
wait key



hard2:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Hard..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"What year did the Spanish Armada leave the port?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"1)1588"):INC Y_POS,20
KType(20,Y_POS,"2)1570"):INC Y_POS,20
KType(20,Y_POS,"3)1620"):INC Y_POS,20

if inkey$()="1" then goto righthard2
if inkey$()="2" then goto Wrong2
if inkey$()="3" then goto Wrong2
wait key


righteasy2:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, but you only move forward 1 circle."):INC Y_POS,20
wait key
goto menu3

rightmedium2:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Good, you move forward 2 circles."):INC Y_POS,20
wait key
goto menu3

righthard2:
cls
Y_POS=0
KType(20,Y_POS,"Right"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Very Good, you move forward 3 circles!"):INC Y_POS,20
wait key
goto menu3

menu3:
cls
Y_POS=0
KType(20,Y_POS,"I am doing well!!!"):INC Y_POS,20
wait 1000
end


wrong:
cls
Y_POS=0
KType(20,Y_POS,"Wrong"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Unlucky!"):INC Y_POS,20
wait key
goto menu2

wrong2:
cls
Y_POS=0
KType(20,Y_POS,"Wrong"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Unlucky!"):INC Y_POS,20
wait key
goto menu3

function ktype(x,y,s$)
b$=""
for n=1 to len(s$)
b$=left$(s$,n)
ink rgb(rnd(255),rnd(255),rnd(255)),0
text x,y,b$
sync
wait key_time
next n
endfunction

I really need some help with these little things, could someone plz like go on MSN and just at some times post little questions at em?
Plz!

Mrnaughty is my name being NAUGHTY is my game. lol

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 4th Feb 2005 05:33 Edited at: 4th Feb 2005 05:34

Link

k, here is the code like I promised earlier

sync on:sync rate 0
randomize timer()

type Question
Easy as string
Medium as string
Hard as string
endtype

global key_time=30
global NoOfQuestions=2
global Loses=0
dim Questions(NoOfQuestions-1) as Question
dim Answer(NoOfQuestions) as Question

Questions(0).Easy="Who was the Queen of England at the time of the Armada?"
Answer(0).Easy="elizabeth i"
Questions(1).Easy="She had refused to marry him but she had played him for a fool. Was this one of the reasons for Phillip to go to war?"
Answer(1).Easy="yes"
Questions(0).Medium="What shape formation did the Spanish go in?"
Answer(0).Medium="cresent"
Questions(1).Medium="Philip II believed that when the Spanish invaded, the Catholics would rise up and help defeat Elizabeth! True or False?"
Answer(1).Medium="true"
Questions(0).Hard="Who was the King of Spain at the time of the Armada?"
Answer(0).Hard="phillip ii"
Questions(1).Hard="What year did the Spanish Armada leave the port?"
Answer(1).Hard="1588"

Intro:
`intro
cls
Y_POS=0
KType(0,Y_POS,"Hello, and welcome to Scott and Robbie's Spanish Armada Board Game!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"I hope you will enjoy are game since, as you can see it is different!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Press 1 to enter Spanish Armada - The Board Game!"):INC Y_POS,20
KType(20,Y_POS,"Press 2 to read the manual"):INC Y_POS,20
`get keypress
do
if keystate(2)=1 then gosub StartGame:goto Intro
if keystate(3)=1 then gosub Manual:goto Intro
loop

StartGame:
`ask if ready
cls
Y_POS=0
KType(20,Y_POS,"Welcome to Spanish Aramada"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Have you got your board ready and all the counters set up?"):INC Y_POS,20
KType(20,Y_POS,"1) Yes"):INC Y_POS,20
KType(20,Y_POS,"2) No"):INC Y_POS,20
do
if keystate(2)=1 then exit
if keystate(3)=1 then gosub Reminder:goto StartGame
loop
`start game
Start:
cls
Y_POS=0
KType(20,Y_POS,"Good so you're ready.. so lets go and play ... Spanish Aramada!!"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Now lets start!"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Firstly, what type of question do you want?"):INC Y_POS,20
KType(20,Y_POS,"1)Easy"):INC Y_POS,20
KType(20,Y_POS,"2)Medium"):INC Y_POS,20
KType(20,Y_POS,"3)or Hard"):INC Y_POS,20

do
if keystate(2)=1 then gosub EasyQuestion:goto Start
if keystate(3)=1 then gosub MediumQuestion:goto Start
if keystate(4)=1 then gosub HardQuestion:goto Start

if Loses>=5 then gosub GameOver

loop

return

EasyQuestion:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Easy..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
i=rnd(NoOfQuestions-1)
KType(20,Y_POS,Questions(i).Easy)
inc Y_POS,20
set cursor 20,Y_POS
input "Answer: ",Answer$
if lower$(Answer$)=Answer(i).Easy then Correct(1):else:Wrong()

return

MediumQuestion:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Medium..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
i=rnd(NoOfQuestions-1)
KType(20,Y_POS,Questions(i).Medium)
inc Y_POS,20
set cursor 20,Y_POS
input "Answer: ",Answer$
if lower$(Answer$)=Answer(i).Medium then Correct(2):else:Wrong()

return

HardQuestion:

cls
Y_POS=0
KType(20,Y_POS,"So you picked Hard..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
i=rnd(NoOfQuestions-1)
KType(20,Y_POS,Questions(i).Hard)
inc Y_POS,20
set cursor 20,Y_POS
input "Answer: ",Answer$
if lower$(Answer$)=Answer(i).Hard then Correct(3):else:Wrong()

return

Manual:

cls
Y_POS=0
KType(20,Y_POS,"This is the manual"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Set up the board and put the Spanish counters on 2 "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"And your English ones on 1"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"These are the main objectives:"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- You are the English and you have to chase the Spanish around the board"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-You can choose whether you want a hard, medium or easy question"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-If you get a question wrong you stay on the same space and the Spainsh Armada "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"get 1 point, If the Spanish Aramada gets 5 points you lose!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- The questions go from what is the name of the person who led the English "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"to Who was the queen of England"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"You start on number 1 and progress till you get to the end, then you win!"):INC Y_POS,20
wait key

return

Reminder:

cls
Y_POS=0
KType(20,Y_POS,"Then do it!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Common just read at the manual!"):INC Y_POS,20
wait 2000
wait key

return

GameOver:

cls
Y_POS=0
KType(20,Y_POS,"Oh No!!! You Lost!! Perhaps you want to try again?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Press 1 to restart or 2 to end the game.")
do
if keystate(2)=1 then Loses=0:goto Intro
if keystate(3)=1 then end
loop

return

function KType(x,y,s$)
b$=""
for n=1 to len(s$)
b$=left$(s$,n)
ink rgb(rnd(255),rnd(255),rnd(255)),0
text x,y,b$
sync
wait key_time
next n
endfunction

function Correct(i)

cls
Y_POS=0
KType(20,Y_POS,"Excellent! You move forward "+str$(i)+" circle(s)!"):INC Y_POS,20
wait key

endfunction

function Wrong()

cls
Y_POS=0
KType(20,Y_POS,"Wrong."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Unlucky! The Spanish Armada moves on..."):INC Y_POS,20
wait key
inc Loses

endfunction

+ Code Snippet

sync on:sync rate 0
randomize timer()

type Question
Easy as string
Medium as string
Hard as string
endtype

global key_time=30
global NoOfQuestions=2
global Loses=0
dim Questions(NoOfQuestions-1) as Question
dim Answer(NoOfQuestions) as Question

Questions(0).Easy="Who was the Queen of England at the time of the Armada?"
Answer(0).Easy="elizabeth i"
Questions(1).Easy="She had refused to marry him but she had played him for a fool. Was this one of the reasons for Phillip to go to war?"
Answer(1).Easy="yes"
Questions(0).Medium="What shape formation did the Spanish go in?"
Answer(0).Medium="cresent"
Questions(1).Medium="Philip II believed that when the Spanish invaded, the Catholics would rise up and help defeat Elizabeth! True or False?"
Answer(1).Medium="true"
Questions(0).Hard="Who was the King of Spain at the time of the Armada?"
Answer(0).Hard="phillip ii"
Questions(1).Hard="What year did the Spanish Armada leave the port?"
Answer(1).Hard="1588"

Intro:
`intro
cls
Y_POS=0
KType(0,Y_POS,"Hello, and welcome to Scott and Robbie's Spanish Armada Board Game!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"I hope you will enjoy are game since, as you can see it is different!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Press 1 to enter Spanish Armada - The Board Game!"):INC Y_POS,20
KType(20,Y_POS,"Press 2 to read the manual"):INC Y_POS,20
`get keypress
do
if keystate(2)=1 then gosub StartGame:goto Intro
if keystate(3)=1 then gosub Manual:goto Intro
loop

StartGame:
`ask if ready
cls
Y_POS=0
KType(20,Y_POS,"Welcome to Spanish Aramada"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Have you got your board ready and all the counters set up?"):INC Y_POS,20
KType(20,Y_POS,"1) Yes"):INC Y_POS,20
KType(20,Y_POS,"2) No"):INC Y_POS,20
do
if keystate(2)=1 then exit
if keystate(3)=1 then gosub Reminder:goto StartGame
loop
`start game
Start:
cls
Y_POS=0
KType(20,Y_POS,"Good so you're ready.. so lets go and play ... Spanish Aramada!!"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Now lets start!"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Firstly, what type of question do you want?"):INC Y_POS,20
KType(20,Y_POS,"1)Easy"):INC Y_POS,20
KType(20,Y_POS,"2)Medium"):INC Y_POS,20
KType(20,Y_POS,"3)or Hard"):INC Y_POS,20

do
if keystate(2)=1 then gosub EasyQuestion:goto Start
if keystate(3)=1 then gosub MediumQuestion:goto Start
if keystate(4)=1 then gosub HardQuestion:goto Start

if Loses>=5 then gosub GameOver

loop


return

EasyQuestion:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Easy..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
i=rnd(NoOfQuestions-1)
KType(20,Y_POS,Questions(i).Easy)
inc Y_POS,20
set cursor 20,Y_POS
input "Answer: ",Answer$
if lower$(Answer$)=Answer(i).Easy then Correct(1):else:Wrong()

return

MediumQuestion:
cls
Y_POS=0
KType(20,Y_POS,"So you picked Medium..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
i=rnd(NoOfQuestions-1)
KType(20,Y_POS,Questions(i).Medium)
inc Y_POS,20
set cursor 20,Y_POS
input "Answer: ",Answer$
if lower$(Answer$)=Answer(i).Medium then Correct(2):else:Wrong()

return

HardQuestion:

cls
Y_POS=0
KType(20,Y_POS,"So you picked Hard..ok"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Here is your question."):INC Y_POS,20
wait 1000
i=rnd(NoOfQuestions-1)
KType(20,Y_POS,Questions(i).Hard)
inc Y_POS,20
set cursor 20,Y_POS
input "Answer: ",Answer$
if lower$(Answer$)=Answer(i).Hard then Correct(3):else:Wrong()

return

Manual:

cls
Y_POS=0
KType(20,Y_POS,"This is the manual"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Set up the board and put the Spanish counters on 2 "):INC Y_POS,20
wait 1000
KType(20,Y_POS,"And your English ones on 1"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"These are the main objectives:"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- You are the English and you have to chase the Spanish around the board"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-You can choose whether you want a hard, medium or easy question"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"-If you get a question wrong you stay on the same space and the Spainsh Armada "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"get 1 point, If the Spanish Aramada gets 5 points you lose!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"- The questions go from what is the name of the person who led the English "):INC Y_POS,20
wait 2000
KType(20,Y_POS,"to Who was the queen of England"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"You start on number 1 and progress till you get to the end, then you win!"):INC Y_POS,20
wait key

return

Reminder:

cls
Y_POS=0
KType(20,Y_POS,"Then do it!"):INC Y_POS,20
wait 2000
KType(20,Y_POS,"Common just read at the manual!"):INC Y_POS,20
wait 2000
wait key

return

GameOver:

cls
Y_POS=0
KType(20,Y_POS,"Oh No!!! You Lost!! Perhaps you want to try again?"):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Press 1 to restart or 2 to end the game.")
do
if keystate(2)=1 then Loses=0:goto Intro
if keystate(3)=1 then end
loop

return

function KType(x,y,s$)
b$=""
for n=1 to len(s$)
b$=left$(s$,n)
ink rgb(rnd(255),rnd(255),rnd(255)),0
text x,y,b$
sync
wait key_time
next n
endfunction

function Correct(i)

cls
Y_POS=0
KType(20,Y_POS,"Excellent! You move forward "+str$(i)+" circle(s)!"):INC Y_POS,20
wait key

endfunction

function Wrong()

cls
Y_POS=0
KType(20,Y_POS,"Wrong."):INC Y_POS,20
wait 1000
KType(20,Y_POS,"Unlucky! The Spanish Armada moves on..."):INC Y_POS,20
wait key
inc Loses

endfunction

To add new questions, simply increase the number of questions variable and add another question/answer for each of the levels of difficulty.

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Quick Question