-----------------------------------

pwnapple

Tue Jan 17, 2006 5:02 pm


Arrays and Sequential Files

-----------------------------------

i need it to have arrays cuz theres too many variables so i need the whole to thing to be changed so it can use arrays and i need sequential files to be bring up the questions
thanks for the help

var num, num2, num3, num4, num5, num6, num7, num8, num9, num10, num11 : int
var num12, num13, num14, num15, num16, num17, num18, num19, num20, num21, 
num22 : int
var num23, num24, num25, num26, num27, num28, num29, num30, num31, num32, 
num33 : int
var num34, num35, num36, num37, num38, num39, num40, num41 : int
var num42, num43, num44, num45, num46, num47, num48, num49, num50, num51, 
num52 : int
var next : string (1)
var count : int
count := 0
var x : int
var y : int
var c : int
loop
    delay (20)
    randint (x, 1, maxx)
    randint (y, 1, maxy)
    randint (x, 1, maxx)
    randint (y, 1, maxy)
    randint (c, 1, maxcolor)
    Draw.FillStar (x, y, x + 50, y + 50, c)
    exit when c = 250
end loop
colourback (black)
cls
colour (brightgreen)
loop
    put "Welcome to my Quiz"
    put "1)Judaism"
    put "2)Christianity"
    put "3)Islam"
    put "4)Buddhism"
    put "5)Hinduism"
    put "6)Exit"
    get num
    cls
    case num of
	label 1 :

	    put "Jews are monotheistic, so what does that mean?"
	    put "1)That they belive in two Gods"
	    put "2)That they Believe in three Gods"
	    put "3)That they Believe in one Gods"
	    put "4)That they Believe in four or more Gods"
	    get num2
	    if num2 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    Pic.ScreenLoad ("judaism1.jpg", 200, 20, 0)
	    put "How many commandments are in the Torah?"
	    put "1)273"
	    put "2)613"
	    put "3)591"
	    put "4)623"
	    get num3
	    if num3 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the following is the Jewish place of worship?"
	    put "1)Chapel"
	    put "2)Church"
	    put "3)Temple"
	    put "4)Synagogne"
	    get num4
	    if num4 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the following is Jewish scripture?"
	    put "1)Torah"
	    put "2)Qur'an"
	    put "3)Bible"
	    put "4)Tipitaka"
	    get num5
	    if num5 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "How many candles do they light on the menorah during Hanukkah?"
	    put "1)3"
	    put "2)6"
	    put "3)5"
	    put "4)9"
	    get num6
	    if num6 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What does the Mezuzah symbolize?"
	    put "1)That God is present in the Synagogne"
	    put "2)That God is present in the Body"
	    put "3)That God is present in the Home"
	    put "4)That God is present in Children"
	    get num7
	    if num7 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What does Tishuvah mean?"
	    put "1)repentence"
	    put "2)prayer"
	    put "3)confession"
	    put "4)worship"
	    get num8
	    if num8 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "In which book does it tell the first story of passover?"
	    put "1)Genisus"
	    put "2)book of John"
	    put "3)Exodus"
	    put "4)book of Mark"
	    get num9
	    if num9 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the following is the Jewish New Year?"
	    put "1)Rosh Hashanah"
	    put "2)Hanukkah"
	    put "3)Passover"
	    put "4)Yom Kippur"
	    get num10
	    if num10 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What are the three main parts of Judaism?"
	    put "1)God,worship and Torah"
	    put "2)Isreal,God and prayer"
	    put "3)God,prayer and worship"
	    put "4)God,Torah and Isreal"
	    get num11
	    if num11 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	label 2 :

	    put "Who is the central Figure of Christianity?"
	    put "1)God"
	    put "2)Jesus"
	    put "3)Mary"
	    put "4)The Pope"
	    get num12
	    if num12 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the following is the leader of the Christian Community?"
	    put "1)Clergy"
	    put "2)Bishop"
	    put "3)Pope"
	    put "4)Priest"
	    get num13
	    if num13 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Where are the sacred scriptures located?"
	    put "1)Bible"
	    put "2)Torah"
	    put "3)Qur'an"
	    put "4)Tipitaka"
	    get num14
	    if num14 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following is a christian sacred time?"
	    put "1)Yom Kippur"
	    put "2)Christmas"
	    put "3)Rosh Hashanah"
	    put "4)Narvona"
	    get num15
	    if num15 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "How often do christians go to church?"
	    put "1)Once a day"
	    put "2)Once a year"
	    put "3)Once a month"
	    put "4)Every Sunday"
	    get num16
	    if num16 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Is a church considered a sacred place?"
	    put "1)Yes"
	    put "2)No"
	    get num17
	    if num17 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Is the story about Adam and Eve an explanation about how sin 
