NEED QUICK HELP
Blitz3D Forums/Blitz3D Programming/NEED QUICK HELP
| ||
| Please help me i have a test and this is a great way to study, this code does not work please tell me why. Graphics 800,600,32,3 selq() Function qs1() : answer$="allocate" : Print "To set apart" : q1$=Input$("") : If q1$=answer$ Then Print "Right" Else Print "WRONG" : selq() :End Function Function qs2() : answer$="ardent" : Print "very enthusiastic,impassioned" : q2$=Input$("") : If q2$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs3() : answer$="assiduous" : Print "persistent,attentive,diligent" : q3$=Input$("") : If q3$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs4() : answer$="brash" : Print "prone To act in a hasty manner" : q4$=Input$("") : If q1$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs5() : answer$="capricious" : Print "subject To whims Or passing fancies" : q5$=Input$("") : If q5$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs6() : answer$="chastise" : Print "To inflict physical punishment" : q6$=Input$("") : If q6$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs7() : answer$="copious" : Print "abudent:plentiful" : q7$=Input$("") : If q7$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs8() : answer$="deviate" : Print "To turn aside:To stray from a norm" : q8$=Input$("") : If q8$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs9() : answer$="emaciated" : Print "unnaturally thin" : q9$=Input$("") : If q9$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs10() : answer$="exult" : Print "To rejoice greatly" : q10$=Input$("") : If q10$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs11() : answer$="gnarled" : Print "knotted,twisted,lumpy" : q11$=Input$("") : If q11$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs12() : answer$="indemnity" : Print "a payment For damage Or loss" : q12$=Input$("") : If q12$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs13() : answer$="inkling" : Print "a hint: a vague notion" : q13$=Input$("") : If q13$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs14() : answer$="limpid" : Print "clear, transparent: readily understood" : q14$=Input$("") : If q14$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs15() : answer$="omnipotent" : Print "almighty, having unlimited power Or authority": q15$=Input$("") : If q15$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs16() : answer$="palatable" : Print "agreeable To taste Or one's sensibilities" : q16$=Input$("") : If q16$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs17() : answer$="poignant" : Print "deeply affecting" : q17$=Input$("") : If q17$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs18() : answer$="rancor" : Print "bitter resentment Or ill-will" : q18$=Input$("") : If q18$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs19() : answer$="sophomoric" : Print "immature And overconfident" : q19$=Input$("") : If q19$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function qs20() : answer$="spontaneous" : Print "arising naturally, Not planned" : q20$=Input$("") : If q20$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function Function selq() For x=1 To 20 rndq=Rnd(20) If rndq=1 Then qs1() If rndq=2 Then qs2() If rndq=3 Then qs3() If rndq=4 Then qs4() If rndq=5 Then qs5() If rndq=6 Then qs6() If rndq=7 Then qs7() If rndq=8 Then qs8() If rndq=9 Then qs9() If rndq=10 Then qs10() If rndq=11 Then qs11() If rndq=12 Then qs12() If rndq=13 Then qs13() If rndq=14 Then qs14() If rndq=15 Then qs15() If rndq=16 Then qs16() If rndq=17 Then qs17() If rndq=18 Then qs18() If rndq=19 Then qs19() If rndq=20 Then qs20() Next End Function |
| ||
| Gave me the error 'End Function' without 'Function' I wouldn't try to create functions like that anyways... This is what this would look like the right way, but it just looks like you need an EndIf
Function qs1()
answer$="allocate"
Print "To set apart"
q1$=Input$("")
If q1$=answer$ Then
Print "Right" Else Print "WRONG"
selq()
End Function
|
| ||
| Thanks a lot green fire! I need help! |
| ||
| its still giving me the same error |
| ||
| Never mine i fixed it |
| ||
Using so many functions it really bad practice. This can be really simplified.
Graphics 800,600,32,3
While Not KeyHit(1)
AskQuestion()
Wend
Function AskQuestion()
q = Rand(1,20)
Restore Questions
For l = 1 To q
Read Answer$, Question$
Next
Print Question$
Guess$ = Input$("")
If Guess$ = Answer$
Print "Right"
Else
Print "Wrong"
EndIf
End Function
.Questions
Data "allocate","To set apart"
Data "ardent" , "very enthusiastic,impassioned"
Data "assiduous" , "persistent,attentive,diligent"
Data "brash" , "prone To act in a hasty manner"
Data "capricious" , "subject To whims Or passing fancies"
Data "chastise" , "To inflict physical punishment"
Data "copious" , "abudent:plentiful"
Data "deviate" , "To turn aside:To stray from a norm"
Data "emaciated" , "unnaturally thin"
Data "exult" , "To rejoice greatly"
Data "gnarled" , "knotted,twisted,lumpy"
Data "indemnity" , "a payment For damage Or loss"
Data "inkling" , "a hint: a vague notion"
Data "limpid" , "clear, transparent: readily understood"
Data "omnipotent" , "almighty, having unlimited power Or authority"
Data "palatable" , "agreeable To taste Or one's sensibilities"
Data "poignant" , "deeply affecting"
Data "rancor" , "bitter resentment Or ill-will"
Data "sophomoric" , "immature And overconfident"
Data "spontaneous" , "arising naturally, Not planned"
Stevie |
| ||
| wow thanks! i was just trying to make it shorter but not like that, this really taught me a lot! |
   |