originated?"
	    put "1)Yes"
	    put "2)No"
	    get num18
	    if num18 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following the turning of bread and wine into the Body 
and Blood of Christ?"
	    put "1)Mezuzah"
	    put "2)Narvona"
	    put "3)Transubstantiation"
	    put "4)Buddha"
	    get num19
	    if num19 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What does incarnation mean?"
	    put "1)To make blood"
	    put "2)To make flesh"
	    put "3)To make bone"
	    put "4)To make life"
	    get num20
	    if num20 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What is an icon?"
	    put "1)A sacred sculpture of Jesus"
	    put "2)A sacred painting of Jesus"
	    put "3)A sacred sculpture of a saint"
	    put "4)A sacred painting of a saint"
	    get num21
	    if num21 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	label 3 :

	    put "Which of the following is the Islamic place of prayer and 
worship?"
	    put "1)temple"
	    put "2)church"
	    put "3)mosque"
	    put "4)synagogne"
	    get num22
	    if num22 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the following are the teachings of Muhammad?"
	    put "1)Haddith"
	    put "2)Qur'an"
	    put "3)Torah"
	    put "4)Bible"
	    get num23
	    if num23 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What is the twelfth Islamic month known as?"
	    put "1)Passover"
	    put "2)Yom Kippur"
	    put "3)Rosh Hashanah"
	    put "4)Ramadan"
	    get num24
	    if num24 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What are the two main sources of the Islamic beliefs?"
	    put "1)Torah and the Bible"
	    put "2)Qur'an and Haddith"
	    put "3)Qur'an and the Bible"
	    put "4)Torah and Haddith"
	    get num25
	    if num25 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which month do Islamic people fast?"
	    put "1)the twelfth"
	    put "2)the sixth"
	    put "3)the third"
	    put "4)the ninth"
	    get num26
	    if num26 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What is the name of the Islamic pilgramige?"
	    put "1)Hajj"
	    put "2)Hafiz"
	    put "3)Qur'an"
	    put "4)Jinn"
	    get num27
	    if num27 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following contains the sacred scriptures?"
	    put "1)Haddith"
	    put "2)Torah"
	    put "3)Qur'an"
	    put "4)Bible"
	    get num28
	    if num28 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following means to memorize or to guard in islamic?"
	    put "1)Hajj"
	    put "2)Hafiz"
	    put "3)Transubstantiation"
	    put "4)Nervona"
	    get num29
	    if num29 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "___ are spirits capable of good or bad"
	    put "1)Mezuzah"
	    put "2)Hafiz"
	    put "3)Hajj"
	    put "4)Jinn"
	    get num30
	    if num30 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What are the five pilars of Islam?"
	    put "1)Profession of Faith, Prayer, Aimsgiving. Fasting and Pilgrimage"
	    put "2)Profession of Faith, Prayer, Worship. Fasting and Pilgrimage"
	    put "3)Profession of Faith, Confession, Aimsgiving. Fasting and 
Pilgrimage"
	    put "4)Follow Allah, Prayer, Aimsgiving. Fasting and Pilgrimage"
	    get num31
	    if num31 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	label 4 :

	    put "Which of the following means the entire Buddhist community?"
	    put "1)Samsara"
	    put "2)Tipitaka"
	    put "3)Sangha"
	    put "4)Shakyamuni"
	    get num32
	    if num32 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following are the stories about Siddhartha Gautama?"
	    put "1)Shakyamuni"
	    put "2)Sangha"
	    put "3)Tipitaka"
	    put "4)Vinaya Pitaka"
	    get num33
	    if num33 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which word means the cycle of birth, death and rebirth?"
	    put "1)Shakyamuni"
	    put "2)Sangha"
	    put "3)Tipitaka"
	    put "4)Samsara"
	    get num34
	    if num34 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What is the center belief of Buddhists?"
	    put "1)Tipitaka"
	    put "2)The Four Noble Truths"
	    put "3)Sangha"
	    put "4)Shakyamuni"
	    get num35
	    if num35 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What are the Buddhist scriptures called?"
	    put "1)Vinaya Pitaka"
	    put "2)Shakyamuni"
	    put "3)Tipitaka"
	    put "4)Sangha"
	    get num36
	    if num36 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Is meditation considered a sacred time?"
	    put "1)Yes"
	    put "2)No"
	    get num37
	    if num37 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What is the code of monastic discipline?"
	    put "1)Samsara"
	    put "2)Sangha"
	    put "3)Tipitaka"
	    put "4)Vinaya Pitaka"
	    get num38
	    if num38 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the following is the Buddhist place of worship?"
	    put "1)Synagogne"
	    put "2)Mosque"
	    put "3)Temple"
	    put "4)Church"
	    get num39
	    if num39 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What are the two most common forms of meditation?"
	    put "1)Mindfulness of Air and Meditation of Loving-Kindness"
	    put "2)Mindfulness of Breath and Meditation of Loving-Kindness"
	    put "3)Mindfulness of Breath and Meditation of Kindness"
	    put "4)Mindfulness of Breath and Meditation of Love"
	    get num40
	    if num40 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "Which of the Following is not one of the Four Noble Truths?"
	    put "1)Life is filled with suffering"
	    put "2)The cause of suffering is desire"
	    put "3)To cease sufferinng one must cease desiring"
	    put "4)Right understanding"
	    get num41
	    if num41 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	label 5 :

	    put "What is the name for Sikh clergy?"
	    put "1)Ashrams"
	    put "2)Granthu"
	    put "3)Moksha"
	    put "4)Karma"
	    get num42
	    if num42 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls

	    put "What are community houses where followers of a guru live called?"
	    put "1)Granthu"
	    put "2)Mokahs"
	    put "3)Karma"
	    put "4)Ashrams"
	    get num43
	    if num43 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What is the purpose of yoga?"
	    put "1)to achieve Moksha"
	    put "2)to achieve Holi"
	    put "3)to achieve Guru"
	    put "4)to achieve Ahimsa"
	    get num44
	    if num44 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What does Karma mean?"
	    put "1)worship"
	    put "2)a deed or prayer"
	    put "3)a deed or action"
	    put "4)an action"
	    get num45
	    if num45 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What word refers to that which is beyond the material world?"
	    put "1)Transcendent"
	    put "2)Mantra"
	    put "3)Guru"
	    put "4)Holi"
	    get num46
	    if num46 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following is a word, phrase or special sound usually 
from scripture?"
	    put "1)Guru"
	    put "2)Holi"
	    put "3)Ahimsa"
	    put "4)Mantra"
	    get num47
	    if num47 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What is a guide or teacher that helps fellow Hindus called?"
	    put "1)Guru"
	    put "2)Holi"
	    put "3)Ahimsa"
	    put "4)Ashrams"
	    get num48
	    if num48 = 1 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the following is the Hindu place of worship?"
	    put "1)Synagogne"
	    put "2)Mosque"
	    put "3)Temple"
	    put "4)Church"
	    get num49
	    if num49 = 3 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "What is the spring festival called?"
	    put "1)Karma"
	    put "2)Holi"
	    put "3)Ashrams"
	    put "4)Ahimsa"
	    get num50
	    if num50 = 2 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	    put "Which of the Following is the Hindu's belief in nonviolence?"
	    put "1)Holi"
	    put "2)Yoga"
	    put "3)Ashrams"
	    put "4)Ahimsa"
	    get num51
	    if num51 = 4 then
		put "You are right"
		count := count + 1
	    else
		put "You are wrong"
	    end if
	    delay (1000)
	    cls
	label 6 :
	    put "press 6 again to exit program"
	    get num52
	    exit when num52 = 6
	    cls
    end case
    put "You got ", count * 10, " percent"
    if count = 10 or count = 20 or count = 30 or count = 40 or count = 50 
then
	Draw.FillOval (100, 100, 100, 100, yellow)
	drawarc (100, 50, 25, 20, 180, 0, 1)
	Draw.FillOval (65, 125, 25, 25, 0)
	Draw.FillOval (125, 125, 25, 25, 0)
	Draw.FillOval (65, 125, 10, 10, black)
	Draw.FillOval (125, 125, 10, 10, black)
	locate (2, 1)
	put "Good Job!!"
    elsif count = 9 or count = 19 or count = 29 or count = 39 or count = 49 
then
	put "So close maybe next time you will get perfect"
    else
	Draw.FillOval (100, 100, 100, 100, yellow)
	drawarc (100, 50, 25, 20, 0, 180, 1)
	Draw.FillOval (65, 125, 25, 25, 0)
	Draw.FillOval (125, 125, 25, 25, 0)
	Draw.FillOval (65, 125, 10, 10, black)
	Draw.FillOval (125, 125, 10, 10, black)
	put "Good try aim for perfect next time"
    end if
    delay (3000)
    cls
end loop
cls
Pic.ScreenLoad ("bye.jpg", 200, 20, 0)
put "Thank you for coming"
put "Please come again!"